# Kod tworzy trwae przekierowanie dla caej witryny WWW
# i podczas przekierowywania NIE zachowuje informacji o ciece

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

# ------ KONFIGURACJA SKRYPTU ------
$strComputer = '<NazwaSerwera>';
# ------ KONIEC KONFIGURACJI --------- 
$objWS = Win32::OLE->GetObject('IIS://' . $strComputer . '/W3SVC/222/Root');
$objWS->Put('HttpRedirect', 'http://www.rallencorp.com/newsite, PERMANENT & EXACT_DESTINATION');
$objWS->SetInfo();
print "Przekierowanie zostao zdefiniowane dla witryny WWW.\n";

