Para desplegar un fichero MSI en todos los usuarios de un dominio Windows, es necesario crear este script de VBS:
Dim dialog_name, dir_sccm, local(1), objIE, WshEnv, objShell, objRed, cmd_line(2)
Set objRed = CreateObject(«Wscript.Network»)
Set objIE = CreateObject(«internetexplorer.application»)
Set objShell = CreateObject(«WScript.Shell»)
Set FSO = CreateObject(«Scripting.FileSystemObject»)
set WshEnv = objShell.Environment(«Process»)
‘Revisar si el programa está instalada, elegir una carpeta dentro del directorio del programa
If NOT (FSO.FolderExists(«C:\Program Files (x86)\[PROGRAM_PATH]»)) Then
‘ Usuario de administrador del dominio
local(0)=»DOMAIN\Administrador»
‘ Contraseña
local(1)=»—»
‘ Cambiar la ruta del desitino del fichero ….msi
cmd_line(0)=»msiexec /qb /i \\PATH\DIR\file.msi /qn /norestart INSTALLLEVEL=3″
runas_app(cmd_line(0))
function runas_app(program)
FullIEFoldier = objIE.Fullname
runas_this = WshEnv(«SystemRoot»)&»\System32\runas.exe»
fullrunas_this = «runas /user:» & local(0) & » » & CHR(34) & program & CHR(34)
rc=objShell.Run(fullrunas_this,2,FALSE)
Wscript.Sleep 1000
objShell.AppActivate(runas_this)’ Wscript.Sleep 1000
objShell.SendKeys(local(1) & chr(13))
End Function
WScript.Quit
End If
