Frigive en IP adresse og tildele en ny

her er lidt fra TechNet :

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where DHCPEnabled = True")
For each objNetAdapter in colNetAdapters
errRenew = objNetAdapter.RenewDHCPLease
If errRenew = 0 Then
Wscript.Echo "DHCP lease renewed."
Else
Wscript.Echo "DHCP lease could not be renewed."
End If
Next

MVH Morten

killerclown vil du lægge et svar.

Lukker spm.