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

gelöst Fehler abfrage in VBScript

Mitglied: Mobsmonster

Mobsmonster (Level 1) - Jetzt verbinden

18.03.2010, aktualisiert 15:38 Uhr, 5660 Aufrufe, 6 Kommentare

Wie bekomme ich eine Gemeinsame Fehler Abfrage hin???

Hallo Leute,

Da ich nicht so viel Erfahrung in VBScript habe bräuchte ich ein wenig hilfe...

Ich hätte gerne eine Gemeinsame Fehlermeldung jeweils für die Laufwerke und die Drucker.

Die Meldung soll ungefähr so aussehen
Laufwerke Erfolgreich verbunden !!!
Drucker Erfolgreich verbunden !!!!

OK
Laufwerk X: nicht verbunden !!!!
Drucker X nicht verbunden !!!
OK
01.
'Variable belegen 
02.
strPrintSRV = "Server1" 
03.
strFaxSRV = "server2" 
04.
strDataSRV = "server3" 
05.
 
06.
' Filesystemobject initialisieren 
07.
Set Check = CreateObject("Scripting.FileSystemObject") 
08.
 
09.
' Netzwerkobjekt initialisieren 
10.
Set WshNetwork = Wscript.CreateObject("Wscript.Network") 
11.
 
12.
' Laufwerk verbinden 
13.
 
14.
If Check.DriveExists("K:") Then 
15.
	MsgBox Err.Number & vbCrLf & Err.Description & "Laufwerk K: existiert schon." 
16.
Else 
17.
	WshNetwork.MapNetworkDrive "K:", "\\" & strDataSRV & "\Ordner" 
18.
	MsgBox Err.Number & vbCrLf & Err.Description & " !!! Laufwerk erfolgreich eingebunden !!!" 
19.
	 
20.
End If 
21.
 
22.
If Check.DriveExists("L:") Then 
23.
	MsgBox Err.Number & vbCrLf & Err.Description & "Laufwerk L: existiert schon." 
24.
Else 
25.
	WshNetwork.MapNetworkDrive "L:", "\\" & strDataSRV & "\Ordner" 
26.
	MsgBox Err.Number & vbCrLf & Err.Description & " !!! Laufwerk erfolgreich eingebunden !!!" 
27.
	 
28.
End If 
29.
 
30.
If Check.DriveExists("M:") Then 
31.
	MsgBox Err.Number & vbCrLf & Err.Description & "Laufwerk M: existiert schon." 
32.
Else 
33.
	WshNetwork.MapNetworkDrive "M:", "\\" & strDataSRV & "\Ordner" 
34.
	MsgBox Err.Number & vbCrLf & Err.Description & " !!! Laufwerk erfolgreich eingebunden !!!" 
35.
	 
36.
End If 
37.
 
38.
If Check.DriveExists("N:") Then 
39.
	MsgBox Err.Number & vbCrLf & Err.Description &  "Laufwerk N: existiert schon." 
40.
Else 
41.
	WshNetwork.MapNetworkDrive "N:", "\\" & strDataSRV & "\Ordner" 
42.
	MsgBox Err.Number & vbCrLf & Err.Description &  " !!! Laufwerk erfolgreich eingebunden !!!" 
43.
	 
44.
End If 
45.
 
46.
If Check.DriveExists("O:") Then 
47.
	MsgBox Err.Number & vbCrLf & Err.Description &  "Laufwerk O: existiert schon." 
48.
Else 
49.
	WshNetwork.MapNetworkDrive "O:", "\\" & strDataSRV & "\Ordner" 
50.
	MsgBox Err.Number & vbCrLf & Err.Description &  " !!! Laufwerk erfolgreich eingebunden !!!" 
51.
End If 
52.
 
53.
 
54.
' Drucker verbinden 
55.
 
56.
 
57.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker1" 
58.
 
59.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker2" 
60.
 
61.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker3" 
62.
 
63.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker4" 
64.
 
65.
MsgBox Err.Number & vbCrLf & Err.Description & " !!! Drucker erfolgreich eingebunden !!! " 
66.
 
67.
' Als Standarddrucker setzen 
68.
WshNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\Drucker1"

Vielen Dank im vorraus
Mitglied: bastla
18.03.2010 um 23:35 Uhr
Hallo Mobsmonster!

Etwa so:
01.
'Variable belegen 
02.
strPrintSRV = "Server1" 
03.
strFaxSRV = "server2" 
04.
strDataSRV = "server3" 
05.
 
06.
Ausgabe = "" 
07.
 
08.
' Filesystemobject initialisieren 
09.
Set Check = CreateObject("Scripting.FileSystemObject") 
10.
 
11.
' Netzwerkobjekt initialisieren 
12.
Set WshNetwork = Wscript.CreateObject("Wscript.Network") 
13.
 
14.
' Laufwerk verbinden 
15.
 
16.
If Check.DriveExists("K:") Then 
17.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & "Laufwerk K: existiert schon." & vbCrLf 
18.
Else 
19.
	WshNetwork.MapNetworkDrive "K:", "\\" & strDataSRV & "\Ordner" 
20.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & " !!! Laufwerk erfolgreich eingebunden !!!" & vbCrLf 
21.
	 
22.
End If 
23.
 
24.
If Check.DriveExists("L:") Then 
25.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & "Laufwerk L: existiert schon." &vbCrLf 
26.
Else 
27.
	WshNetwork.MapNetworkDrive "L:", "\\" & strDataSRV & "\Ordner" 
28.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & " !!! Laufwerk erfolgreich eingebunden !!!" & vbCrLf 
29.
	 
30.
End If 
31.
 
32.
If Check.DriveExists("M:") Then 
33.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & "Laufwerk M: existiert schon." & vbCrLf 
34.
Else 
35.
	WshNetwork.MapNetworkDrive "M:", "\\" & strDataSRV & "\Ordner" 
36.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & " !!! Laufwerk erfolgreich eingebunden !!!" & vbCrLf 
37.
	 
38.
End If 
39.
 
40.
If Check.DriveExists("N:") Then 
41.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description &  "Laufwerk N: existiert schon." & vbCrLf 
42.
Else 
43.
	WshNetwork.MapNetworkDrive "N:", "\\" & strDataSRV & "\Ordner" 
44.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description &  " !!! Laufwerk erfolgreich eingebunden !!!" & vbCrLf 
45.
	 
46.
End If 
47.
 
48.
If Check.DriveExists("O:") Then 
49.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description &  "Laufwerk O: existiert schon." & vbCrLf 
50.
Else 
51.
	WshNetwork.MapNetworkDrive "O:", "\\" & strDataSRV & "\Ordner" 
52.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description &  " !!! Laufwerk erfolgreich eingebunden !!!" & vbCrLf 
53.
End If 
54.
 
55.
 
56.
' Drucker verbinden 
57.
 
58.
 
59.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker1" 
60.
 
61.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker2" 
62.
 
63.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker3" 
64.
 
65.
WshNetwork.AddWindowsPrinterConnection "\\" & strPrintSRV & "\Drucker4" 
66.
 
67.
Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & " !!! Drucker erfolgreich eingebunden !!! " & vbCrLf 
68.
 
69.
' Als Standarddrucker setzen 
70.
WshNetwork.SetDefaultPrinter "\\" & strPrintSRV & "\Drucker1" 
71.
 
72.
WScript.Echo Ausgabe
Ergänzen ließe sich die Meldungszusammenfassung noch durch einen "Fehlerzähler" - etwa so:
01.
Fehler = 0 
02.
If Check.DriveExists("K:") Then 
03.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & "Laufwerk K: existiert schon." & vbCrLf 
04.
	Fehler = Fehler + 1 
05.
Else 
06.
	WshNetwork.MapNetworkDrive "K:", "\\" & strDataSRV & "\Ordner" 
07.
	Ausgabe = Ausgabe & Err.Number & vbCrLf & Err.Description & " !!! Laufwerk erfolgreich eingebunden !!!" & vbCrLf 
08.
End If 
09.
... 
10.
If Fehler > 0 Then WScript.Echo Fehler & " Fehler aufgetreten"
Grüße
bastla

[Edit] Variablenbenennung korrigiert [/Edit]
Bitte warten ..
Mitglied: Mobsmonster
19.03.2010 um 09:00 Uhr
Also ich glaube ich raff das nicht jetzt gibt er mir nur die Meldung aus das die Drucker erfolgreich eingebunden wurden.
Aber hätte auch gerne dann stehen das die Laufwerke auch eingebunden sind. Und wenn nicht welches nicht oder welche. Genauso auch bei den Druckern. Vieleicht hatte ich mich in meiner beschreibung nicht richtig ausgedrückt.


Grüße mobsmonster
Bitte warten ..
Mitglied: bastla
19.03.2010 um 09:35 Uhr
Hallo Mobsmonster!

Sorry - hatte die Variablenbenennung noch etwas "verschönert" (nur leider nicht sehr konsequent ) - ist jetzt oben korrigiert ...

Grüße
bastla
Bitte warten ..
Mitglied: Mobsmonster
19.03.2010 um 09:51 Uhr
What???
Ich sehe jetzt keinen Unterschied zu vorher ich bin eindeutig nicht zum Programmieren geeignet.


Eine kleine abfrage ob die Drucker schon vorhanden sind wäre auch cool habe leider noch nicht rausgefunden wie man sie abfragt.

Grüße

Mobsmonster
Bitte warten ..
Mitglied: bastla
19.03.2010 um 16:22 Uhr
Hallo Mobsmonster!
Ich sehe jetzt keinen Unterschied zu vorher ich bin eindeutig nicht zum Programmieren geeignet.
Ich hoffe, dass sich diese Aussage auf den Code, nicht auf das Ergebnis bezieht ...
Eine kleine abfrage ob die Drucker schon vorhanden sind wäre auch cool habe leider noch nicht rausgefunden wie man sie abfragt.
Die vorhandenen Drucker kannst Du über die "EnumPrinterConnections-Methode" auflisten und jeweils mit dem zu installierenden Drucker vergleichen...

Grüße
bastla
Bitte warten ..
Mitglied: Mobsmonster
22.03.2010 um 13:16 Uhr
Danke aber ich bekomme das immer noch nicht hin weiß nicht wie ich das programmieren soll damit er die gefundenen Drucker vergleicht mit den zu installierenden.


Grüße Mobsmonster
Bitte warten ..
Ähnliche Inhalte
Batch & Shell

Fehler in Domänen-Abfrage mit Get-aduser

gelöst Frage von IT-WurzelBatch & Shell13 Kommentare

Hallo, ich habe ein Frage zu dem Aufruf von get-aduser; Bei einem anderen Script funktioniert das zumindest in der ...

Datenbanken

Fehler bei SQL Abfrage - Filter Funktion

gelöst Frage von mschaedler1982Datenbanken2 Kommentare

Hallo zusammen, Wir haben hier eine SQL Abfrage erstellt (funktioniert soweit auch alles) nur wenn wir das ganze als ...

VB for Applications

VBScript und OR

gelöst Frage von InvisanVB for Applications5 Kommentare

Hi zusammen, derzeit bastel ich ein bisschen in VBScript rum. Leider habe ich mit dem OR Operator einige Probleme. ...

Microsoft Office

Outlook VBScript

gelöst Frage von NebellichtMicrosoft Office5 Kommentare

Hallo, seit ein paar Wochen werden keine VBScripte hinter den (Benutzerspezifschen) Outlook Formularen ausgeführt. Hat jemand eine Lösung parat ...

Neue Wissensbeiträge
Erkennung und -Abwehr

Ups: Einfaches Nullzeichen hebelte den Anti-Malware-Schutzt in Windows 10 aus

Information von kgborn vor 9 StundenErkennung und -Abwehr

Windows 10 ist das sicherste Windows aller Zeiten, wie Microsoft betont. Insidern ist aber klar, das es da Lücken, ...

Windows 10

Windows 10 on ARM: von Microsoft entfernte Info - Klartext, was nicht geht

Information von kgborn vor 11 StundenWindows 10

Windows 10 on ARM ist ja eine neue Variante, die Microsoft im Verbund mit Geräteherstellern am Markt etablieren will. ...

Microsoft
TV-Tipp: Das Microsoft-Dilemma
Information von kgborn vor 11 StundenMicrosoft7 Kommentare

Aktuell gibt es in Behörden und in Firmen eine fatale Abhängigkeit von Microsoft und dessen Produkten. Planlos agieren die ...

Windows 10
Zero-Day-Lücke in Microsoft Edge
Information von kgborn vor 2 TagenWindows 10

In Microsofts Edge-Browser klafft wohl eine nicht geschlossene (0-Day) Sicherheitslücke im Just In Time Compiler (JIT Compiler) für Javascript. ...

Heiß diskutierte Inhalte
Windows 10
Windows 10 (1709) Tastur und Maus wieder einschalten?
Frage von LochkartenstanzerWindows 1026 Kommentare

Moin, Ich habe von einem Kunden einen Win10-Rechner bekommen, bei dem weder Tastatur noch Maus geht. Die Hardware funktioniert ...

Firewall
RB2011 Firewall Rule eine bestimmte Mac oder IP Adresse nicht zu blockieren
Frage von lightmanFirewall15 Kommentare

Hallo liebes Forum mit ihren Spezialisten. Ich habe meine Firewall so konfiguriert das kein Endgerät ohne meine Speziellen Erlaubnis ...

Humor (lol)
Was könnte man mit einem Server machen? Idee gesucht
Frage von 2SeitenHumor (lol)15 Kommentare

Hey Zusammen Ich habe einen alten HP G2 Rackserver zu Hause rumliegen. 28GB Ram, 1xAMD Prozi mit etwa 2GHz. ...

Webbrowser
Welcher Browser ist der Beste?
Frage von justtinWebbrowser13 Kommentare

Hallo Leute Ich habe eine interessante Frage. Mich wurde mal interessieren welcher Browser ist eure meinung nach der beste? ...