2010-07-16 20:49

/* Upgrades a hypothetical software installation */
strcomputer = "."
objwmiservice = getobject("winmgmts:{impersonationLevel=impersonate}!\\" || strcomputer || "\root\cimv2")
colsoftware = objwmiservice~execquery("Select * from Win32__Product Where Name = 'Personnel Database'")
DO objsoftware OVER colsoftware
	errreturn = objsoftware~upgrade("c:\scripts\database2.msi")
END
RETURN

2010-07-16 20:49