Jump to content

Drucker VB Script


Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Empfohlene Beiträge

Hallo Leute,

 

ich hab ein Problem bzw eine Frage. Ich muss in einer Gewachsenen AD Umgebung ein Druckerscript einführen damit die Drucker verbunden werden. Eine weitere vorgabe ist in der Umgebung sind mehrere abteilungen vorhanden in jeder abteilung stehen 1-3 Drucker. Diese Drucker sollten nun so Verbunden werden das z.b der User Hans Mustermann die Drucker aus der Abteilung / OU Buchhaltung bekommt. Das Script soll per VB programmiert werden.

 

mein ansatz in vb ist nur so groß:

 

 

Set wshNetwork = CreateObject("WScript.Network")

WshNetwork.AddWindowsPrinterConnection ("\\Server\Drucker$")

 

WshNetwork.SetDefaultPrinter "\\\\Server\Drucker$"

 

vielen Dank im voraus

 

LG toby

Link zu diesem Kommentar

Hi ich löse es so mit OU`s

 

strPrintSRV = "192.168.0.1"

 

' ----------------------------------------------------------

' Fügt den Printer hinzu und Setzt ihn als Standard

' ---------- Muss angepasst werden------------

WSHNetwork.RemovePrinterConnection "\\" & strPrintSRV & "\HPLaser4200"

If IsMember("MIPDRUCKER") Then '--------- Drucker nach Gruppenzugehörigkeit zuordnen, falls notwendig (AD Gruppe hinzufügen)

WSHNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\HPLaser4200"

'WSHNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\HPLaser4200" ' ------ setzt den Drucker auf Standarddrucker!

'end if

 

Function IsMember(strGroup)

Dim objMember, objGroup

On Error Resume Next

Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")

If Err.Number = 0 Then

IsMember = objGroup.IsMember("WinNT://" & strDomain & "/" & strUserName)

End If

On Error Goto 0

End Function

 

 

Funktioniert bei mir mit dem Logonscript einwandfrei.

 

Gruss Rainer

Link zu diesem Kommentar
Der letzte Beitrag zu diesem Thema ist mehr als 180 Tage alt. Bitte erstelle einen neuen Beitrag zu Deiner Anfrage!

Schreibe einen Kommentar

Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung jetzt entfernen

  Only 75 emoji are allowed.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor-Fenster leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

×
×
  • Neu erstellen...