msi.installer

[pasfocus]

i have recently been tasked to update SMS clients on my workgroup...

i have an issue that i cannot resolve and maybe you guys can help me out.

Dim oShell 

set oShell = Wscript.CreateObject("WScript.Shell")


Set msi = CreateObject("WindowsInstaller.Installer")
' set the UI level to Full interactivity
msi.UILevel = 5
' launch the installer
msi.InstallProduct "c:\Temp\client.msi", "INSTALL=ALL"
' clean up
Set msi = Nothing

oShell.AppActivate "SMS Advanced Client Setup"

wscript.sleep 1500
Oshell.Sendkeys "N"
wscript.sleep 1500
Oshell.Sendkeys "SMSSITE"

So basicly i have to install this SMS client that has to have a certain SMS Site. basicly my UILEVEL is fully interactive and i would like to be able to send keys, (oShell.sendkeys "test"),after the installation has started. But it doesn't sendkeys... i have changed the time to 3 seconds and it still doesn't have an affect

Any thoughts on this would be great..

thanks in advance

 

[Brent113]

I've had poor luck with built in sendkeys. I have a class wrapper called cSendKeys wqhich can be found at

http://www.vbaccelerator.com/home/VB/Tips/SendKeys_using_the_API/article.asp

.

It works for me, I hope it works for you

____________________________________________________________________________
There are only 10 types of people in the world. Those that know binary and those that don't

Brent