 |
Mithilfe von VBS lassen sich MSI-Dateien installieren. So ist es möglich Installationen auf mehreren Windows-PCs lokal aber auch remote auszuführen. Vorrausgesetzt dafür ist nur die Verwendung des Windows Installer Packages. |
Das erstes Beispiel zeigt Ihnen wie man Software lokal installiert. Die Datei liegt dabei im Ordner "C:\

Install\

software.msi". Dieses Script installiert die Software für alle User, die Konstante "ALL_USERS" wird dazu auf "True" gesetzt. Setzen Sie den Wert auf "False", so wird die Software nur für den aktuell angemeldeten User installiert.
Const ALL_USERS = True
Set objService = GetObject("winmgmts:")
Set objSoftware = objService.Get("Win32_Product")
errReturn = objSoftware.Install("C:\

Install\

software.msi", , ALL_USERS)
Das nächste Script installiert die Software remote. Beachten Sie dabei die Methode "objwbemLocator.ConnectServer", die Sie mit dem gewünschten Server verbindet. Die Software liegt in diesem Beispiel auf "\

server2\

Install\

software.msi".
Const wbemImpersonationLevelDelegate = 4
Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator")
Set objConnection = objwbemLocator.ConnectServer _
("WebServer", "rootcimv2", "DomäneAdministrator", _
"Passwort", , "kerberos:WebServer")
objConnection.Security_.ImpersonationLevel = wbemImpersonationLevelDelegate
Set objSoftware = objConnection.Get("Win32_Product")
objSoftware.Install("\

server2\

Install\

software.msi",,True)
Autor: Dominik Berger