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

Netzwerkabfrage via VB-Script

Frage Entwicklung VB for Applications

Mitglied: SamTrex

SamTrex (Level 1) - Jetzt verbinden

26.01.2006, aktualisiert 11:48 Uhr, 7011 Aufrufe, 3 Kommentare

Hallo mal wieder,
ich habe folgendes mit einem Script vor:

Es soll testen ob Netzwerkverbindung mit xxx.xxx.xxx.xxx besteht.
Wenn Ja dann net use X: \\xy

Als zweites bräuchte ich auch noch ein Script, mit dem ich eine Anwendung via CMD starte, allerdings so das man die Parameter nicht mehr sieht.

C:\xy.exe -s passwort

Dachte mir das man die ganzen Parameter vielleicht im Klartext in dem Script schreibt, und es dann in eine .exe konvertiert.
Habe aber leider nicht herausgefunden, wie ich das mache.
Probieren tue ich alles in Excels 2003 VB Editor.

Fänd es echt Klasse wenn mir da wer helfen könnte.
Besten Dank schon mal!!!

Mit freundlichen Grüßen Sam

--- LÖSUNG ---

@echo off
cls
net use * /del
net use /p:no
SET Heimnetz = nicht verbunden
SET Drucker = nicht verbunden
SET OnlineServer = nicht verbunden
SET MediaCenter = nicht verbunden
SET Notebook = nicht verbunden

:Heimnetz
ping 192.168.0.1 -n 1 -w 1
if not errorlevel 1 (set Heimnetz = verbunden)
if not errorlevel 1 goto INTERNET
if errorlevel 1 goto ENDE

:INTERNET
ping 81.173.194.68 -n 1 -w 100
if not errorlevel 1 (set Heimnetz = verbunden + Internet)
if not errorlevel 1 (start C:\Programme\Trillian\Trillian.exe)

:Drucker
ping 192.168.0.10 -n 1 -w 1
if not errorlevel 1 (net use K: \\192.168.0.10\memory_card)
if not errorlevel 1 (set Drucker = verbunden an K

:OnlineServer
ping 192.168.0.4 -n 1 -w 1
if not errorlevel 1 (net use L: \\OnlineServer\Eingehend)
if not errorlevel 1 (net use M: \\OnlineServer\Intern)
if not errorlevel 1 (set OnlineServer = verbunden an L: M

:MediaCenter
ping 192.168.0.3 -n 1 -w 1
if not errorlevel 1 (net use B: \\MediaCenter\Verwaltung)
if not errorlevel 1 (net use N: \\MediaCenter\Eingehend)
if not errorlevel 1 (net use O: \\MediaCenter\Audio)
if not errorlevel 1 (net use P: \\MediaCenter\Video)
if not errorlevel 1 (set MediaCenter = verbunden an B: N: O: P

:NoteBook
ping 192.168.0.5 -n 1 -w 1
if not errorlevel 1 (net use R: \\NoteBook\$C)
if not errorlevel 1 (net use S: \\NoteBook\$D)
if not errorlevel 1 (set NoteBook = verbunden an R: S
goto ENDE2

:ENDE
cls
set Heimnetz

net use
goto END

:ENDE2
cls
set Heimnetz
set MediaCenter
Set OnlineServer
set Notebook
set Drucker

net use

:END
pause
exit

--- ---

Letzte Frage dazu, wie sähe das als VB Script aus und wie mache ich aus der dan eine EXE?

Dankeschön!!!

Gruß Sam
Mitglied: NaCkHaYeD
26.01.2006 um 06:49 Uhr
Testen der Verbindung kannst du, falls der Ping einen Rückgabewert hat, dann würde es mit "errorlevel" funktionieren, allerdings weiss ich es nicht.

Jedoch mit einem kleinen C-Progrämmchen und der "icmgping.h" funktioniert es. Könnte ich dir schnell schreibseln, wenn es keine andere Möglichkeit gäbe.

Mit freundlichen Grüßen
Thomas
Bitte warten ..
Mitglied: SamTrex
26.01.2006 um 10:55 Uhr
Mit dem Ping das habe ich in dem Batch mal probiert, so steht es hier auch in nem anderen Beitrag.

call :Router 192.168.0.1

:Router
Ping -n 1 %1 >null || (echo %1 ist Offline) & goto END

:END

---
Wenn ich das dann richtig verstanden habe, müsste ich bei einem Pingwert größer 0 ist einen ERRORLEVEL Wert von 1 oder mehr bekommen.
Sprich:

IF ERRORLEVEL 0 (echo %1 ist Online)
IF ERRORLEVEL 1 (echo %1 ist Offline)

nur das funktioniert nicht.
Bitte warten ..
Mitglied: Biber
26.01.2006 um 11:48 Uhr
Moin SamTrex,

>>IF ERRORLEVEL 0 (echo %1 ist Online)
>>IF ERRORLEVEL 1 (echo %1 ist Offline)

>>nur das funktioniert nicht.

Jein...das funktioniert schon, nur:
a) Ein Errorlevel größer Null bedeutet Fehler
b) Errorlevel müssen absteigend geprüft werden - die höheren zuerst.
M$-Logik: wenn Errorlevel 2 gegeben ist, dann sind auch Errorlevel 1 und Errorlevel 0 TRUE.

::Beispiel:
IF ERRORLEVEL 1 (echo %1 ist Offline)
IF NOT ERRORLEVEL 1 (echo %1 ist Online)
...
~~~
So funktionierts. Oder so:
...
IF ERRORLEVEL 1 goto Fehlerbehandlung
::wer in der nächsten Zeile ankommt, hat KEIN "goto" gemacht ->kein Fehler
echo %1 ist Online
goto NormalWeiter

:Fehlerbehandlung
echo %1 ist Offline
exit /B 1

:Normalweiter
:: ..weitere Anweisungen

HTH Biber
Bitte warten ..
Neuester Wissensbeitrag
CPU, RAM, Mainboards

Angetestet: PC Engines APU 3a2 im Rack-Gehäuse

Erfahrungsbericht von ashnod zum Thema CPU, RAM, Mainboards ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
Grafikkarten & Monitore
Win 10 Grafikkarte Crash von Software? (13)

Frage von Marabunta zum Thema Grafikkarten & Monitore ...

Windows Server
Mailserver auf Windows Server 2012 (8)

Frage von StefanT81 zum Thema Windows Server ...

DSL, VDSL
DSL-Signal bewerten (8)

Frage von SarekHL zum Thema DSL, VDSL ...

Backup
Clients als Server missbrauchen? (8)

Frage von 1410640014 zum Thema Backup ...