Netzwerkdrucker per Logonscript

[kwakS 10]

Hallo zusammen,

 

ich möchte unseren Printserver erneuern(Änderung des Names inkl) und habe 2 Scripte gebaut.

Im ersten Script wird der momentane default printer in eine Textdatei geschrieben. Die Datei enthält dann den String

"\\w2k8\pr001"

Im nächsten Step wird (wenn es einen neuen PrintServer gibt) der bisherige Drucker umbenannt:

 

strsrvold = "\\w2k8"
strsrvnew = "\\w2k8\hom"
strLine = objFile.ReadLine
strLine = Replace(strLine, strsrvold, strsrvnew)

die Variable enthält nun den String "\\w2k8\hompr001"

 

Jetzt möchte ich die Variable nutzen um den neuen Drucker zu verbinden:

 

dim objPrinter
Set objPrinter = CreateObject("WScript.Network") 
objPrinter.AddWindowsPrinterConnection strLine 

Aber das Funktioniert nicht.

Es kommt die Fehlermeldung, dass der Druckername unzulässig ist.

 

Kann mir jemand weiterhelfen?

[d.stegemann 10]

Hallo kwakS,

 

ich bin mir nicht ganz sicher, ob dir das weiterhilft...

 

Wenn du einen lokalen Printer mappen willst, musst du

 

Set WshNetwork = WScript.CreateObject("WScript.Network")
WshNetwork.AddPrinterConnection "LPT1", "\\Server\Print1"

 

benutzen...

 

ansonsten ist dein

 

Set WshNetwork = WScript.CreateObject("WScript.Network")
PrinterPath = "\\printserv\DefaultPrinter"
WshNetwork.AddWindowsPrinterConnection PrinterPath
' WshNetwork.SetDefaultPrinter PrinterPath

 

Code(ich hab das mal ein wenig verallgemeinert)auf den ersten Blick syntaktisch vollkommen i.O.

 

Könntest ja mal die genaue Fehlerausgabe posten(Error Nummer und Text...)

Hast du denn schonmal probiert das ganze "hartkodiert" zu mappen?

Ich meine wirklich nur Strings reinzuschreiben und keine Variablen zu nutzen.

 

 

Gruß

 

Dirk