VBS: rendre vos utilisateurs autonomes (Quel est mon IP ?)

Petit script pour afficher les adresses IP V4 sur la machine :

set objShell = CreateObject( "WScript.Shell" )
set objScriptExec = objShell.Exec("ipconfig")

do while not objScriptExec.StdOut.AtEndOfStream
    strLine = objScriptExec.StdOut.ReadLine
    if (inStr(strLine, "IPv4")) then
        intPos = inStr(strLine, ":") + 1
        strIP = mid(strLine, intPos)
        strIPs = strIPs & vbNewLine & strIP
    end if
loop

msgbox strIPs