On Error Resume Next

SIDSTRING = ""

Set FSO = CreateObject("Scripting.FileSystemObject")
Set SIDFile = FSO.CreateTextFile("C:\SIDINFOFILE.TXT", True)

Message = "Enter the name of the computer to connect to." & vbCR
Message = Message & "Leave the period in the field to connect to the local computer"

Machine = InputBox(Message, "Input!!",".")
If Machine = "" Then WScript.Quit

strComputer = Machine
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_AccountSID",,48)
For Each objItem in colItems
'    Wscript.Echo "Element: " & objItem.Element
'    Wscript.Echo "Setting: " & objItem.Setting
SIDSTRING = SIDSTRING & objItem.Element & chr(13) & chr(10)
SIDSTRING = SIDSTRING & objItem.setting & chr(13) & chr(10) & chr(13) & chr(10)

Next

SIDFile.WriteLine SIDSTRING
SIDFILE.Close
Set FSO = Nothing

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run "%windir%\notepad " & "C:\SIDINFOFILE.TXT"
Set WshShell = Nothing