VBA: prüfen ob Pfad aktiv ist bzw. IP erreichbar

05/02/2009 - 08:04 von Beck, Alwin | Report spam
Hallo,

in meiner Anwendung greife ich auf einen Pfad einer Maschine zu (über
UNC \\maschine\ordner)
Bevor eine Routine nun ausgeführt wird, sollte ich prüfen, ob der Pfad
überhaupt erreichbar ist,
damit ich überhaupt arbeiten kann. Man könnte den UNC-Pfad prüfen oder
ob die IP-Adresse "aktiv" ist.

In einem Dos-Batch Skript mache ich das wie folgt :


for %%a in (192.190.100.1 192.190.100.2) do call :Sub %%a
goto :eof
:Sub
ping %1 | find /i "bytes=" && goto :eof

Wie könnte ich das über VBA realisieren ?

Danke
Gruß
Albe
 

Lesen sie die antworten

#1 Beck, Alwin
05/02/2009 - 08:28 | Warnen spam
Ich habe versucht nun über eine Function zu prüfen, ob meine Maschine
aktiv ist (über die IP-Adresse)
aber das funktioniert nicht - finde jedoch den Fehler nicht.

Beim Kompilieren wird ein Syntaxfehler angezeigt für die Zeile :

Set objPing = GetObject("winmgmts:Win32_PingStatus.address='" & strIP
& "'"


Hier das kleine VBA :


Public Function PingMyServer(ByVal strIP) As String

Dim objPing
strIP = "192.190.111.10"

Set objPing = GetObject("winmgmts:Win32_PingStatus.address='" & strIP
& "'"
If IsNull(objPing.StatusCode) Or objPing.StatusCode <> 0 Then
PingMyServer = False
Else
PingMyServer = True
End If
Set objPing = Nothing

End Function


Danke
Gruß
Albe



"Beck, Alwin" schrieb im Newsbeitrag
news:ed167$
Hallo,

in meiner Anwendung greife ich auf einen Pfad einer Maschine zu
(über UNC \\maschine\ordner)
Bevor eine Routine nun ausgeführt wird, sollte ich prüfen, ob der
Pfad überhaupt erreichbar ist,
damit ich überhaupt arbeiten kann. Man könnte den UNC-Pfad prüfen
oder ob die IP-Adresse "aktiv" ist.

In einem Dos-Batch Skript mache ich das wie folgt :


for %%a in (192.190.100.1 192.190.100.2) do call :Sub %%a
goto :eof
:Sub
ping %1 | find /i "bytes=" && goto :eof

Wie könnte ich das über VBA realisieren ?

Danke
Gruß
Albe

Ähnliche fragen