# 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.

use Win32::OLE;
$Win32::OLE::Warn = 3;

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '.';
# ------ KONIEC KONFIGURACJI ---------
$objLocator = Win32::OLE->new('WbemScripting.SWbemLocator');
$objWMI = $objLocator->ConnectServer($strComputer, 'root/CIMv2');

$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_()->Path;
print "Z powodzeniem utworzono tras.\n";
