LISTING 2: Code to Map a SID to a Username 

Set Args = WScript.Arguments
Set STDOUT = WScript.StdOut

If Args.Count <> 1 Then
    STDOUT.WriteLine "Usage:  C:\> cscript  Win32_SID.vbs  <SID>"
    WScript.Quit(1)
End If

BEGIN CALLOUT A
Set wmiService = GetObject("winmgmts:{impersonationLevel=Impersonate}")
Set wmiSID = wmiService.Get("Win32_SID.SID='" & Args.Item(0) & "'")

STDOUT.WriteLine "Win32_SID Properties"
STDOUT.WriteLine "--------------------"
STDOUT.WriteLine "AccountName:          " & wmiSID.AccountName
STDOUT.WriteLine "ReferencedDomainName: " & wmiSID.ReferencedDomainName
STDOUT.WriteLine "SID [String]:         " & wmiSID.SID
STDOUT.WriteLine "SidLength:            " & wmiSID.SidLength
END CALLOUT A