none
目前我们安装IIS都是通过“添加/删除Windows组件”来安装,给一般客户用起来很不方便,而且很多客户都不会安装,所以我想用VB做个安装程序来实现IIS的安装,不知道VB能否实现这一点? RRS feed

  • 问题

  • 目前我们安装IIS都是通过“添加/删除Windows组件”来安装,给一般客户用起来很不方便,而且很多客户都不会安装,所以我想用VB做个安装程序来实现IIS的安装,不知道VB能否实现这一点?

    2007年8月2日 7:37

答案

  • 您需要通过Sysocmgr.exe来add or remove Windows Components,以下提供一段安装IIS的vbscript代码:

    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 "Error returned from sysocmgr command: " & intRC
    else
    WScript.Echo "IIS installed"
    end if
    其中iis_install.txt是安装IIS的Answer file, 关于Answer file的详细信息可以参看:
    http://support.microsoft.com/kb/222444

     

    2007年8月2日 8:14

全部回复

  • 您需要通过Sysocmgr.exe来add or remove Windows Components,以下提供一段安装IIS的vbscript代码:

    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 "Error returned from sysocmgr command: " & intRC
    else
    WScript.Echo "IIS installed"
    end if
    其中iis_install.txt是安装IIS的Answer file, 关于Answer file的详细信息可以参看:
    http://support.microsoft.com/kb/222444

     

    2007年8月2日 8:14
  • https://support.microsoft.com/zh-cn/help/309506/how-to-perform-an-unattended-installation-of-iis-6.0

    微软官方有个关于一键安装IIS的教程。不用VB,批处理就可用实现了。

    2017年2月24日 14:48