Ermittle aus einem Namen die dazugehörige SID. Die SID wird per InputBox abgefragt:

getSIDfrom Name.vbs

' SID eines Benutzers ermitteln /js
 
strSearch = InputBox("Zu welchem Namen wird die SID gesucht?")
Set objWMI = GetObject("winmgmts:")
strWQL = "select SID from win32_account where Name='" & strSearch & "'"
Set objResult = objWMI.ExecQuery(strWQL)
For Each objAcc In objResult
strResult = objAcc.SID
Next
InputBox "Die SID von " & strSearch & " lautet: ", , strResult

zurück