' 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.
strFile = "c:\dns_install.txt"

constForWriting = 2
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(strFile, constForWriting, True)
objFile.WriteLine("[netoptionalcomponents]")
objFile.WriteLine("dns=1")
objFile.Close

set objWshShell = WScript.CreateObject("WScript.Shell")
intRC = objWshShell.Run("sysocmgr /i:%windir%\inf\sysoc.inf /u:" & _
                        strFile, 0, TRUE)
if intRC <> 0 then
   WScript.Echo "Polecenie sysocmgr zwrcio bd: " & intRC
else
   WScript.Echo "Zainstalowano serwer DNS."
end if
