VBScript - Gruppen Abfragen eines Windows Server (AD)

' Login.vbs  
' Login script mit Gruppenabfrage und Drucker zuweisung  
' michael.neumann@itech-consulting.net  
' Kunde: Teravolt / QTom  
' Stand: 21.02.2011  
' ====================================================  
' Deklaration der Variablen  
Option Explicit
Dim arNETLW, iz, zaehler, X64
Dim FSO, NetLW, colDrives, objNetwork, Network, USERNAME
Dim PrinterPath, PrinterDriver, AD_GRP_1, AD_GRP_2, PRINTER_PATH, PRINTER_DRV
Set FSO = CreateObject("Scripting.FileSystemObject")  
Set Network = Wscript.CreateObject("Wscript.Network")  

On Error Resume Next
	Dim WshShell
	Dim OsType
	
	Set WshShell = CreateObject("WScript.Shell")  
	OsType = WshShell.RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\PROCESSOR_ARCHITECTURE")  
	If OsType = "x86" then  
		'wscript.echo "Windows 32bit system detected"  
		X64 = "NO"  
	elseif OsType = "AMD64" then  
		'wscript.echo "Windows 64bit system detected"  
		X64 = "YES"		  
	end if

IF X64 = "YES" THEN  
	'NICHTS  
ELSE
	'ShowPrinter  
	RemoveNetPrinter	
'	SW-MFP-PS  
	NetUsePrinters "SW-MFP-PS","SW-MFP-PS_STD","\\SRV-01\SW-MFP-PS","HP Universal Printing PS"  
'	PCenter SW PS  
	NetUsePrinters "PCenter-SW-PS","PCenter-SW-PS_STD","\\SRV-01\PCenter-SW-PS","HP Universal Printing PS"	  
'	PCenter SW PCL6  
	NetUsePrinters "PCenter-SW-PCL6","PCenter-SW-PCL6_STD","\\SRV-01\PCenter-SW-PCL6","HP Universal Printing PCL6"  
	ShowPrinter
END IF

Function ShowPrinter	
	Dim strComputer, objWMIService, colInstalledPrinters, objPrinter
	strComputer = "localhost"  
	Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
	Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")  
	
	For Each objPrinter In colInstalledPrinters
		If InStr(1, objPrinter.Name, "\\", 1) Then  
			WScript.Echo "Name: " & objPrinter.Name  
		End If		
	Next
End Function

' Abfrage der AD Gruppen  
Function ValidateADGroup(AD_PACKAGE_GROUP) 
	Dim message 
	Dim objADSysInfo : Set objADSysInfo = CreateObject("ADSystemInfo")   
	Dim strUser : strUser = objADSysInfo.UserName 
	Dim strGroup 
	Dim objGroup 
	Dim objUser : Set objUser = GetObject("LDAP://" & strUser)   
	For Each strGroup in objUser.memberOf 
		Set objGroup = GetObject("LDAP://" & strGroup)   
		If InStr(objGroup.CN, AD_PACKAGE_GROUP) <> 0 Then 
			ValidateADGroup = True 
			Set objGroup = nothing 
			Exit Function
		Else 
			ValidateADGroup = False 
			Set objGroup = nothing 
		End If
	Next 
End Function

Function NetUsePrinters(AD_GRP_1,AD_GRP_2,PRINTER_PATH,PRINTER_DRV)
	if ValidateADGroup(AD_GRP_1) Then
		PrinterPath = PRINTER_PATH
		PrinterDriver = PRINTER_DRV		
		Network.AddWindowsPrinterConnection PrinterPath, PrinterDriver		
	ELSE
		' nichts		  
	End If
	if ValidateADGroup(AD_GRP_2) Then	
		Network.SetDefaultPrinter PrinterPath
	ELSE
		' nichts		  
	End If
End Function

Function RemoveNetPrinter
	wscript.echo "RemoveNetPrinter"  
	Dim strComputer, objWMIService, colInstalledPrinters, objPrinter
	strComputer = "localhost"  
	Set objWMIService = GetObject("winmgmts:" _  
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")  
	Set colInstalledPrinters =  objWMIService.ExecQuery _
    ("Select * from Win32_Printer")  
	
	For Each objPrinter In colInstalledPrinters
		' Sucht drucker die mit "\\" anfangen  
		If InStr(1, objPrinter.Name, "\\", 1) Then			  
			Network.RemovePrinterConnection + objPrinter.Name
		End If		
	Next
End Function