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
