[windows2000] Re: Actions that synch in the domain
- From: "Sullivan, Glenn" <GSullivan@xxxxxxxxxxxxxx>
- To: "'windows2000@xxxxxxxxxxxxx'" <windows2000@xxxxxxxxxxxxx>
- Date: Tue, 21 Oct 2003 20:15:43 -0400
OK, you asked...
This script requires the IADSTool.DLL, which I believe can be found in the
support.cab on the Win2K Server CD.
It first gets the default naming context, which is the current domain name.
Then it gets a collection of Domain Controllers fromthe "Domain Controllers"
OU.
Then it performs nested loops, forcing a synch between each pair of Domain
controllers.
<------------Start Script----------->
1.Option Explicit
2.
3.Dim objRootDSE, objOU, comDLL
4.Dim strDomainName
5.Dim objDomainController, objDomainController2
6.Dim intResult
7.
8.Set objRootDSE = GetObject("LDAP://rootDSE";)
9.strDomainName = objRootDSE.Get("defaultNamingContext")
10.wscript.echo "Beginning Synch for " & strDomainName
11.WScript.Echo "---------------------------------------------------"
12.WScript.Echo
13.
14.Set objOU = GetObject("LDAP://OU=Domain Controllers," & strDomainName)
15.Set comDLL = CreateObject("IADsTools.DCFunctions")
16.
17.For Each objDomainController In objOU
18. For Each objDomainController2 In objOU
19. If objDomainController.cn <> objDomainController2.cn Then
20. WScript.echo " Requesting Synch between " & objDomainController.cn
& " and " & objDomainController2.cn
21. intResult = comDLL.ReplicaSync(CStr(objDomainController.cn),
CStr(strDomainName), CStr(objDomainController2.cn))
22. If intResult=0 Then
23. wscript.echo " Completed successfully."
24. Else
25. wscript.echo " Failed " & comDLL.LastErrorText
26. End If
27. WScript.Echo
28. End If
29. Next
30.Next
<------------End Script--------------->
Watch for line wrap. Each line is numbered, and the numbers should be
removed.
HTH,
Glenn Sullivan, MCSE+I MCDBA
David Clark Company Inc.
-----Original Message-----
From: Chris Berry [mailto:compjma@xxxxxxxxxxx]
Sent: Tuesday, October 21, 2003 4:56 PM
To: windows2000@xxxxxxxxxxxxx
Subject: [windows2000] Re: Actions that synch in the domain
>From: "Sullivan, Glenn" <GSullivan@xxxxxxxxxxxxxx>
>BTW, I wrote a VBScript that forces a synch between all DC's, if anyone is
>interested...
Hey, that's pretty cool, how does that work?
Chris Berry
compjma@xxxxxxxxxxx
Systems Administrator
JM Associates
"We are successful when our bosses wonder what it is we do all day." -- Tim
Mullen
_________________________________________________________________
Concerned that messages may bounce because your Hotmail account has exceeded
its 2MB storage limit? Get Hotmail Extra Storage!
http://join.msn.com/?PAGE=features/es
********************************************************
This Week's Sponsor - RTO Software / TScale
What's keeping you from getting more from your terminal servers? Did you
know, in most cases, CPU Utilization IS NOT the single biggest constraint to
scaling up?! Get this free white paper to understand the real constraints &
how to overcome them. SAVE MONEY by scaling-up rather than buying more
servers.
http://www.rtosoft.com/Enter.asp?ID=147
**********************************************************
To Unsubscribe, set digest or vacation
mode or view archives use the below link.
http://thethin.net/win2000list.cfm
********************************************************
This Week's Sponsor - RTO Software / TScale
What's keeping you from getting more from your terminal servers? Did you know,
in most cases, CPU Utilization IS NOT the single biggest constraint to scaling
up?! Get this free white paper to understand the real constraints & how to
overcome them. SAVE MONEY by scaling-up rather than buying more servers.
http://www.rtosoft.com/Enter.asp?ID=147
**********************************************************
To Unsubscribe, set digest or vacation
mode or view archives use the below link.
http://thethin.net/win2000list.cfm
Other related posts:
