# Kod symuluje te same kroki, ktre wykonano w rozwizaniu wykorzystujcym wiersz polece.
# Najpierw jest tworzony plik zawierajcy parametry instalacji serwera IIS.
# W dalszej kolejnoci jest wykonywane polecenie sysocmgr przeprowadzajce instalacj.

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

$strFile = 'c:\\iis_install.txt';

use constant ForWriting => 2;
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');
$objFile = $objFSO->OpenTextFile($strFile, ForWriting, 1);
$objFile->WriteLine('[Components]');
$objFile->WriteLine('iis_common = ON');
$objFile->WriteLine('iis_doc = ON');
$objFile->WriteLine('iis_www = ON');
$objFile->WriteLine('iis_inetmgr = ON');
$objFile->WriteLine('');
$objFile->WriteLine('[InternetServer]');
$objFile->WriteLine('SvcManualStart = www');
$objFile->WriteLine('PathWWWRoot = C:\\webstuff');
$objFile->Close();

$objWshShell = Win32::OLE->new('WScript.Shell');
$intRC = $objWshShell->Run('sysocmgr /i:%windir%\\inf\\sysoc.inf /u:' . $strFile, 0, 1);
if ($intRC != 0) {
    print 'Polecenie sysocmgr zwrcio bd: ' . $intRC, "\n";
}
else {
    print "Serwer IIS zosta zainstalowany.\n";
}
