Sub test5()
MsgBox GetAddressIP(1) 'argument valable ;"ip" ou "ipv4" ou "locale" ou simplement 1 (es 4 fonctionnent) pour l'IPV4
MsgBox GetAddressIP(2) 'arguments ; "ipv6" ou simplement 2 pour l'IPV6
End Sub
Function GetAddressIP(Request)
Dim Wsh As Object, Objectexec As Object, Retour$, Tabl
GetAddressIP = "Error"
Set Wsh = CreateObject("WScript.Shell")
Set Objectexec = Wsh.Exec("%comspec% /c ipconfig.exe")
Retour = LCase(Objectexec.StdOut.readall)
Debug.Print Retour' juste pour voir ce qui est retourné dans le debug
Tabl = Split(Retour, "adresse")
Select Case LCase(Request)
Case 1, "ipv4", "ip", "locale"
GetAddressIP = Split(Split(Tabl(2), ".: ")(1), vbCrLf)(0)
Case 2, "ipv6"
GetAddressIP = Split(Tabl(1), ".: ")(1)
End Select
End Function