Script til at ændre local ip-adresse

Hey eksperter

Jeg har fundet dette script her på siden i en af trådene, men når jeg udøver dette på min vista bærbar vil den ikke reset ordenlig (til total dhcp settings), en der kan sige mig hvad der går galt ?? (det er skole scriptet der er noget "galt" med)

-----Hjemme-----
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("10.0.0.15")
strSubnetMask = Array("255.0.0.0")
strGateway = Array("10.0.0.250")
strGatewayMetric = Array(1)
strDNSServers=Array("212.242.121.3")
For Each objNetAdapter in colNetAdapters
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errDNSSErvers = objNetAdapter.SetDNSServerSearchOrder(strDNSServers)
If errEnable = 0 Then
WScript.Echo "Så man endelig hjemme"
Else
WScript.Echo "Det gik noget galt"
End If
Next

-----Skole-----
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each objNetAdapter In colNetAdapters
errEnable = objNetAdapter.EnableDHCP()
If errEnable = 0 Then
Wscript.Echo "Så man i skole endnu engang"
Else
Wscript.Echo "Der var noget der gik galt"
End If
Next