Anmeldeskript für Drucker
Hallo zusammen
Ich möchte ein Anmeldeskript machen, das mir alle Drucker zuerst enfernt (um zu vermeiden dass falsche drin sind, dann die richtigen verbindet. Wie geht das:
1. Habe keinen Server
Arbeitsgruppe: 2Ö1P5S5SABBER92
Drucker 1: \\Pc-nnpejvwauwra\Druckerf.
Drucker 2: \\Pc-d0a8942ed5aa\IE37
Drucker 3: \\Pc-b3rzguruwy2\IE36
(Diese 3 PC's + Pc-d0a8942ed5aa sind im Netzwerk)
Vielen Dank
Ich möchte ein Anmeldeskript machen, das mir alle Drucker zuerst enfernt (um zu vermeiden dass falsche drin sind, dann die richtigen verbindet. Wie geht das:
1. Habe keinen Server
Arbeitsgruppe: 2Ö1P5S5SABBER92
Drucker 1: \\Pc-nnpejvwauwra\Druckerf.
Drucker 2: \\Pc-d0a8942ed5aa\IE37
Drucker 3: \\Pc-b3rzguruwy2\IE36
(Diese 3 PC's + Pc-d0a8942ed5aa sind im Netzwerk)
Vielen Dank
Please also mark the comments that contributed to the solution of the article
Content-ID: 11256
Url: https://administrator.de/contentid/11256
Printed on: December 7, 2024 at 21:12 o'clock
4 Comments
Latest comment
Du schreibst nicht, welche OS zu einsetzt.
Man darf aber wohl annehmen dass es sich um XP handelt.
Das Script trennt deine 3 Drucker und verbindet sie dann erneut,
Abschließend wird der an Pc-nnpejvwauwra angeschlossene als Standard gesetzt.
' ~~~~~~~~~~~~~
' ConnectPrinter.vbs
' ~~~~~~~~~~~~~
Option Explicit
On Error Resume Next
Dim WshNetwork
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.RemovePrinterConnection "\\Pc-nnpejvwauwra\Druckerf."
WshNetwork.RemovePrinterConnection "\\Pc-d0a8942ed5aa\IE37"
WshNetwork.RemovePrinterConnection "\\Pc-b3rzguruwy2\IE36"
WshNetwork.AddWindowsPrinterConnection "\\Pc-nnpejvwauwra\Druckerf."
WshNetwork.AddWindowsPrinterConnection "\\Pc-d0a8942ed5aa\IE37"
WshNetwork.AddWindowsPrinterConnection "\\Pc-b3rzguruwy2\IE36"
WshNetwork.SetDefaultPrinter "\\Pc-nnpejvwauwra\Druckerf."
Set WshNetwork = Nothing
' ~~~~~~~~~~~~~
PS: Glückwunsch zu den Rechnernamen Was hast du da genommen; Hashwerte?
Man darf aber wohl annehmen dass es sich um XP handelt.
Das Script trennt deine 3 Drucker und verbindet sie dann erneut,
Abschließend wird der an Pc-nnpejvwauwra angeschlossene als Standard gesetzt.
' ~~~~~~~~~~~~~
' ConnectPrinter.vbs
' ~~~~~~~~~~~~~
Option Explicit
On Error Resume Next
Dim WshNetwork
Set WshNetwork = Wscript.CreateObject("Wscript.Network")
WshNetwork.RemovePrinterConnection "\\Pc-nnpejvwauwra\Druckerf."
WshNetwork.RemovePrinterConnection "\\Pc-d0a8942ed5aa\IE37"
WshNetwork.RemovePrinterConnection "\\Pc-b3rzguruwy2\IE36"
WshNetwork.AddWindowsPrinterConnection "\\Pc-nnpejvwauwra\Druckerf."
WshNetwork.AddWindowsPrinterConnection "\\Pc-d0a8942ed5aa\IE37"
WshNetwork.AddWindowsPrinterConnection "\\Pc-b3rzguruwy2\IE36"
WshNetwork.SetDefaultPrinter "\\Pc-nnpejvwauwra\Druckerf."
Set WshNetwork = Nothing
' ~~~~~~~~~~~~~
PS: Glückwunsch zu den Rechnernamen Was hast du da genommen; Hashwerte?
Guy Thomas bspw. http://www.computerperformance.co.uk/
und natürlich das MS Scripting Center
http://www.microsoft.com/technet/scriptcenter/default.mspx
und natürlich das MS Scripting Center
http://www.microsoft.com/technet/scriptcenter/default.mspx
Hi,
ohne mich jetzt selber zu loben. Eine Anleitung zum Einbinden von Druckern via Kix, gibt es ein Tutorial von mir.
Anleitung: Anmeldeskript mit Kix erstellen -Part 1- Drucker und Laufwerke
Gruß Miguel
ohne mich jetzt selber zu loben. Eine Anleitung zum Einbinden von Druckern via Kix, gibt es ein Tutorial von mir.
Anleitung: Anmeldeskript mit Kix erstellen -Part 1- Drucker und Laufwerke
Gruß Miguel