Script to enable DHCP but not on DNS

Pl try this variation. Suppose you hv a PC with static IP 10.0.16.12. Below script changes the IP to dynamic for this PC. After testing you can run this script each subnet wise (if u hv number of subnets) or you can try appropriately modifying the 'if' clause to exclude your DNS server.
 
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True")

For Each objNetAdapter in colNetAdapters
    For Each strAddress in objNetAdapter.IPAddress
        arrOctets = Split(strAddress, ".")
        If arrOctets(0) = "10" and arrOctets(1) = "0" and arrOctets(2) = "16" and arrOctets(3) <=

"1"Then
      errEnable = objNetAdapter.EnableDHCP()
If errEnable = 0 Then
        WScript.Echo "The IP address of your pc has been changed. Contact AM for restoring it back"
    Else
        WScript.Echo "The IP address could not be changed.Contact AM"
    End If      
End If    
    Next
Next

Sorry in my previous comment, the example static IP is 10.0.16.1

only have one subnet.

trying to make it so that if a user changes the NIC to static IP it will reset to DHCP upon reboot except for DNS which will stay static

Tried the script but nothing changed....hmmm

Are yo able to get it to work on your end?

This is the code i am using

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colNetAdapters = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled=True")

For Each objNetAdapter in colNetAdapters
    For Each strAddress in objNetAdapter.IPAddress
        arrOctets = Split(strAddress, ".")
        If arrOctets(0) = "10" and arrOctets(1) = "0" and arrOctets(2) = "16" and arrOctets(3) <= "1"
Then
      errEnable = objNetAdapter.EnableDHCP()
If errEnable = 0 Then
        WScript.Echo "The IP address of your pc has been changed. Contact AM for restoring it back"
    Else
        WScript.Echo "The IP address could not be changed.Contact AM"
    End If      
End If    
    Next
Next

Select allOpen in new window

Hi,

I'm not a big expert in VB Script area but I found something interesting on a Microsoft Technet forum. Looks like you might be interested :)

http://social.technet.microsoft.com/Forums/eu/ITCG/thread/3e0f5bea-0faf-4045-a774-8ef21bc3a507

Later, I would be able to test it in my test environment, so we can try to figure out how to do that working in your scenario.

Regards,
Krzysztof

iSiek,
Thanks I saw that earlier. He is trying to do the opposite of what I want. Don't  think it will work

OK, maybe you are interested with normal batch file and use in that syntax netsh commad?
It's much easier to accomplish that

Krzysztof

Still no go :(

I have tested this script before uploading. It is working. I hv actually changed the static IP of our network of abt 1600+ PCs to DHCP through running similar script as startup script in domain PCs about four years back.
Did u test run the script with admin privilidges?

Got it working. Was an issue with startup scripts