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

constForWriting = 2
set objFSO = CreateObject("Scripting.FileSystemObject")
set objFile = objFSO.OpenTextFile(strFile, constForWriting, True)
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

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 "Serwer IIS zosta zainstalowany."
end if
