MSI实现SILENT安装自动化

本机silent安装自动化：

1

2

3

4

5

6

'  本机机器silent安装软件

Const ALL_USERS = True

 

Set objService = GetObject("winmgmts:")

Set objSoftware = objService.Get("Win32_Product")

errReturn = objSoftware.Install("c:\iquicktest.msi", , ALL_USERS)

远程Silent安装自动化:

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

' 远程silent安装软件

 

Computer = "MyPC"

user = "MyPC\administrator"

pwd = "password"

 

Const wbemImpersonationLevelDelegate = 4

 

Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")

Set objConnection = objwbemLocator.ConnectServer _

    (Computer, "root\cimv2", user, _

         pwd)

objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate

 

Set objSoftware = objConnection.Get("Win32_Product")

errReturn = objSoftware.Install("\\shared\Setup\iquicktest.msi",,True)