quote:


'sub to generate guids
Option Explicit
Dim guid, j
For j = 1 To 100
    genGUID()
    WScript.Echo guid
Next

sub genGUID()
    Dim digType, digit, final, i, stri
    final = ""
    Randomize
    For i = 1 To 32
        digType = Int((2 * Rnd) + 1)
        If digType = 1 Then
            digit = Int((10 * Rnd))
            final = final & digit
        Else
            digit = Int((6 * Rnd) + 97)
            final = final & Chr(digit)
        End If
        stri = CStr(i)
        Select Case stri
            Case "8"
                final = final & "-"
            Case "12"
                final = final & "-"
            Case "16"
                final = final & "-"
            Case "20"
                final = final & "-"
            Case Else
                'Or Else what?
        End Select
    Next
    guid = final
End Sub 'genGUID