' Kod instaluje stos protokou IPv6 na komputerze, na ktrym uruchomiono skrypt
strCommand = "netsh interface ipv6 install"
set objWshShell = WScript.CreateObject("WScript.Shell")
intRC = objWshShell.Run(strCommand, 0, TRUE)
if intRC <> 0 then
   WScript.Echo "Podczas wykonywania polecenia zosta zwrcony bd: " & intRC
else
   WScript.Echo "Polecenie zostao wykonane z powodzeniem."
end if
