16stelligen hexadezimalcode mit zufallszahlen erstellen

[martin_abg]

Hallo unzwar hab ich wieder ein Problem. Ich hab hier eine Vb code der Leider nicht bei VBscript funktioniert. Könnt ihr mir velleicht helfen den in VBS umzusetzen??

Public Function GenerateHEX(ByVal Count As Integer, Optional ByVal Seperator As String = "") As String

If Count < 1 Then Return ""

Dim table As String = "0123456789ABCDEF"

Dim RanHEX As New System.Text.StringBuilder

Dim rnd As New System.Random

For i As Integer = 1 To Count

RanHEX.Append(table.Substring(rnd.Next(0, table.Length), 1))

RanHEX.Append(table.Substring(rnd.Next(0, table.Length), 1))

If i <> Count Then

RanHEX.Append(Seperator)

End If

Next

Return RanHEX.ToString

End Function

Vielen dank im voraus