Get Name from SID
Ermittle aus einer SID den dazugehörigen Namen.
Die SID wird per InputBox abgefragt:
- getNamefromSID.vbs
' 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
zurück