Listing 2: The GetUserFromSID VBScript Function

Function GetUserFromSID(SID)
  Dim WMISID, Result

  On Error Resume Next
  Set WMISID = GetObject("winmgmts:{impersonationlevel=impersonate}!" _
    & "/root/cimv2:Win32_SID.SID='" & SID & "'")
  If Err = 0 Then
    Result = WMISID.ReferencedDomainName & "\" & WMISID.AccountName
  Else
    Result = ""
  End If

  GetUserFromSID = Result
End Function