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, 7047 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!!!

MfG 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.

mfg
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 ..
Ähnliche Inhalte
VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

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

Frage von LindeUnimog zum Thema Outlook & Mail ...

Batch & Shell
PowerShell-Script zum Prüfen ob Datei(en) existieren (2)

Frage von Bonsai0815 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Server-Hardware
gelöst Empfehlung KVM over IP Switch (8)

Frage von Androxin zum Thema Server-Hardware ...

Ubuntu
Nextcloud 12 Antivirus App for Files (8)

Frage von horstvogel zum Thema Ubuntu ...