Skript aufgrund von Netzadresse ausführen

On Error Resume Next

Set WshShell =  CreateObject("WScript.Shell")  
Set FSO = CreateObject("Scripting.FileSystemObject")  
Dim Temp : Temp = WshShell.ExpandEnvironmentStrings("%temp%")  

FSO.DeleteFile Temp & "\ipconfig.txt", True  
WshShell.Run "%comspec% /c ipconfig /all > %temp%\ipconfig.txt",0,True  

Dim Line, TestLine
Dim IPaddresses : IPaddresses = ""  

If FSO.Exists(Temp & "\ipconfig.txt") Then  
  With FSO.OpenTextFile(Temp & "\ipconfig.txt")  
    While Not .AtEndOfStream
      Line = .ReadLine
      TestLine = LCase(Replace(Replace(Line, " ", ""), "-", ""))  
      If InStr(TestLine,"ipadresse") > 0 Or _  
         InStr(TestLine,"ipv4adresse") > 0 Or _  
         InStr(TestLine,"ipaddress") > 0 Or _  
         InStr(TestLine,"ipv4address") > 0 Then  
        Line = Trim(Split(Split(Line, ":")(1), "(")(0))  
        If UBound(Split(Line,".")) = 3 Then  
          If IPaddresses = "" Then  
            IPaddresses = Line
          Else
            IPaddresses = IPaddresses & vbTab & Line
          End If
        End If
      End If
    Wend
  End With
  FSO.DeleteFile Temp & "\ipconfig.txt", True  
End If

IPaddresses = Split(IPaddresses, vbTab)

Dim IPaddress
For Each IPaddress In IPaddresses
  If Left(IPaddress, 12) = "192.168.100." Then  
    'tu dies  
    ...

  ElseIf Left(IPaddress, 12) = "192.168.101." Then  
    'tu das  
    ...
    
  ElseIf Left(IPaddress, 12) = "192.168.102." Then  
    'tu jenes  
    ...
    
  End If
Next

WScript.Quit

Function Ping(DestinationHost)
  On Error Resume Next
  Ping = False
  Set oPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address = '" & DestinationHost & "'")  
  For Each oStatus in oPing
	  If IsNull(oStatus.StatusCode) Or oStatus.StatusCode <> 0 Then 
		  Ping = False
	  Else
		  Ping = True
	  End If
  Next
End Function