Address IP Static or DHCP

[PINTO1927]

Hello guys,
you can know, through a msgbox, if the connectivity of your computer is set to DHCP or static?

 

Thank's

[JohnOne]

Probably a wmi way, but off top of head you can parse output from ipconfig /all

[JLogan3o13]

Local $oWMI, $oNICs

    $oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        If IsObj($oWMI) Then
            $oNICs = $oWMI.ExecQuery("Select * From Win32_NetworkAdapterConfiguration")
                If IsObj($oNICs) Then
                    For $sNIC In $oNICs
                        ConsoleWrite("For " & $sNIC.Description & ": " & $sNIC.DHCPEnabled & @CRLF)
                    Next
                Else
                    ConsoleWrite("Unable to pull NIC info from WMI" & @CRLF)
                EndIf
        Else
            ConsoleWrite("Unable to connect to WMI" & @CRLF)
        EndIf

 

[PINTO1927]

Thank's JLogan3o13,
if you wanted to take the only dates of the network card?

Thank's

Edited November 18, 2016 by PINTO1927

[PINTO1927]

 

This can be corrected?

$objWMI = ObjGet("winmgmts:\\.\root\cimv2")
$collection = $objWMI.ExecQuery("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")


For $obj In $collection
    If $obj.DHCPEnabled = -1 Then
        $DHCPStatus = "TRUE"
        ConsoleWrite($DHCPStatus)
    Else
        $DHCPStatus = "FALSE"
        ConsoleWrite($DHCPStatus)
     EndIf
Next

 

[JLogan3o13]

I'm not sure what you mean by "dates of the network card"? But if you're looking for just the physical NIC for example you could do something like this:

Local $oWMI, $oNICs

    $oWMI = ObjGet("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
        If IsObj($oWMI) Then
            $oNICs = $oWMI.ExecQuery("Select * From Win32_NetworkAdapterConfiguration")
                If IsObj($oNICs) Then
                    For $sNIC In $oNICs
                        If StringInStr($sNIC.Caption, "Ethernet") Then ConsoleWrite("For " & $sNIC.Caption & ": " & $sNIC.DHCPEnabled & @CRLF)
                    Next
                Else
                    ConsoleWrite("Unable to pull NIC info from WMI" & @CRLF)
                EndIf
        Else
            ConsoleWrite("Unable to connect to WMI" & @CRLF)
        EndIf

There are a myriad of other ways to go about it, like $sNIC.IPAddress, etc. I suggest you search the forum for Scriptomatic to see what options are open to you.

[PINTO1927]

Ok JLogan3o13,

Thank's

[jguinch]

Local $oWMI = ObjGet("winmgmts:root\CIMV2")
Local $oDHCP = $oWMI.ExecQuery("Select * from WIN32_NetworkAdapterConfiguration Where IPEnabled = True And DHCPEnabled = True")
MsgBox(0, "", "Computer is set to " & ($oDHCP.Count ? "DHCP" : "Static" )  )

 

[JLogan3o13]

The only problem I can see with that approach (and it is admittedly a less common occurrence) is a dual-homed machine with different settings. I've run into it a couple of times at different companies.

[jguinch]

You're right. Usually, In my corporate network, I make the difference by checking the Ip address subnet, the default gateway or the IP address of the DHCP Server.

BTW, the computer can be connecter with both ethernet and wireless connection...

 

[RestrictedUser]

@JLogan3o13, How can i Get just this IP in below picture that we connect to RDP? I want to run the script in RDP too...

i don't want use @IPAddress macros or _GetIP(), because in some of my RDPs i get wrong IP