How to retrieve IP address by Windows Host Scripting

Fandt selv løsningen...
Dim IP_Address : IP_Address = GetIP()

    Function GetIP()
          Dim ws : Set ws = CreateObject("WScript.Shell")
          Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
          Dim TmpFile : TmpFile = fso.GetSpecialFolder(2) & "/ip.txt"
          Dim ThisLine, IP


        If ws.Environment("SYSTEM")("OS") = "" Then
                  ws.run "winipcfg /batch " & TmpFile, 0, True
          Else
                ws.run "%comspec% /c ipconfig > " & TmpFile, 0, True
          End If

          With fso.GetFile(TmpFile).OpenAsTextStream
        Do While NOT .AtEndOfStream
                  ThisLine = .ReadLine
                  If InStr(ThisLine, "Address") <> 0 Then IP = Mid(ThisLine, InStr(ThisLine, ":") + 2)
                Loop
                .Close
          End With
          'WinXP (NT? 2K?) leaves a carriage return at the end of line
          If IP <> "" Then
                If Asc(Right(IP, 1)) = 13 Then IP = Left(IP, Len(IP) - 1)
          End If
          GetIP = IP
          fso.GetFile(TmpFile).Delete 
          Set fso = Nothing
          Set ws = Nothing
    End Function


'

    If left(IP_Address,8) = "192.168."  Then
    WSCRIPT.ECHO IP_Address   
   
    End If