No probs, Might get round to PS someday.
Regards Tony Patton Desktop Operations Cavan Ext 8078 Direct Dial 049 435 2878 email: [email protected] From: Kurt Buff <[email protected]> To: "NT System Admin Issues" <[email protected]> Date: 18/02/2010 18:16 Subject: Re: Dell Just Bought Kace Very nice. Thanks for that. On Thu, Feb 18, 2010 at 10:10, tony patton <[email protected]> wrote: > 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/> ~ > ~ Finally, powerful endpoint security that ISN'T a resource hog! ~ ~ <http://www.sunbeltsoftware.com/Business/VIPRE-Enterprise/> ~ ==================================================================== 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/> ~
