# Kod symuluje operacje, ktre wykonano w rozwizaniu wykorzystujcym wiersz polece.
# Najpierw jest tworzony plik zawierajcy parametry wymagane do przeprowadzenia
# instalacji serwera DNS. W dalszej kolejnoci jest wykonywane polecenie sysocmgr,
# ktre przeprowadza instalacj.

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

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

use constant ForWriting => 2;
$objFSO = Win32::OLE->new('Scripting.FileSystemObject');
$objFile = $objFSO->OpenTextFile($strFile, ForWriting, 1);
$objFile->WriteLine('[netoptionalcomponents]');
$objFile->WriteLine('dns=1');
$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 "Zainstalowano serwer DNS.\n";
}
