Top-Themen

Aktuelle Themen (A bis Z)

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

Druckerinstallation per WSH

Frage Entwicklung VB for Applications

Mitglied: derfeivel85

derfeivel85 (Level 1) - Jetzt verbinden

10.02.2009, aktualisiert 12.02.2009, 2681 Aufrufe, 2 Kommentare

Fehlermeldungen bei wenigen Rechnern im Netzwerk. Nicht Profil abhängig da auf anderen Rechner unter gleichem Login kein Fehler.

Hallo zusammen,

bei uns läuft mit der Anmeldung folgendes Script:

01.
 
02.
const kActionUnknown     = 0 
03.
const kActionAdd         = 1 
04.
const kActionAddConn     = 2 
05.
const kActionDel         = 3 
06.
const kActionDelConn     = 4 
07.
const kActionList        = 5 
08.
const kActionDelAll      = 6 
09.
const kActionDelConnAll  = 7 
10.
 
11.
const kErrorSuccess      = 0 
12.
const KErrorFailure      = 1 
13.
 
14.
const kPrinterNetwork    = 16                              
15.
const kLocalPrinterFlag  = 64 
16.
 
17.
 
18.
19.
' Delete a printer connection 
20.
21.
function DelPrinterConnection(strPrinter) 
22.
 
23.
    on error resume next 
24.
 
25.
 
26.
 
27.
    dim oMaster 
28.
    dim iRetval 
29.
     
30.
    set oMaster = CreateObject("PrintMaster.PrintMaster.1") 
31.
 
32.
    oMaster.PrinterConnectionDel strPrinter 
33.
 
34.
    if Err.Number = kErrorSuccess then 
35.
 
36.
          
37.
        iRetval = kErrorSuccess 
38.
 
39.
    else 
40.
                      
41.
        iRetval = kErrorFailure              
42.
         
43.
    end if 
44.
     
45.
    DelPrinterConnection = iRetval 
46.
 
47.
end function 
48.
 
49.
    dim oMaster 
50.
    dim oPrinter 
51.
    dim iTotal 
52.
    dim iCount 
53.
     
54.
55.
    ' Total number of connections found 
56.
57.
    iTotal = 0 
58.
     
59.
60.
    ' Total number of connections deleted 
61.
62.
    iCount = 0 
63.
     
64.
    set oMaster = CreateObject("PrintMaster.PrintMaster.1") 
65.
 
66.
    for each oPrinter in oMaster.Printers 
67.
 
68.
        if Err.Number = kErrorSuccess then 
69.
         
70.
71.
            ' Test if the printer is not local  
72.
            '     
73.
            if (oPrinter.Attributes and kLocalPrinterFlag) <> kLocalPrinterFlag then 
74.
    
75.
                iTotal = iTotal + 1 
76.
                 
77.
                if DelPrinterConnection(oPrinter.PrinterName) = kErrorSuccess then 
78.
                 
79.
                    iCount = iCount + 1 
80.
                     
81.
                end if 
82.
                                                                 
83.
                Err.Clear            
84.
             
85.
            end if 
86.
            
87.
                                                     
88.
        end if 
89.
 
90.
    next 
91.
 
92.
 
93.
Set WshNetwork = CreateObject("WScript.Network") 
94.
dim txt,sig 
95.
 
96.
 
97.
txt=WshNetWork.ComputerName 
98.
sig=Left(txt,1) 
99.
 
100.
strPrinterPath1 = "\\strserv\" & sig & "-D22-sw" 
101.
strPrinterPath2 = "\\strserv\" & sig & "-D39-Kopierer" 
102.
strPrinterPath3 = "\\strserv\" & sig & "-D39-Farbe" 
103.
strPrinterPath4 = "\\strserv\" & sig & "-D40-sw" 
104.
strPrinterPath5 = "\\strserv\" & sig & "-D42-sw" 
105.
strPrinterPath6 = "\\strserv\" & sig & "-D43-sw" 
106.
strPrinterPath7 = "\\strserv\" & sig & "-D47-sw" 
107.
strPrinterPath8 = "\\strserv\" & sig & "-D53-sw" 
108.
strPrinterPath9 = "\\strserv\" & sig & "-D55-sw" 
109.
strPrinterPath10 = "\\strserv\" & sig & "-D56-sw" 
110.
strPrinterPath11 = "\\strserv\" & sig & "-D60-SW" 
111.
strPrinterPath12 = "\\strserv\" & sig & "-G06-SW" 
112.
strPrinterPath13 = "\\strserv\" & sig & "-D46-sw" 
113.
strPrinterPath14 = "\\strserv\" & sig & "-D52-sw" 
114.
 
115.
 
116.
 
117.
' Beispiel 
118.
'strPrinterPath2 = "\\s-server\" & sig & "Farbe" 
119.
 
120.
 
121.
WshNetwork.AddWindowsPrinterConnection strPrinterPath1 
122.
WshNetwork.AddWindowsPrinterConnection strPrinterPath2 
123.
WshNetwork.AddWindowsPrinterConnection strPrinterPath3 
124.
WshNetwork.AddWindowsPrinterConnection strPrinterPath4 
125.
WshNetwork.AddWindowsPrinterConnection strPrinterPath5 
126.
WshNetwork.AddWindowsPrinterConnection strPrinterPath6 
127.
WshNetwork.AddWindowsPrinterConnection strPrinterPath7 
128.
WshNetwork.AddWindowsPrinterConnection strPrinterPath8 
129.
WshNetwork.AddWindowsPrinterConnection strPrinterPath9 
130.
WshNetwork.AddWindowsPrinterConnection strPrinterPath10 
131.
WshNetwork.AddWindowsPrinterConnection strPrinterPath11 
132.
WshNetwork.AddWindowsPrinterConnection strPrinterPath12 
133.
WshNetwork.AddWindowsPrinterConnection strPrinterPath13 
134.
WshNetwork.AddWindowsPrinterConnection strPrinterPath14 
135.
 
136.
'Drucker Als default setzen 
137.
'WshNetwork.SetDefaultPrinter strPrinterPath3 
138.
 
139.
dim cRechnername, one, two 
140.
 
141.
txt=WshNetWork.ComputerName 
142.
one = Left(txt,1) 
143.
two = Mid(txt,3,3)  
144.
cRechnername = one & "-" & two 
145.
 
146.
'############## 
147.
'Raum S-D22 
148.
'############## 
149.
if "S-D22" = cRechnername then 
150.
                 
151.
	WshNetwork.SetDefaultPrinter strPrinterPath1 
152.
end if 
153.
 
154.
 
155.
'############## 
156.
'Raum S-D40 
157.
'############## 
158.
if "S-D40" = cRechnername then 
159.
  
160.
	WshNetwork.SetDefaultPrinter strPrinterPath4 
161.
end if 
162.
 
163.
'############## 
164.
'Raum S-D42 
165.
'############## 
166.
if "S-D42" = cRechnername then 
167.
  
168.
	WshNetwork.SetDefaultPrinter strPrinterPath5 
169.
end if 
170.
 
171.
 
172.
'############## 
173.
'Raum S-D43 
174.
'############## 
175.
if "S-D43" = cRechnername then 
176.
	                 
177.
	WshNetwork.SetDefaultPrinter strPrinterPath6 
178.
 
179.
end if 
180.
 
181.
 
182.
 
183.
'############## 
184.
'Raum S-D44 
185.
'############## 
186.
if "S-D44" = cRechnername then 
187.
	                 
188.
	WshNetwork.SetDefaultPrinter strPrinterPath4 
189.
 
190.
end if 
191.
 
192.
 
193.
 
194.
'############## 
195.
'Raum S-D46 
196.
'############## 
197.
if "S-D46" = cRechnername then 
198.
	                 
199.
	WshNetwork.SetDefaultPrinter strPrinterPath13 
200.
end if 
201.
 
202.
 
203.
'############## 
204.
'Raum S-D47 
205.
'############## 
206.
if "S-D47" = cRechnername then 
207.
	                 
208.
	WshNetwork.SetDefaultPrinter strPrinterPath7 
209.
 
210.
end if 
211.
 
212.
 
213.
'############## 
214.
'Raum S-D52 
215.
'############## 
216.
if "S-D52" = cRechnername then 
217.
	                 
218.
	WshNetwork.SetDefaultPrinter strPrinterPath14 
219.
 
220.
end if 
221.
 
222.
 
223.
 
224.
'############## 
225.
'Raum S-D53 
226.
'############## 
227.
if "S-D53" = cRechnername then 
228.
	                 
229.
	WshNetwork.SetDefaultPrinter strPrinterPath8 
230.
 
231.
end if 
232.
 
233.
 
234.
 
235.
'############## 
236.
'Raum S-D55 
237.
'############## 
238.
if "S-D55" = cRechnername then 
239.
	                 
240.
	WshNetwork.SetDefaultPrinter strPrinterPath9 
241.
 
242.
end if 
243.
 
244.
 
245.
 
246.
 
247.
'############## 
248.
'Raum S-D56 
249.
'############## 
250.
if "S-D56" = cRechnername then 
251.
	                 
252.
	WshNetwork.SetDefaultPrinter strPrinterPath10 
253.
 
254.
end if 
255.
 
256.
 
257.
	 
258.
 
259.
 
260.
'############## 
261.
'Raum S-D60 
262.
'############## 
263.
if "S-D60" = cRechnername then 
264.
	                 
265.
	WshNetwork.SetDefaultPrinter strPrinterPath11 
266.
 
267.
end if 
268.
 
269.
 
270.
'############## 
271.
'Raum S-G06 
272.
'############## 
273.
if "S-G06" = cRechnername then 
274.
	                 
275.
	WshNetwork.SetDefaultPrinter strPrinterPath12 
276.
 
277.
end if
Dieses soll den passenden Drucker nach dem jeweiligen Rechnername installieren. ( Rechnername = D-60 = Drucker des Raums D-60)

Das hat bisher auch immer gut funktioniert. Nun haben wir aber das 2. mal seit Weihnachten folgendes Problem:

User meldet sich an und bekommt folgende Fehlermeldung:

48325bea2796e47d5eae90bf4ae6a0c4-1 - Klicke auf das Bild, um es zu vergrößern

Es wird der 1. Drucker der Liste der Räume genommen, sprich der Drucker von D-22.
Userprofil neu machen ohne Erfolg
Rechner neu installiert hat nur bei 1 von 4 Rechnern das Problem behoben.
WSH neu installiert - ohne Erfolg
regsrv32 /u prnadmin.dll - ohne Erfolg

Findet jmd den Fehler? Schon kurz vor Weihnachten waren die gleichen Drucker betroffen: D-60; D-53; D-43. D-42 ist nach Rechnerneuinstallation wieder funktionstüchtig, Rechner D-40-02 war an Weihnachten betroffen, bisher nicht.


Kann mir jmd noch nen Tipp geben???

Vielen Dank schonmal.
Mitglied: 60730
10.02.2009 um 16:55 Uhr
Servus,

schau dir mal die Formatierungshilfe an und stelle dein .vbs in Code Blöcke, so macht es mehr Spass Zeile 124 zu finden.

Gruß
Bitte warten ..
Mitglied: derfeivel85
12.02.2009 um 10:00 Uhr
Hoffe so ist es besser und ich hab die Formatierungshilfe richtig genutzt
Bitte warten ..
Ähnliche Inhalte
Windows Netzwerk
Druckerinstallation im LAN
Frage von markaurelWindows Netzwerk19 Kommentare

Guten Abend! Welche Art der (Netzwerk-)Druckerinstallation ist eurer Meinung nach in einem (kleinen) LAN mit ca. 30 Clients zu ...

Windows Server
Probleme bei der Druckerinstallation - Terminalserver
Frage von Forseti2003Windows Server

Hallo, mal wieder mit einem Problem unterwegs, eventuell hat jemand eine Idee. Szenario: Terminalserver Windows 2012 R2 (2 Stück, ...

Batch & Shell
VBS, Powershell,WSH oder doch noch CMD ???
gelöst Frage von Viper-BerlinBatch & Shell2 Kommentare

Servus Leute, hätte eine Frage ich hab bis jetzt CMD Skripte geschrieben und die Syntax ist eine Katastrophe genau ...

Drucker und Scanner
Windows 7 Pro - keine Druckerinstallation möglich (fehlender Druckprozessor?)
gelöst Frage von VGem-eDrucker und Scanner7 Kommentare

Hallo liebe Kollegen, nach Umstieg des Printservers auf 2012 R2 konnte ich bis auf einen Domänenclient alle PCs mit ...

Neue Wissensbeiträge
Windows 10

Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App

Tipp von kgborn vor 1 TagWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...

Sicherheits-Tools

Achtung: Sicherheitslücke im FortiClient VPN-Client

Tipp von kgborn vor 1 TagSicherheits-Tools

Ich weiß nicht, wie häufig die NextGeneration Endpoint Protection-Lösung von Fortinet in deutschen Unternehmen eingesetzt wird. An dieser Stelle ...

Internet

USA: Die FCC schaff die Netzneutralität ab

Information von Frank vor 2 TagenInternet5 Kommentare

Jetzt beschädigt US-Präsident Donald Trump auch noch das Internet. Der neu eingesetzte FCC-Chef Ajit Pai ist bekannter Gegner einer ...

DSL, VDSL

ALL-BM200VDSL2V - Neues VDSL-Modem mit Vectoring von Allnet

Information von Lochkartenstanzer vor 2 TagenDSL, VDSL2 Kommentare

Moin, Falls jemand eine Alternative zu dem draytek sucht: Gruß lks

Heiß diskutierte Inhalte
Batch & Shell
Kann man mit einer .txt Datei eine .bat Datei öffnen?
Frage von HelloWorldBatch & Shell18 Kommentare

Wie schon im Titel beschrieben würde ich gerne durch einfaches klicken auf eine Text oder Word Datei eine Batch ...

Router & Routing
OpenWRT bzw. L.E.D.E auf Buffalo WZR-HP-AG300H - update
gelöst Frage von EpigeneseRouter & Routing11 Kommentare

Guten Tag, ich habe auf einem Buffalo WZR-HP-AG300H die alternative Firmware vom L.E.D.E Projekt geflasht. Ich bin es von ...

Windows Server
Ping auf einen bestimmten Server nicht möglich
gelöst Frage von a.thierWindows Server7 Kommentare

Hallo, ich habe folgendes Problem. srv-dc1: Ping srv-nav > geht Ping srv-exchange > geht nicht srv-exchange: Ping srv-dc1 > ...

Windows 10
Autsch: Microsoft bündelt Windows 10 mit unsicherer Passwort-Manager-App
Tipp von kgbornWindows 107 Kommentare

Unter Microsofts Windows 10 haben Endbenutzer keine Kontrolle mehr, was Microsoft an Apps auf dem Betriebssystem installiert (die Windows ...