Database Search
If you can't find the information using the categories below, post a question over in our WinBatch Tech Support Forum.
TechHome
Samples from Users
- !!DISCLAIMER!!
- AD Syncronization
- Add Computer to an Active Directory Group
- ADSI COM Find Primary Group
- ADSI COM List Groups
- ADSI Create Group
- ADSI Extender Security Descriptor Sample
- ADSI Get OU Properties
- ADSI Get Subgroups of Group
- ADSI List Group Names and Email Property
- ADSI Primer
- ADSI Query String Creator
- Create a Mail Enabled Contact
- Create Enable and Disable User Account
- Create Exchange 2000 User Account
- Create IIS Virtual Directory
- Create User in AD with CSV file
- Delete Computer Account
- Determine if a WS and a server are in the same AD Site
- Determine LastLogin
- DsGetDcName
- Figure out User Account Attributes
- Get a list of users and write out to CSV file
- Get all Domain printers
- Get Date User Account was Created
- Get Nested User Groups
- Get TCP IP Configuration From Each Domain Controller
- Get User Information From Another Domain
- Getting E-Mail Address for all users in OU
- Group Exist
- Hierarchically Adding Users to Groups
- JoinDomain
- List ADSI Paths of Groups and their Members
- List All Servers in the Current Domain
- List Users
- OLE COM dsGetMemGrps Alternative
- Recursive DsGetMemGrp Example
- REmove User from Printer Object
- Set Home Directory for User
- Translate NT Name to LDAP Path
- Traverse OU and Generate a Report of Objects
- Useful ADSI Site server functions
Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.
AD Syncronization
Question:
I'm trying to sync my AD after some modifications to objects. I can get it to work with the following VB script, but can't figure it out in winbatch.Can someone help me out here? I'm sure lots of people can use this one! Think of not needing replmon to cross site boundaries..
Dim TargetServer
Dim SourceServer
Dim NamingContext
SourceServer="server"
NamingContext="DC=My,DC=Domain,DC=de"
Set DLL=CreateObject("IADsTools.DCFunctions")
DLL.SetReplicaSyncAllFlags=("DS_REPSYNCALL_PUSH_CHANGES_OUTWARD,DS_REPSYNCALL_CROSS_SITE_BOUNDARIES")
Result=DLL.ReplicaSyncall(Cstr(SourceServer),Cstr(NamingContext),1,0)
if result=-1 Then
Wscript.Echo "The error returned was: " + DLL.LastErrorText
else
Wscript.Echo "The command completed successfully."
end if
NOTE: The windows 2000 support tools (on the installation CD) need to be installed, and the iadstools.dll needs to be registered.
Answer:
Here is the WinBatch code to Syncronize Active Directory:
SourceServer="server"
NamingContext="DC=My,DC=Domain,DC=de"
objDCFunctions=CreateObject("IADsTools.DCFunctions")
objDCFunctions.SetReplicaSyncAllFlags="DS_REPSYNCALL_PUSH_CHANGES_OUTWARD,DS_REPSYNCALL_CROSS_SITE_BOUNDARIES"
result=objDCFunctions.ReplicaSyncall(SourceServer,NamingContext,1,0)
if result == -1
Message("ReplicaSyncall",StrCat("The error returned was: " , objDCFunctions.LastErrorText ) )
else
Message("ReplicaSyncall", "The command completed successfully.")
endif
objDCFunctions = 0
Article ID: W16327
File Created: 2005:02:18:12:19:48
Last Updated: 2005:02:18:12:19:48