AD, W2003Svr, Drucker aus CSV-Datei per Script dem Host zuordnen?

'***********************************************************************  
' * * * * * * * * * * * * * * * * * * * * * * * * * * *  
'***********************************************************************  
'*	 Plattform:	Windows2003Server, x86		                            *  
'*	 Umgebung:	WindowsScriptingHost		                            *  
'*	 Dateiname:	PrinCon.vbs			                            *  
'*	 Arbeitstitel:	wsh_playground_6.vbs			            *  
'*	 Funktion:		Verbinde alle Drucker zu einem der Domain	            *  
'*                              	gehoerenden Host, setze den Standarddrucker (CSV)        *  
'*			ACHTUNG: Computerbezogen, nicht Benutzerbezogen !!    *  
'*	 Datum:		22. Oktober 2007			                             *  
'***********************************************************************  

' ===== legeVariablen explicit fest  
OPTION EXPLICIT	
' ===== Konstanten definieren  
CONST CSV_ORDNER = "Z:\Eigene Dateien\_code_bin\"  
CONST CSV_DATEI = "prn-csv.csv"  
CONST ForReading = 1
' ===== Variablen deklarieren  
DIM obj_NetHost, obj_NetPrnServer, WSHShell, FSO, obj_FSO, obj_fileExist
DIM FileIn, FileOut, TXT, TXT2
DIM Ar_Host, Ar_Prn, Ar_Prn0, Ar_Prn1, Ar_Prn2, Ar_Prn3, Ar_Prn4 
DIM host_current, host_fromCSV
PUBLIC status1, status2, status3, status4, status5, status6, status7

' ===== erzeuge ein Netzwerk-Objekt  
SET obj_NetHost = WScript.CreateObject ("WScript.Network")  
' ===== check computername here  
host_current = ""   
DO
	host_current = obj_NetHost.ComputerName
LOOP WHILE (host_current="")  

SET obj_FSO = CreateObject("Scripting.FileSystemObject")  
SET obj_fileExist = obj_FSO.GetFile(CSV_DATEI) 'zum pruefen, ob Datei leer ist  
IF obj_fileExist.Size > 0 THEN	
	'########################  HOT Code here: ########################  
	SET WSHShell = WScript.CreateObject("WScript.Shell")  
	SET FSO = CreateObject("Scripting.FileSystemObject")  
	SET FileIn = FSO.OpenTextFile(CSV_DATEI,1,TRUE)
	
	status1 = 0	
	DO WHILE NOT (FileIn.atEndOfStream)
		TXT = FileIn.ReadLine
		Ar_Host = Split(TXT,";",-1,1)  
		host_fromCSV = Ar_Host(0)
		Ar_Prn = Split(TXT,";",-1,1)  
		Ar_Prn0 = Trim(Ar_Prn(1))
		Ar_Prn1 = Trim(Ar_Prn(2))
		Ar_Prn2 = Trim(Ar_Prn(3))
		Ar_Prn3 = Trim(Ar_Prn(4))
		Ar_Prn4 = Trim(Ar_Prn(5))
		IF UCase(Trim(host_fromCSV)) > UCase(Trim(host_current)) THEN
		   WScript.Echo UCase(host_current) & " <---------> " & UCase(host_fromCSV) & vbCRLF & _  
						 "--------------------------------------------------------" & vbCRLF & _  
						 "Drucker 1: " & Ar_Prn0 & vbCRLF & _  
						 "Drucker 2: " & Ar_Prn1 & vbCRLF & _  
						 "Drucker 3: " & Ar_Prn2 & vbCRLF & _  
						 "Drucker 4: " & Ar_Prn3 & vbCRLF & _  
						 "Drucker 5: " & Ar_Prn4  
			status1 = 1
			EXIT DO
		END IF
	LOOP
	
' ===== Auswertung des Einlesens der CSV-Datei	  
SELECT CASE status1
	CASE 0
		WScript.Echo "Passender Eintrag in CSV-Datei nicht gefunden!" & vbCRLF _  
				   & "Druckerzuweisung wird abgebrochen!"  
	CASE 1
		WScript.Echo "Drucker: " & Ar_Prn0 &" zuweisen?"  
		SET obj_NetPrnServer = WScript.CreateObject("WScript.Network")  
		obj_NetPrnServer.AddPrinterConnection "LPT1", "\\print\" & Ar_Prn0 & ""   'DR102012"  
		'obj_NetServer.RemovePrinterConnection "LPT1", TRUE, TRUE  
		
	CASE ELSE
		WScript.Echo "Schwerer Fehler!"  
		objNetwork.RemovePrinterConnection
END SELECT
	
	'########################  End HOT Code here ########################  
	
ELSE
	Wscript.Echo "Die Datei > " & CSV_DATEI & " < ist leer oder existiert nicht."  
END IF

WScript.Quit
'*********************************************************************  
'***                                                      E N D E                                                             ***  
'*********************************************************************