Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True")

For Each objItem in colItems
    arrIPAddresses = objItem.IPAddress
    For Each strAddress in arrIPAddresses
        If Instr(strAddress,"192.168") > 0  Then
            strMACAddress = objItem.MacAddress
        End If
    Next
Next

Set colItems = objWMIService.ExecQuery _
    ("Select * From Win32_NetworkAdapter Where MACAddress = '" & strMACAddress & "'")

For Each objItem in colItems
    If Not IsNull(objItem.NetConnectionID) Then
       connID = objItem.NetConnectionID
    End If
Next

setip="netsh interface ip set address """ & connId & """ source=dhcp"
setdns="netsh interface ip set dns """ & connId & """ source=dhcp"

Set shell = CreateObject("WScript.Shell")
shell.Run setip
shell.Run setdns