VBScript GetSID.vbs

Security Identifier, SID, ist ein eindeutiger Sicherheits-Identifikator, den Microsoft Windows automatisch vergibt, um jedes System, jeden Benutzer und jede Gruppe dauerhaft zu identifizieren.

Mit dem VBScript GetSID.vbs lassen sich die SID von Windows ausgeben.


'Description: Zeigt alle Benutzerkonten und SID
'Created on : Apr 5, 2010
'Prerequisite: Windows

Set WshShell = CreateObject("Wscript.Shell")
Set fso = Wscript.CreateObject("Scripting.FilesystemObject")
fName = WshShell.SpecialFolders("Desktop") &amp; "\GetSID.txt"
Set b = fso.CreateTextFile(fName, true)
b.writeblanklines 1
b.writeline string(61,"*")
b.writeline "Benutzerkonten mit SIDs und Profile-Pfade."
b.WriteLine "GetSID.vbs - 2010 by Don Metteo"
b.WriteLine "https://think.unblog.ch"
b.writeline string(61,"*")
b.writeblanklines 1

strProfileBranch = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" &amp; strComputer &amp; "\root\cimv2")
Set colAccounts = objWMIService.ExecQuery _
 ("Select * From Win32_UserAccount")

For Each objAccount in colAccounts
 If objAccount.Name = "HelpAssistant" or objAccount.Name = "SUPPORT_388945a0" then
 else
 b.writeline "Username : " &amp; objAccount.Name
 b.writeline "SID : " &amp; objAccount.SID
 b.writeline "Profile Path : " &amp; GetHomePath(objAccount.SID)
 b.writeblanklines 1
 end if
Next

Function GetHomePath(strSID)
 On Error Resume Next
 GetHomePath = WshShell.ExpandEnvironmentStrings(Trim(WshShell.RegRead (strProfileBranch &amp; strSID &amp; "\ProfileImagePath")))
 On Error Goto 0
End Function

b.writeline string(61,"*")
b.close
WshShell.Run "notepad.exe " &amp; fName

Set fso = Nothing
set Wshshell = Nothing

'Description: Zeigt alle Benutzerkonten und SID

'Created on : Apr 5, 2010

'Prerequisite: Windows

Set WshShell = CreateObject("Wscript.Shell")

Set fso = Wscript.CreateObject("Scripting.FilesystemObject")

fName = WshShell.SpecialFolders("Desktop") & "\GetSID.txt"

Set b = fso.CreateTextFile(fName, true)

b.writeblanklines 1

b.writeline string(61,"*")

b.writeline "Benutzerkonten mit SIDs und Profile-Pfade."

b.WriteLine "GetSID.vbs - 2010 by Don Metteo"

b.WriteLine "https://think.unblog.ch"

b.writeline string(61,"*")

b.writeblanklines 1

strProfileBranch = "HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion\ProfileList\"

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colAccounts = objWMIService.ExecQuery _

("Select * From Win32_UserAccount")

For Each objAccount in colAccounts

If objAccount.Name = "HelpAssistant" or objAccount.Name = "SUPPORT_388945a0" then

else

b.writeline "Username : " & objAccount.Name

b.writeline "SID : " & objAccount.SID

b.writeline "Profile Path : " & GetHomePath(objAccount.SID)

b.writeblanklines 1

end if

Function GetHomePath(strSID)

On Error Resume Next

GetHomePath = WshShell.ExpandEnvironmentStrings(Trim(WshShell.RegRead (strProfileBranch & strSID & "\ProfileImagePath")))

On Error Goto 0

End Function

b.writeline string(61,"*")

b.close

WshShell.Run "notepad.exe " & fName

Set fso = Nothing

set Wshshell = Nothing

Nach dem Ausführen des Scriptes werden die SID im Notepad geöffnet.

Wie nützlich war dieser Beitrag?

Klicke auf einen Stern, um ihn zu bewerten!

Durchschnittliche Bewertung / 5. Stimmenzahl:

Es tut mir leid, dass dieser Beitrag nicht hilfreich war!

Lass uns diesen Beitrag verbessern!

Sag mir, wie ich diesen Beitrag verbessern kann?

Vielen Dank für dein Feedback!

THINK TANK BLOG

Wie nützlich war dieser Beitrag?

Es tut mir leid, dass dieser Beitrag nicht hilfreich war!

RELATED POSTS:

Ein Gedanke zu „VBScript GetSID.vbs“

Schreibe einen Kommentar Antworten abbrechen

Wie nützlich war dieser Beitrag?

Du findest den Beitrag nützlich...

Es tut mir leid, dass dieser Beitrag nicht hilfreich war!

RELATED POSTS:

Ein Gedanke zu „VBScript GetSID.vbs“

Schreibe einen Kommentar Antworten abbrechen