' Kod prezentuje dodawanie trasy. 
' Poniewa klasa Win32_IP4RouteTable po raz pierwszy pojawia si 
' w systemie Windows Server 2003, skryptu nie mona uruchomi w 
' systemie Windows 2000 Server.
' ------ KONFIGURACJA SKRYPTU ------
strComputer = "."
' ------ KONIEC KONFIGURACJI ---------
set objLocator = CreateObject("WbemScripting.SWbemLocator")
set objWMI = objLocator.ConnectServer(strComputer, "root/CIMv2")

set objR = objWMI.get("Win32_IP4RouteTable").SpawnInstance_()
objR.Destination = "64.0.0.0"
objR.NextHop = "64.102.57.1"
objR.Mask = "255.0.0.0"
objR.InterfaceIndex = 65539
objR.Metric1 = 22
objR.Protocol = 1
objR.Type = 4
objR.Put_()
Wscript.Echo "Z powodzeniem utworzono tras."
