MIgration of 2000 server to 2003 1

[davidwilson11]

I am about to migrate from 2000 server to 2k3 server, active directory is in a complete mess and needs rebuilt from scratch which is fine by me.

What is the best tool to give me print out of all the users and there settings, groups etc. i basically need a tool to interogate AD. is this possible? I have looked at dameware but it is not up to the job, any help would be apprectiated.

 

[markdmac]

Check out Full Armour's Fazzam.

I hope you find this post helpful. Please let me know if it was.

Regards,

Mark

 

[davidwilson11]

markdmac,

thanks for the link i shall check it out and get back to you, i remember you helped me before with TS licenceing from 2003 to a 2000 server.

 

[markdmac]

Glad to be of service again.

I hope you find this post helpful. Please let me know if it was.

Regards,

Mark

 

[davidwilson11]

Mark, i had a play with it, but it doesnt really do what i need. What i need is a tool that will go in to AD and withdraw all the users, their email addresses and profiles etc and display it as a file of print out.

So that when i rebuild the DC i can simply look at a crib sheet and input the users and groups etc.

i cant see how the software would do this?

 

[markdmac]

You might be better off with using a custom VBScript to give you what you are looking for.

This script will get your users for you and tell you what groups they are in. Should not be that hard to extract the SMTP email addresses as well.

Option Explicit
Dim aCon, aCMD,aRst,sResultText,Grps,MemberList
Set aCon = CreateObject("ADODB.Connection")
Set aCmd = CreateObject("ADODB.Command")

aCon.provider="ADsDSOObject"
aCon.Open
aCmd.ActiveConnection = aCon

'******************************************************************************
'******************************************************************************
'CUSTOMIZE THE NEXT TWO LINES
aCmd.CommandText="<LDAP://CN=Users,DC=YourComany,DC=com>;" & "(objectClass=group);name,SamAccountName"
dom = "YourDomainName"
'******************************************************************************
'******************************************************************************


Set aRst = aCmd.Execute()
Do While Not aRst.EOF
	sResultText = sResultText & aRst.Fields("samAccountName") & vbCrLf
	'WScript.Echo aRst.Fields("samAccountName") & vbCrLf
	MemberList=RetrieveUsers(dom,aRst.Fields("samAccountName"))
	'WScript.Echo Memberlist
	sResultText = sResultText & memberlist & vbCrLf & "************************************" & vbCrLf
	
	aRst.MoveNext
Loop
'Wscript.Echo sResultText

Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fso.CreateTextFile (dom & "DomainGroupUsers.txt", ForWriting)
ts.write sResultText
MsgBox "Done"


'*****************************************************************************************
'*****************************************************************************************
Function RetrieveUsers(domainName,grpName)

dim dom
dim grp
dim GrpObj
dim mbrlist
dim mbr

'-------------------------------------------------------------------------------
' *** Enumerate Group Members ***
'-------------------------------------------------------------------------------

grp = grpName

' Build the ADSI query and retrieve the group object
Set GrpObj = GetObject("WinNT://" & domainName & "/" & grp & ",group")

' Loop through the group membership and build a string containing the names
for each mbr in GrpObj.Members
   mbrlist = mbrlist + "    " &mbr.name + vbCrLf
Next

'The next line returns mbrlist back up to the main body
RetrieveUsers=mbrlist

End Function

I hope you find this post helpful. Please let me know if it was.

Regards,

Mark