一个很菜的问题.....

我怎么样才可以在我的机子上运行这样一个脚本：strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colNetAdapters = objWMIService.ExecQuery _
("Select * from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
strIPAddress = Array("192.168.0.20")
strSubnetMask = Array("255.255.255.0")
strGateway = Array("192.168.0.1")
strNameServer=Array("202.97.224.68")
strGatewayMetric = Array(1)
For Each objNetAdapter in colNetAdapters
If objNetAdapter.SettingID = "{6D61D0B2-A2E7-4732-955B-4871326D117F}" Then
errEnable = objNetAdapter.EnableStatic(strIPAddress, strSubnetMask)
errGateways = objNetAdapter.SetGateways(strGateway, strGatewaymetric)
errNameServer= objNetAdapter.SetDNSServerSearchOrder(strNameServer)
End If
Next
我没用过请各位多指教！！