Here's a simple one I wrote to upgrade Flash, ran by 'cscript //nologo
UpgradeFlash.vbs <PCname>'
Not pretty or perfect, but does the job for us, was written in a rush,
have similar for FireFox and VNC
I use the following batch file with the PC names in a txt file:
--8<------------------------------------------------------------------
@echo off
@for /f %%i in (site_pcs.txt) do (
@echo Upgrading %%i...
@cscript //nologo UpgradeFlash.vbs %%i >>%%i.log 2>&1
@echo Completed %%i...
)
@echo Batch file finished, check log files for details
--8<------------------------------------------------------------------
--8<------------------------------------------------------------------
Dim strInstallerFireFox 'The command to install the software package
Dim strInstallerActiveX
Dim strComputer 'The Computer
Dim objWMIService
Dim strProcess 'The process to terminate before running the command
Dim objProcess
Dim objFSO
Dim strFilePathFireFox 'The filename and path to the installer package
Dim strFilePathActiveX
Dim strDestinationFireFox 'the filename and path on the destination
computer
Dim strDestinationActiveX
Dim colProcess
Dim intProcessID 'The number assigned to the process that is created
'Set the variables
'If there are no arguments, exit...
If WScript.Arguments.Count <> 1 Then
WScript.Echo "No PC name was supplied, exitting script"
WScript.Echo ""
WScript.Echo "Usage: cscript /nologo InstallFlash10.vbs <pcname>"
WScript.Echo ""
WScript.Quit
End If
strComputer = UCase(Trim(WScript.Arguments(0)))
'Path of Flash plugin installer for FireFox on PC to be installed
strInstallerFireFox = "c:\install_flash_player.exe /silent"
'Path of Flash ActiveX installer for FireFox on PC to be installed
strInstallerActiveX = "c:\install_flash_player_ax.exe /silent"
'location of where the installers are to be copied from
strFilePathFireFox =
"\\domain\netlogon\packages\Flash10\install_flash_player.exe"
strFilePathActiveX =
"\\domain\netlogon\packages\Flash10\install_flash_player_ax.exe"
'location of where the installers are to be copied to
strDestinationFireFox = "\\" & strComputer &
"\c$\install_flash_player.exe"
strDestinationActiveX = "\\" & strComputer &
"\c$\install_flash_player_ax.exe"
WScript.Echo
"====================================================================="
'Check to see if PC is on
If IsHostAlive(strComputer) = True Then
WScript.Echo "PC " & strComputer & " is turned on"
Else
WScript.Echo "PC " & strComputer & " is NOT turned on, exiting..."
WScript.Quit
End If
'Display the variables when it runs
WScript.Echo "Target Computer: " & strComputer
WScript.Echo "Command: " & strInstallerFireFox
WScript.Echo "Command: " & strInstallerActiveX
WScript.Echo "Package: " & strDestinationFireFox
WScript.Echo "Package: " & strDestinationActiveX
'Copy the installer package to the target PC
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFileCopy = objFSO.GetFile(strFilePathFireFox)
objFileCopy.Copy (strDestinationFireFox)
Set objFileCopy = objFSO.GetFile(strFilePathActiveX)
objFileCopy.Copy (strDestinationActiveX)
'Start the installer for the FireFox Plugin
Set objWMIService =
GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer &
"\root\cimv2:Win32_Process")
errReturn = objWMIService.Create(strInstallerFireFox, Null, Null,
intProcessID)
If errReturn = 0 Then
WScript.Echo "Flash FireFox plugin installer was started with a process ID
of " & intProcessID
Else
Wscript.Echo "Installer could not be started due to error " & errReturn
End If
'Start the installer for the ActiveX Plugin
errReturn = objWMIService.Create(strInstallerActiveX, Null, Null,
intProcessID)
If errReturn = 0 Then
WScript.Echo "Flash ActiveX installer was started with a process
ID of " & intProcessID
Else
WScript.Echo "Installer could not be started due to error " &
errReturn
End If
WScript.Echo "Script completed for " & strComputer
WScript.Echo
"====================================================================="
WScript.Quit
Function IsHostAlive(strComputer)
Set objPing =
GetObject("winmgmts:{impersonationLevel=impersonate}")._
ExecQuery("select * from Win32_PingStatus where address = '" &
strComputer & "'")
WScript.Echo "Attempting to ping PC " & strComputer
'WScript.Echo " Is PC switched on? ..."
For Each objStatus in objPing
' If there is no response, PC is not on or reachable
If IsNull(objStatus.StatusCode) or objStatus.StatusCode <> 0 Then
IsHostAlive = False
Else
IsHostAlive = True
End If
Next
End Function
--8<------------------------------------------------------------------
Regards
Tony Patton
Desktop Operations Cavan
Ext 8078
Direct Dial 049 435 2878
email: [email protected]
====================================================================
http://www.quinn-insurance.com
This e-mail is intended only for the addressee named above. The contents
should not be copied nor disclosed to any other person. Any views or
opinions expressed are solely those of the sender and
do not necessarily represent those of QUINN-Insurance, unless otherwise
specifically stated . As internet communications are not secure,
QUINN-Insurance is not responsible for the contents of this message nor
responsible for any change made to this message after it was sent by the
original sender. Although virus scanning is used on all inbound and
outbound e-mail, we advise you to carry out your own virus check before
opening any attachment. We cannot accept liability for any damage sustained
as a result of any software viruses.
====================================================================
QUINN-Life Direct Limited is regulated by the Financial Regulator.
QUINN-Insurance Limited is regulated by the Financial Regulator and
regulated by the Financial Services Authority for the conduct of UK
business.
====================================================================
QUINN-Life Direct Limited is registered in Ireland, registration number
292374 and is a private company limited by shares.
QUINN-Insurance Limited is registered in Ireland, registration number
240768 and is a private company limited by shares.
Both companies have their head office at Dublin Road, Cavan, Co. Cavan.
~ Finally, powerful endpoint security that ISN'T a resource hog! ~
~ <http://www.sunbeltsoftware.com/Business/VIPRE-Enterprise/> ~
