# Kod instaluje stos protokou IPv6 na komputerze, na ktrym uruchomiono skrypt

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

$strCommand = 'netsh interface ipv6 install';
$objWshShell = Win32::OLE->new('WScript.Shell');
$intRC = $objWshShell->Run($strCommand, 0, 1);
if ($intRC != 0) {
    print 'Podczas wykonywania polecenia zosta zwrcony bd: ' . $intRC, "\n";
}
else {
    print "Polecenie zostao wykonane z powodzeniem.\n";
}
