LISTING 1: Code to Translate a SID to a Username

strComputer = "."
strSID = "S-1-5-32-545"

Set objWMIService = _
	GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set objSID = objWMIService.Get("Win32_SID='" & strSID & "'")

WScript.Echo objSID.ReferencedDomainName & "\" & _
	objSID.AccountName