----------COPY EVERYTHING BELOW THIS LINE----------

'This script will list all objects in your domain along with their SIDs.
'Created by Cheyenne Harden September 28 2006

On Error Resume Next

Const ADS_SCOPE_SUBTREE = 2
Const OPEN_FILE_FOR_WRITING = 2
Const ForReading = 1

Wscript.Echo "The output will be written to C:\SID.txt"

strFile = "SID.txt"
strWritePath = "C:\" & strFile
strDirectory = "C:\"

Set objFSO1 = CreateObject("Scripting.FileSystemObject")

If objFSO1.FileExists(strWritePath) Then
 Set objFolder = objFSO1.GetFile(strWritePath)

Else
 Set objFile = objFSO1.CreateTextFile(strDirectory & strFile)
 objFile = ""

End If

Set fso = CreateObject("Scripting.FileSystemObject")
Set textFile = fso.OpenTextFile(strWritePath, OPEN_FILE_FOR_WRITING)

Set objConnection = CreateObject("ADODB.Connection")
Set objCommand =   CreateObject("ADODB.Command")
objConnection.Provider = "ADsDSOObject"
objConnection.Open "Active Directory Provider"

Set objCOmmand.ActiveConnection = objConnection
objCommand.CommandText = _
    "Select Name, Location from 'LDAP://DC=YOUR DOMAIN HERE,DC=SUFFIX' " _
        & "Where objectClass='user'" 
objCommand.Properties("Page Size") = 1000
objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
Set objRecordSet = objCommand.Execute
objRecordSet.MoveFirst

Do Until objRecordSet.EOF
   
sUser = objRecordSet.Fields("Name").Value
sDomain = "YOUR DOMAIN HERE"

Set oUserAccount = GetObject("winmgmts://./root/cimv2") _
       .Get("Win32_UserAccount.Domain='" & sDomain & "'" _
     & ",Name='" & sUser & "'")

 sUserSID = oUserAccount.SID
 textFile.WriteLine ("Object: " & sUser & "  " &" SID: " & sUserSID)
 objRecordSet.MoveNext
Loop

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objArgs = Wscript.Arguments
Set objTextFile = objFSO.OpenTextFile(strWritePath, ForReading)

Do Until objTextFile.AtEndOfStream
 strReg = objTextFile.Readline
Loop

WScript.Echo "Task Completed!"

----------COPY EVERYTHING ABOVE THIS LINE----------

PLEASE MAKE SURE NO WORD WRAPPING IS HAPPENING IN YOUR SCRIPT!!!

To make this script work you will need three things!

1. You will need the name of your domain and place it where you see "YOUR DOMAIN HERE".
2. You will need the suffix for your domain (e.g. com, org, local). Place it where you see "SUFFIX".
3. You will need to be an Admin.

This information is provided "AS IS" with no warranties expressed or implied.

Comments

Add New Search

wholesale beads - wholesale beads     | 222.131.25.xxx | 20-11-2008 03:27:47 wholesale jewelry handmade jewelry handcrafted jewelry jewelry wholesale wholesale handmade jewelry pearl jewelry wholesale pearl jewelry wholesale turquoise jewelry wholesale coral jewelry wholesale shell jewelry wholesale gemstone jewelry wholesale crystal jewelry fashion jewelry wholesale jewellry [url=h... Reply | Quote 0   0

fashion jewelry - fashion jewelry     | 222.131.25.xxx | 20-11-2008 03:30:17 wholesale jewelry jewelry store fashion jewelry crystal jewelry jewelry wholesale pearl jewelry wholesale crystal wholesale pearl wholesale turquoise wholesale semi-precious jewelry wholesale coral wholesale shell wholesale swarovski crystal Reply | Quote 0   0

Write comment
Name:
Email:	do not notifynotify
Website:
Title:
UBBCode:	-color-aquablackbluefuchsiagraygreenlimemaroonnavyolivepurpleredsilvertealwhiteyellow -size-tinysmallmediumlargehuge
	Please input the anti-spam code that you can read in the image.

Powered by !JoomlaComment 3.12

Copyright (C) 2007 Alain Georgette / Copyright (C) 2006 Frantisek Hliva. All rights reserved.