# Kod tworzy przekierowanie dla wirtualnego katalogu
# i podczas przekierowywania zachowuje informacje o ciece

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
# ------ KONIEC KONFIGURACJI --------- 
$objVirtualDir = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC/1/Root/CGIs');
$objVirtualDir->Put('HttpRedirect', 'http://www.rallencorp.com/NewSite/CGIs$S$Q, EXACT_DESTINATION');
$objVirtualDir->SetInfo();
print "Przekierowanie zostao zdefiniowane dla wirtualnego katalogu.\n";
