43 lines
1009 B
Plaintext
43 lines
1009 B
Plaintext
on error resume next
|
|
set n = getobject ("winmgmts:root/cimv2")
|
|
|
|
set Routeclass = n.Get ("Win32_IPRouteTable")
|
|
Set RouteInstance = RouteClass.SpawnInstance_
|
|
|
|
If Err = 0 Then
|
|
|
|
RouteInstance.Destination = "187.25.0.0"
|
|
RouteInstance.InterfaceIndex = 2
|
|
RouteInstance.Information = "0.0"
|
|
RouteInstance.Mask = "255.255.0.0"
|
|
RouteInstance.NextHop = "187.24.5.138"
|
|
RouteInstance.Protocol = 2
|
|
RouteInstance.Type = 3
|
|
RouteInstance.Age = 0
|
|
|
|
RouteInstance.Metric1 = 2
|
|
RouteInstance.Metric2 = -1
|
|
RouteInstance.Metric3 = -1
|
|
RouteInstance.Metric4 = -1
|
|
RouteInstance.Metric5 = -1
|
|
|
|
|
|
If Err = 0 Then
|
|
WScript.Echo "Writing"
|
|
RouteInstance.Put_ 0
|
|
if err <> 0 then
|
|
WScript.Echo Hex(Err.Number), Err.Description, Err.Source
|
|
Set LastError = CreateObject("WbemScripting.SWbemLastError")
|
|
WScript.Echo LastError.GetObjectText_
|
|
Err.Clear
|
|
end if
|
|
|
|
End If
|
|
End If
|
|
|
|
if err <> 0 then
|
|
WScript.Echo Hex(Err.Number), Err.Description, Err.Source
|
|
Err.Clear
|
|
end if
|
|
|