code to select dynamic ip settings in Local area connection

[sumit]

Can someone suggest how i can select dynamic ip settings and dynamic dns settings through code.

Any suggestion would be appreciated.

[martin]

Can someone suggest how i can select dynamic ip settings and dynamic dns settings through code.

Any suggestion would be appreciated.

netsh?

[ChrisL]

Run('netsh interface ip set address "Local Area Connection" dhcp', "", @SW_HIDE)

[sumit]

Run('netsh interface ip set address "Local Area Connection" dhcp', "", @SW_HIDE)

Thanks a lot

Any suggestions what to do if the interface name is not Local Area Connection but something else .... is there a general script that would set dynamic ip in all possible interfaces irrespective of their names ?

[ChrisL]

#include <array.au3>;Just to show the output you can remove this include

$myAdapters = _GetNICs()

If Not @error then 
    _ArrayDisplay($myAdapters);Just to show the output you can remove this line

    For $i = 1 to Ubound($myAdapters) -1
        Run('netsh interface ip set address "' & $myAdapters[$i] & '" dhcp', "", @SW_HIDE)
    Next
EndIf


Func _GetNICs()
    $colItems = ""
    $strComputer = "localhost"
    $Output=""
    Local $aAdapters[1] 
    $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
    $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapter WHERE NetConnectionID <> NULL and NetConnectionStatus <> '0'", "WQL")

    If IsObj($colItems) then
        For $objItem In $colItems
          $Output &=  $objItem.NetConnectionID & @CRLF
        Next
      If StringRight($Output,2) = @crlf then $Output = StringTrimRight($Output,2)
      $aAdapters = StringSplit($Output,@crlf,1)
    Else
      SetError(1)
    Endif
    SetError(0)
    Return $aAdapters
EndFunc

Edited August 23, 2007 by ChrisL