' Name eines Benutzers aus SID ermitteln 
strSearch = InputBox("Zu welcher SID wird der Name gesucht?")
Set objWMI = GetObject("winmgmts:")
strWQL = "select * from win32_account where SID='" & strSearch & "'"
Set objResult = objWMI.ExecQuery(strWQL)
For Each objAcc In objResult
strResult = objAcc.Name
Next
InputBox "Der Name von " & strSearch & " lautet: ", , strResult