Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

Drucker per Script auf W2K3 Cluster anlegen

Frage Microsoft

Mitglied: nicknolte22

nicknolte22 (Level 1) - Jetzt verbinden

04.12.2008 um 14:35 Uhr, 4380 Aufrufe

Hallo,

ich muss die Drucker auf Windows 2003 Clustern mit ca. 3000 Druckerobjekten neu und mit anderen Treibern installieren. Bisher löse ich das über VBS mit einem Script das über WMI die Drucker und freigibt anlegt.

Auf einem normalen W2K3 Server klappt das ganz gut und ganz ohne Probleme. Geht das auch auf einem Cluster ebenso? Wie muss ich den Cluster ansprechen? Mache ich da einen Denkfehler beim Laden der Objekte und spreche so nur den Clusterknoten an?

Beispiel:
Geladene Objekte
Set objwmi = GetObject("winmgmts:{(LoadDriver)}!\\" & ".")
Set objNet = CreateObject("WScript.Network")
Set objNewPort = objwmi.Get ("Win32_TCPIPPrinterPort").SpawnInstance_
Set objNewPrinter = objwmi.Get("Win32_Printer").SpawnInstance_
Set objshell = CreateObject("WScript.Shell")
Set wmireg = GetObject("winmgmts:root/default:StdRegProv")


## Funktion InstallPrinter ##
Function InstallPrinter
On Error Resume Next

' Port anlegen
objNewPort.Name = strPRPort
objNewPort.Protocol = 1
objNewPort.HostAddress = strPRPort
objNewPort.PortNumber = "9100"
objNewPort.SNMPEnabled = True
objNewPort.Put_
WScript.sleep 500

' Drucker anlegen
objNewPrinter.DriverName = strPRDriver
objNewPrinter.PortName = strPRPort
objNewPrinter.DeviceID = strPRName
objNewPrinter.Location = strPRLocation
objNewPrinter.Comment = strPRComment
objNewPrinter.Network = True
objNewPrinter.Shared = True
objNewPrinter.ShareName = strPRName
objNewPrinter.DoCompleteFirst = True
WScript.sleep 1000

objNewPrinter.Put_

' PrinterDefaults Konfigurieren
If strDefPrintSet = "true" Then
WScript.echo "treffer für PRDefaults"
'Reg ReadKey und RegWriteKey abh. vom Treibername Binary Werte
result1 = wmireg.GetBinaryValue(HKEY_LOCAL_MACHINE, strDefKey, strPRDriver, conf1)
strPRConfKey = "SYSTEM\CurrentControlSet\Control\Print\" & strPRName
strPRDevMode = "Default DevMode"
result2 = wmireg.SetBinaryValue(HKEY_LOCAL_MACHINE, strPRConfKey, strPRDevMode, conf1)
conf1 = ""
End If


If Err.number <> o Then
strErr = "Achtung Drucker nicht installiert : " & strPRName & " " & Err.Description
WScript.Echo strErr
'Schreiben des Logfiles
objLogfile.WriteLine(Time & " " & strErr)
Else
strOK = "folgender Drucker installiert : " & strPRName & " Hersteller:" & " " & strManufacturer
WScript.Echo strOK
'Schreiben des Logfiles
objLogfile.WriteLine(Time & " " & strOK)
End If

On Error Goto 0
End Function
Neuester Wissensbeitrag
Exchange Server

WSUS bietet CU22 für Exchange 2007 SP3 nicht an. EOL Exchange 2007

Tipp von DerWoWusste zum Thema Exchange Server ...

Ähnliche Inhalte
Batch & Shell
gelöst Batch Drucker Script (3)

Frage von Angelo131095 zum Thema Batch & Shell ...

VB for Applications
gelöst Umstellung Printserver - Drucker anlegen (3)

Frage von trynerror zum Thema VB for Applications ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...

Windows Server
gelöst HA Cluster managen vom Domain-Controller? (2)

Frage von 1410640014 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Batch & Shell
gelöst Batch xls nach aktuellem Datum auslesen und email senden (14)

Frage von michi-ffm zum Thema Batch & Shell ...

Windows Server
SBS 2011 Standard virtualisieren (13)

Frage von HeinrichM zum Thema Windows Server ...

Backup
Datensicherung ARCHIV (12)

Frage von fautec56 zum Thema Backup ...

LAN, WAN, Wireless
Per Script auf UniFi-controller zugreifen und WPA2-Key ändern (11)

Frage von Winfried-HH zum Thema LAN, WAN, Wireless ...