Script zur Verknüpfung von GPOs zu OUs (erweitern)

Do
	OUType = InputBox("Waehlen Sie die gewünschte OU zum Verlinken aus" & vbnewline & vbnewline & _  
		"1 = Alle Benutzer OUs" & vbnewline & _  
		"2 = Alle Desktop OUs" & vbnewline & _  
		"3 = Alle Desktop -Windows2000 OUs" & vbnewline & _  
		"4 = Alle Desktop -WindowsXP OUs" & vbnewline & _  
		"5 = Alle Desktop -WindowsVista OUs" & vbnewline & _  
		"6 = Alle Notebook OUs" & vbnewline & _  
		"7 = Alle Notebook -Windows2000 OUs" & vbnewline & _  
		"8 = Alle Notebook -WindowsXP OUs" & vbnewline & _  
		"9 = Alle Notebook -WindowsVista OUs" & vbnewline & vbnewline & _  
		"0 = Abbruch", _  
		"GPO zu OUs Verlinken")  

	blnOK = True
	If OUType = "" Then OUType = "0"  

	If Not IsNumeric(OUType) Then
		blnOK = False
		MsgBox "Nur eine Zahl zwischen 0 und 9 eingeben!", vbCritical, "Hinweis"  
	Else
		OUType = Abs(CInt(OUType))
		Select Case OUType
		Case 0: WScript.Quit
		Case 1: OUFile="C:\01-Alle-BenutzerOUs.txt"  
		Case 2: OUFile="C:\02-Alle-DesktopOUs.txt"  
		Case 3: OUFile="C:\03-Alle-DesktopW2kOUs.txt"  
		Case 4: OUFile="C:\04-Alle-DesktopXPOUs.txt"  
		Case 5: OUFile="C:\05-Alle-DesktopVistaOUs.txt"  
		Case 6: OUFile="C:\06-Alle-NotebookOUs.txt"  
		Case 7: OUFile="C:\07-Alle-NotebookW2kOUs.txt"  
		Case 8: OUFile="C:\08-Alle-NotebookXPOUs.txt"  
		Case 9: OUFile="C:\09-Alle-NotebookVistaOUs.txt"  
		Case Else
			blnOK = False
			MsgBox "Nur eine Zahl zwischen 0 und 9 eingeben!", vbCritical, "Hinweis"  
		End Select
	End If
Loop Until blnOK

Set fso = CreateObject("Scripting.FileSystemObject")  
If Not fso.FileExists(OUFile) Then
	MsgBox "Datei " & OUFile & " wurde nicht gefunden - " & vbCrLF & _  
		"bitte benachrichtigen Sie ...", _  
		vbCritical, "Hinweis"  
	WScript.Quit
End If

WScript.Echo "OUs aus der Datei " & OUfile & " werden benutzt."  

Do
	GPOStatus = InputBox("Bitte geben Sie den Status der verlinkten GPO an" & vbnewline & vbnewline & _  
		"1 = deaktiviert" & vbnewline & _  
		"2 = aktiviert" & vbnewline & vbnewline & _  
		"0 = Abbruch", _  
		"Eingabe der Richtlinie")  

	blnOK = True
	If GPOStatus = "" Then GPOStatus = "0"  

	If Not IsNumeric(GPOStatus) Then
		blnOK = False
		MsgBox "Nur eine Zahl zwischen 0 und 2 eingeben!", vbCritical, "Hinweis"  
	Else
		GPOStatus = Abs(CInt(GPOStatus))
		Select Case GPOStatus
		Case 0: WScript.Quit
		Case 1, 2: strGPOLinkOptions = CStr(GPOStatus)
		Case Else
			blnOK = False
			MsgBox "Nur eine Zahl zwischen 0 und 2 eingeben!", vbCritical, "Hinweis"		  
		End Select
	End If
Loop Until blnOK

Do
	GPOName = InputBox("Bitte geben Sie den Namen der zu verlinkenden Richtlinie ein" & vbCrLF & vbCrLF & _  
		"oder wählen Sie 'Abbrechen'!", _  
		"Eingabe der Richtlinie")  

	If GPOName = "" Then WScript.Quit  
	
	blnOK = True
	strGPODisplayName = GPOName
	strGPOADsPath = GetGPOADsPath
	If strGPOADsPath = "" Then  
		blnOK = False
		MsgBox GPOName & " wurde nicht gefunden!", vbCritical, "Hinweis"  
	End If
Loop Until blnOK = True

strNewGPLink = "[" & strGPOADsPath & ";" & strGPOLinkOptions & "]"  

On Error Resume Next
aOU = Split(fso.OpenTextFile(OUFile, 1).ReadAll, vbCrLF)
For Each strOU In aOU
	Set objContainer = GetObject _
		("LDAP://ou=" & strOU & ",DC=ADS,DC=meinedomain,DC=NET")   
	strExistingGPLink = objContainer.Get("gPLink")  

	objContainer.Put "gPLink", strExistingGPLink & strNewGPLink  
	objContainer.Put "gPOptions", "0"  
	objContainer.SetInfo
Next

MsgBox "Verlinkungen vorgenommen.", vbInformation  

'########## Ende Hauptprogramm ##########  

Function GetGPOADsPath
    Set objConnection = CreateObject("ADODB.Connection")    
    objConnection.Open "Provider=ADsDSOObject;"     
 
    Set objCommand = CreateObject("ADODB.Command")  
    objCommand.ActiveConnection = objConnection
 
    objCommand.CommandText = _
      "<LDAP://cn=Policies,cn=System,DC=ADS,DC=meinedomain,DC=NET>;;" & _  
          "distinguishedName,displayName;onelevel"  
    Set objRecordSet = objCommand.Execute
 
    Do Until objRecordSet.EOF
        If objRecordSet.Fields("displayName") = strGPODisplayName Then  
          GetGPOADsPath = "LDAP://" & objRecordSet.Fields("distinguishedName")  
          objConnection.Close
          Exit Function
        End If
        objRecordSet.MoveNext
    Loop
    objConnection.Close
End Function

strGPOADsPath = GetGPOADsPath
If strGPOADsPath = "" Then ... 'nicht gefunden