Microsoft 365 user - nom ordi - ip : insérer dans les cellules de ma feuille

patricktoulon à dit:

autant pour moi un vbcrlf non sauté

VB:

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 = Trim(Split(Split(Tabl(2), ".: ")(1), vbCrLf)(0))
    Case 2, "ipv6"
        GetAddressIP = Trim(Split(Split(Tabl(1), ".: ")(1), vbCrLf)(0))
    End Select
End Function

comme ça ça m'aura permis de rectifier un de mes vieux trucs

Cliquez pour agrandir...

patricktoulon à dit:

re
j'ai repris le code de @job75 et j'en ai fait une fonction
pareil que l'autre pour les arguments

VB:

Sub test2()
MsgBox WMIGetAdressIP(1)
MsgBox WMIGetAdressIP(2)
End Sub

Function WMIGetAdressIP(Request)
    Dim objWMIService As Object, colAdapters As Object, objAdapter As Object
    WMIGetAdressIP = "Error"
    Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
    Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True")

    For Each objAdapter In colAdapters
        Select Case Request
        Case 1, "ipv4", "locale": WMIGetAdressIP = objAdapter.IPAddress(0)
        Case 2, "ipv6": WMIGetAdressIP = objAdapter.IPAddress(1)
        End Select
    Next
End Function

et j'en ai une autre sans le where avec le test enabled tardif en instanceof

Code:

Sub test7()
MsgBox WMIGetAdressIP3(1)
MsgBox WMIGetAdressIP3(2)
End Sub

Function WMIGetAdressIP3(request)
GetAddressIP3 = "Error"
Dim NDC as object, elements as object
Set NCD = GetObject("winmgmts:").InstancesOf("Win32_NetworkAdapterConfiguration")

For Each elements In NCD
If elements.IPEnabled Then
 Select Case request
        Case 1, "ipv4", "locale": WMIGetAdressIP3 = elements.IPAddress(0)
        Case 2, "ipv6": WMIGetAdressIP3 = elements.IPAddress(1)
        End Select
End If
Next
End Function

Cliquez pour agrandir...

patricktoulon à dit:

re
bonjour
eviter quoi il a 3/4 fonction prêtes à l'emploi qui lui ont été proposé
il a pas besoin, sauf si ça l'intéresse de tout connaitre du DOS

des deux entre vba et dos si je devais en avoir peur je craindrais plutôt le vba entre nous

Cliquez pour agrandir...

Usine à Gaz¸ un peu trop vite à dit:

Je ne touche pas, sauf "exceptionnelle exception" à l'invite MSDos.
Quand un code est opérationnel dans mon fichier : 1clic et c'est bon.

Merci à toi pour m'avoir répondu

Cliquez pour agrandir...