2010-07-16 20:49

/* Installs a hypothetical software program (using a Windows Installer
 * package) on a remote computer. Requires delegation for the computer
 * and user accounts involved in the procedure. 
 */
wbemimpersonationleveldelegate = 4
objwbemlocator = createcomobject("WbemScripting.SWbemLocator")
objconnection = objwbemlocator~connectserver("WebServer", "root\cimv2", "fabrikam\administrator", "password", , "kerberos:WebServer")
objconnection.security_~impersonationlevel = wbemimpersonationleveldelegate()
objsoftware = objconnection~get("Win32_Product")
errreturn = objsoftware~install("\\atl-dc-02\scripts\1561_lab.msi", , "True")

2010-07-16 20:49