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

Druckerinstallation per WSH

Frage Entwicklung VB for Applications

Mitglied: derfeivel85

derfeivel85 (Level 1) - Jetzt verbinden

10.02.2009, aktualisiert 12.02.2009, 2664 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 ..
Neuester Wissensbeitrag
Heiß diskutierte Inhalte
Windows Userverwaltung
Ausgeschiedene Mitarbeiter im Unternehmen - was tun mit den AD Konten? (29)

Frage von patz223 zum Thema Windows Userverwaltung ...

LAN, WAN, Wireless
FritzBox, zwei Server, verschiedene Netze (21)

Frage von DavidGl zum Thema LAN, WAN, Wireless ...

Viren und Trojaner
Aufgepasst: Neue Ransomware Goldeneye verbreitet sich rasant (20)

Link von Penny.Cilin zum Thema Viren und Trojaner ...

Windows Netzwerk
Windows 10 RDP geht nicht (18)

Frage von Fiasko zum Thema Windows Netzwerk ...