Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Netzwerkdrucker mit neuem Server verbinden
Autor: Dontom
Datum: 21.11.07 09:29
Hallo, ich da folgendes Problem. 1. Windows 2003 Domäne 2. Windows 2000 Clients 3. Manche User sind mit Netzwerkdrucker auf Server alt verbunden 4. Ziel ist, dass alle User mit Netzwerkdrucker auf Server neu verbunden sind Mein Problem nun, ich habe leider wenig Ahnung von VBS und habe ein Angefangenes Script von einem ehemaligen Kollegen übernommen das so nicht funktioniert. Ich füge es mal ein und vielleicht erbarmt sich jemand mir da weiter zu helfen. Vielen Dank im voraus, Tom   'Alle Drucker auslesen... set wshnetwork = Wscript.CreateObject("Wscript.Network") On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_Printer",,48) For Each objItem in colItems 'Ist es ein Netzwerkdrucker? If InStr(objItem.Name, "\\") >= 1 Then Temp = InStr(objItem.Name, "\\") Bla = Mid(objItem.Name,Temp + 2,Len(objItem.Name)) Temp = InStr(Bla, "\") ServerName = Mid(Bla,1,Temp - 1) PrinterName = Mid(Bla,Temp + 1, Len(Bla)) If ServerName <> "Kofek-dienste" Then MsgBox objItem.Name 'Den alten Drucker löschen wshnetwork.RemovePrinterConnection objItem.Name MsgBox objItem.Name & " wurde getrennt!" 'Neuen Drucker hinzufügen wshnetwork.addwindowsprinterconnection "\\Kofek-dienste\" & PrinterName MsgBox "\\Kofek-dienste\" & PrinterName & " wurde verbunden" End If End If Next

Netzwerkdrucker mit neuem Server verbinden

4.098

Dontom

21.11.07 09:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen