home *** CD-ROM | disk | FTP | other *** search
/ PC World 2007 December / PCWorld_2007-12_cd.bin / v cisle / steadystate / SteadyState_Setup_ENU.exe / scttrendmicroantivirus.vbs < prev    next >
Encoding:
Text File  |  2007-03-09  |  1.2 KB  |  40 lines
  1. ' ***  
  2. ' *** ------------------------------------------------------------------------------
  3. ' *** Filename:        TrendMicroAntiVirus.vbs
  4. ' *** ------------------------------------------------------------------------------
  5. ' *** Description:    TrendMicroAntiVirus Signature Update
  6. ' *** ------------------------------------------------------------------------------
  7. ' *** Version:        1.0
  8. ' *** Notes:        Used by Windows Disk Protection
  9. ' *** ------------------------------------------------------------------------------
  10. ' *** Copyright (C) Microsoft Corporation 2005, All Rights Reserved
  11. ' *** ------------------------------------------------------------------------------
  12. ' *** 
  13.  
  14. ' ~~~ 
  15. ' ~~~ Force variables to be declared 
  16. ' ~~~ 
  17. Option Explicit
  18.  
  19. ' ~~~ 
  20. ' ~~~ Turn on error handling
  21. ' ~~~ 
  22. On Error Resume Next
  23.  
  24. ' ~~~ 
  25. ' ~~~ Declare global variables
  26. ' ~~~ 
  27. Dim sTrendMicroPath, oShell, strComputer, oWMIService, ColProcesses
  28.  
  29. ' ~~~ Create objects
  30. Set oShell = CreateObject("WScript.Shell")
  31.  
  32. ' ~~~ Set application path
  33. sTrendMicroPath = oshell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\TrendMicro\PC-cillinNTCorp\CurrentVersion\Application Path")
  34.  
  35.  
  36. '~~~ Download Virus Signature
  37. call oShell.Run(""""& sTrendMicroPath & "\ClnUpdNow.exe""", 0, True)
  38.  
  39.  
  40.