Sub Main()
 
        Dim myIp As String
        For Each IP As System.Net.IPAddress In GetHostAddresses(GetHostName)
            If Regex.IsMatch(IP.ToString, "10.10.") Then
                myIp = IP.ToString
            End If
        Next
 
 
        Dim Anwendung As System.Diagnostics.Process = New _
          System.Diagnostics.Process()
 
        With Anwendung.StartInfo
            .FileName = Environ("COMSPEC")
            .CreateNoWindow = True
            .RedirectStandardInput = True
            .UseShellExecute = False
        End With
 
        Anwendung.Start()
 
        Dim StdIn As System.IO.StreamWriter = Anwendung.StandardInput
        StdIn.WriteLine("@echo off")
        StdIn.WriteLine("c:\temp\iDo.exe " & myIp)
 
    End Sub