'Dieses Script sammelt alle SIDs des lokalen Computers und der domäne der dieser Computer angehört 
'(mit Status) und schreibt sie in eine Textdatei
'##################################################################################################



On Error Resume Next

'Festlegen von Variablen und Vereinfachen von Programmzeilen durch erstellen von Programmumgebungsvariablen...
'####################################################################################################

Const ForReading = 1, ForWriting = 2, ForAppending = 8

	   strComputer = "."
   	   Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
           Set colItems = objWMIService.ExecQuery("Select * from Win32_Account",,48)

Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
   Dim fso, f, ts
   	   Set fso = CreateObject("Scripting.FileSystemObject")
   fso.CreateTextFile "test1.txt"   ' Erstellt eine Datei.
   	   Set f = fso.GetFile("test1.txt")
           Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
     

'############################################################################
'Vorbereiten der Textdatei...

   ts.Write "test1.txt"
   ts.WriteBlankLines(1)
   ts.WriteLine "SIDs der Domäne"
   ts.WriteBlankLines(3)
   
'############################################################################
'Sammeln der SIDs des lokalen Computers und der Domäne und screiben der Textdatei

For Each objItem in colItems
    ts.WriteLine( "Caption: " & objItem.Caption)
    ts.WriteLine( "Description: " & objItem.Description)
    ts.WriteLine( "Domain: " & objItem.Domain)
    ts.WriteLine( "InstallDate: " & objItem.InstallDate)
    ts.WriteLine( "Name: " & objItem.Name)
    ts.WriteLine( "SID: " & objItem.SID)
    ts.WriteLine( "SIDType: " & objItem.SIDType)
    ts.WriteLine( "Status: " & objItem.Status)
    ts.WriteBlankLines(1)
Next

'############################################################################
'Schliessen der Textdatei

ts.Close