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
GELÖST

Fehler abfrage in VBScript

Frage Entwicklung VB for Applications

Mitglied: Mobsmonster

Mobsmonster (Level 1) - Jetzt verbinden

18.03.2010, aktualisiert 15:38 Uhr, 5551 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(8)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Datenbanken
gelöst Fehler bei SQL Abfrage - Filter Funktion (2)

Frage von mschaedler1982 zum Thema Datenbanken ...

C und C++
gelöst IF Abfrage funktioniert nicht mehr (2)

Frage von pablovic zum Thema C und C ...

Datenbanken
gelöst SQL-Abfrage - DISTINCT - letztes Datum (3)

Frage von emeriks zum Thema Datenbanken ...

Windows Server
gelöst BackupExec 2016 Fehler beim Backup von Windows 2016 (1)

Frage von Looser27 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Windows Tools
gelöst Aussendienst Datensynchronisierung (12)

Frage von lighningcrow zum Thema Windows Tools ...

Windows Server
Suche passender Treiber (12)

Frage von stolli zum Thema Windows Server ...

Peripheriegeräte
Wlan stört Funkmaus (11)

Frage von Falaffel zum Thema Peripheriegeräte ...

Peripheriegeräte
gelöst USB Festplatte verliert Laufwerksbuchstabe (9)

Frage von cese4321 zum Thema Peripheriegeräte ...