code:

---

 $RC = MessageBox("Silent install will run now."
 + Chr(13) + "Please be patient!","ShowCase Strategy Install",64,60)
USE L: /DELETE
USE L: "\\FFSMS\SC3"
SHELL("L:\CLIENT\SETUP.EXE -S")
 

---

code:

---

 ;  check if already installed
$SC3uninstall = ReadValue("HKEY_LOCAL_MACHINE\software\microsoft\windows\currentversion\uninstall\ShowCase STRATEGY 3.0", "uninstallstring")
if $SC3uninstall = ""
  goto install
else
  goto finish
endif
 

---

If you can't get a silent install, look to using setfocus() and sendkeys() to move the install along.

I don't understand why you say "doesn't provide an option to to be run on dos mode". Are you referring to shell? Try using the full path or the run command.

What do you mean by this?

quote:

---

If you can't get a silent install, look to using setfocus() and sendkeys() to move the install along.

---

Can you give me more info on how to implement this? because I have a doubtful mind I won't be able to run this setup.exe executable silently/automatically otherwise.

Thanks a bunch for the infos... -Jimmy

If SetFocus ("Untitled - Notepad") = 0 ;Notepad in memory

If SetFocus ("Untitled - Notepad") <> 0 ; Notepad not in memory

SendKeys() will stuff characters to the window you just setfocus to.

Here's a sample from the manual:

code:

---

Run "notepad.exe"
SetFocus( "Untitled – Notepad" )
$ReturnCode = SendKeys("Hello World")
Sleep( 2 )
$ReturnCode = SendKeys("~{F4}Y")

---

It's not perfect. Users can break it. Throw up message boxes to let them know what's happening. Here's a sample from one of my scripts:

code:

---

 
MessageBox("NOTICE!" + Chr(13) + "LANDesk Virus Protect must first be uninstalled." + Chr(13) + "System must REBOOT when complete!" + Chr(13) + "Choose Yes to uninstall and Yes to reboot" + Chr(13) + "on the two options that follow","Norton AntiVirus 7.5 Install",48,60)
RUN "C:\Program Files\LANDesk\VP5\vpremove.exe"
goto finish
endif
RUN "C:\Program Files\LANDesk\VP5\vpremove.exe"
sleep( 1 )
setfocus("Uninstall Message")
sendkeys({ENTER})
sleep( 15 )
setfocus("Uninstall Message")
sendkeys({ENTER})
endif

---

Another idea.

The step you can do is:
if specified file doesn't exist you will run your script.
by completion of your script it will create specified file and
it will prevent a new installation by next logging on.

Example code:

code:

---

  $specified_file="c:\install400.ok"
  IF (Exist($specified_file) = 0)
       ; - run installation script or procedure
       ; - possible calls are:
       ; - shell '%comspec% /c x:\software\setup.exe'
       ; - shell '%comspec% /c start /w x:\software\setup.exe'
       ; - shell '%comspec% /c call x:\software\install.bat'
       ;
       ; - script completed. result $specified_file will be created.
       IF (WriteProfileString($specified,"install",@userid,@date+" "+@time) <> 0)
       ENDIF
  ELSE
    $info=ReadProfileString($specified_file,"install",@userid)
    ? "Informative INSTALL: software already installed at "+$info
  ENDIF

---

LL, thanks for your input about sendkeys and setfocus. Man, i didn't even know they existed! Thanks a bunch guys! Hope it works... -Jimmy

Another question I have is that I can't seem to make the setfocus and sendkeys to work:

Here is my code:

code:

---

$linxlog="c:\install001.ok"
  IF (Exist($linxlog) = 0)
	Shell( “setup.exe” )
	sleep( 2 )
	SetFocus( “Lan” )
	SendKeys("{ENTER}” ;)
	Sleep( 1 )
	SetFocus( "Type of Installation" )
	SendKeys("{DOWN}” ;)
	Sleep( 1 )
	SetFocus( "Lan" )
	SendKeys("{ENTER 3}” ;)
	Sleep( 10 )
	SetFocus( “Telephony” )
	SendKeys("~O” ;)
	SetFocus( "Lan" )
	SendKeys("{ENTER}” ;)
       ; - script completed. result $linxlog will be created.
       IF (WriteProfileString($linxlog,"install",@userid,@date+" "+@time) <> 0)
       ENDIF
  ELSE
    $info=ReadProfileString($linxlog,"install",@userid)
    ? "Informative INSTALL: software already installed at "+$info
  ENDIF

---

It gives me an error on the second setfocus saying that:

quote:

---

1407Script error : error in parameter(s) !.
SetFocus( "Type of Installation" )

---

I hope when this set focus is fixed, I'd like to know if the rest of the code will work. Thanks. -Jimmy

[ 20 July 2001: Message edited by: jvd626 ]

It keeps giving me this input on NT/2000:

quote:

---

Please go to the Control Panel to Install and configure system components.
(OK)

---

Also after saying (ok), while executing the script, it gives out these numbers four by four from left to right:

quote:

---

14070 14070 14070...etc.

---

It doesn't even install the program once its finished, however it creates a install file on C: drive...

Please help!

code:

---

 
;  check OS WinNT = 1, Win95 = 2
;
if @INWIN = 2 goto OSRightsOK endif
;-----------------------------------------------------------------------------------
;must not be Win95, therefor must be WinNT so more checks are in order
;-----------------------------------------------------------------------------------
;  check if logon to Server or Workstation
;PRODUCTTYPE - WinNT = Workstation, ServerNT = Member Server, LanmanNT = Domain Controller
;
$PRODUCTTYPE = READVALUE("HKEY_LOCAL_MACHINE\SYSTEM\CURRENTCONTROLSET\CONTROL\PRODUCTOPTIONS","PRODUCTTYPE")
if $PRODUCTTYPE = "WinNT" goto NTwks endif
;
;  if logon to server as non-admin, just exit without notice (for WTS users) else nag and exit
;
if INGROUP ("Domain Admins") <> 2 goto finish
  beep
  $RC = MessageBox("NOTICE!" + Chr(13) + "YOU ARE LOGGED ON TO A SERVER, installation aborting!"
  + Chr(13),"ShowCase Strategy 3 Install",16,60)
  goto finish
ENDIF
;-----------------------------------------------------------------------------------
:NTwks
;-----------------------------------------------------------------------------------
;  check if NT User has Local Admin rights
;
if INGROUP ("\\" + @WKSTA + "\Administrators") = 2
  goto OSRightsOK
else
  beep
  $RC = MessageBox("NOTICE!" + Chr(13) + "Insufficient rights, installation aborting!"
  + Chr(13) + "Please notify the FF HelpDesk at ext. 1864","ShowCase Strategy 3 PTF O301120 Install",16,60)
  goto finish
endif
;-----------------------------------------------------------------------------------
:OSRightsOK

---

The stuff between the quotes on setfocus() has to match each window exactly. Close doesn't count. It would also be good practice to use FlushKB to clear the buffer in case your users hit keys before your SendKeys().

Also, with SHELL, the script should wait. If it does, there's nothing to setfocus to. You may need to use RUN instead.

That's the problem with using a file flag to test if installed. If your codes not rock solid, you could have a failed install and a set flag. If the install adds itself to add/remove, I prefer the registry check.

If you're doing an upgrade, another thing you can do is to test the current version to determine if an upgrade is needed. Here's how I do that:

code:

---

 
if GetFileVersion($syspath + "\SCODBC32.DLL") = "3.01.120.122 (2001-05-10)"
  goto finish
endif
 

---

code:

---

While
  $RC = SetFocus("Untitled - Notepad") <> 0
  Sleep (1)
Loop
$RC = SendKeys("Hello World")

---

Of course a registry entry can also be used, but we are using for
each workstation a configuration history file on the server, which
are updated with all kind of kixtart scripts.
The advantages are:

• the actual information about a workstation has been backupped all
  the time.
  
• without any problem we can make any cross-table of important items
  without the need of a restart of analyzing the workstations.
  possible problem with some information are detected in an early stage.
  

Also, would anyone show me how to make it so that users will be prompted first and say "ok," so they will know what is going on? Since I can't make it silently install, might as well give the users heads up what is happening first right?

Here is an example:

quote:

---

Your Phone software will be upgraded. Click [Enter] to continue...

---

[ 21 July 2001: Message edited by: jvd626 ]

code:

---

$RC= MessageBox("Your Phone software will be upgraded." + Chr(13) + "Please be patient!","Phone Software Install",64,60)

---

RTFM for what the numbers mean or search this board for some undocumented ones.

code:

---

	While
	$RC = SetFocus( "Installing" ) <> 0
	Sleep( 1 )
	Loop
	SetFocus( "Telephony LAN-Linx Config" )
	SendKeys("~O")
	Sleep( 3 )
	SetFocus( "Lan-Linx 2000 Installation" )
	SendKeys("{ENTER}")

---

Any ideas? THanks alot.