Scripting the addition of Group Policy links

'GPOLLINK.VBS
'Purpose:  adds a Group Policy link to an existing Site, Domain, or OU 
'Syntax:  (from a command prompt) CSCRIPT GPOLLINK.VBS

'NOTE:  if you modify this script and pass variables to the IADSTOOLS functions, these variables
'must be typed when you pass them in.  Please see "Programs -> Windows 2000 Support Tools -> Tools Help"
'for more information

'in case the gpLink attribute isn't populated, continue anyway
On Error Resume Next

'the IADSTOOLS com object that ships with the Support Tools has many
'functions that make it easier to retrieve data stored in the DS

'instance the object
Set DLL=CreateObject("iadstools.dcfunctions")

'bind to the Site, Domain, or OU (SDOU) that you want to manage the links on
'specify the PDC name when doing this
Set SDOU=GetObject("LDAP://ServerName/dc=MyDomain,dc=com")

'call the IADSTOOLS function to enumerate the Group Policy Objects (GPOs)
Result=DLL.GetGPOs("MyDomain.com","ServerName")

'if a positive number of GPOs is returned, then list them
if result > 0 then
	'we found gpos in the list
	for i=1 to result
		'print them out to the display
		wscript.echo DLL.gponame(i)
		wscript.echo "     " & dll.gpoguid(i)
	next
else
	'we didn't find any - none to display
	wscript.echo "No GPOs were found."
end if

'again, if a positive number of GPOs is returned, than we can
'offer the user the option of linking a GPO to the selected SDOU
if Result > 0 then
	'display the SDOU we will be modifying just in case it is incorrect before they
	'make any modification
	wscript.echo ""
	wscript.echo "The SDOU you will be modifying is:"
	wscript.echo "     " & SDOU.adspath

	'ask the user for the textual name of the existing GPO to add
	askGUID=inputbox("Enter the name of the GPO to add (case is not important):")

	'if they hit cancel or entered nothing, exit
	if askGUID="" then
		'do nothing
	else
		'cycle through the GPOs we got back from IADSTOOLS and find the GPO the user
		'entered
		for i=1 to result
			'we drop both items being compared to lower case to rule out case
			if lcase(DLL.gponame(i))=lcase(askGUID) then
				'we found a match.  Determine the links that already exist, if any
				currentGPLIST=SDOU.get("gpLink")

				'construct a new link to add to the existing links
				currentGPLIST=currentGPLIST & "[LDAP://CN=" & DLL.gpoguid(i) & ",CN=Policies,CN=System," & DLL.getdefaultnamingcontext("ServerName") & ";0]"

				'write the new list back to the gpLink attribute on the SDOU
				SDOU.put "gpLink",currentGPLIST

				'commit the change
				SDOU.SetInfo

				'tell the user we completed successfully
				wscript.echo ""
				wscript.echo "Successfully added a link to this SDOU for the GPO (" & DLL.gponame(i) & ")"

				'only process the first one we come to that has the correct name
				Exit For
			end if
		next
	end if
end if