Netzwerkabfrage via VB-Script

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