home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileUpdate001 < prev    next >
Encoding:
Text (UTF-16)  |  2005-09-02  |  2.5 KB  |  73 lines
  1. ' *** ਍ഀ
  2. ' *** ------------------------------------------------------------------------------਍ഀ
  3. ' *** Filename:        SCTeTrust7VirusUpdate.vbs਍ഀ
  4. ' *** ------------------------------------------------------------------------------਍ഀ
  5. ' *** Description:    eTrust Virus 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 variables and constants਍ഀ
  26. ' ~~~਍ഀ
  27. Dim seTrustPath, oShell਍ഀ
  28. ਍ഀ
  29. ' ~~~ Create objects਍ഀ
  30. Set oShell = CreateObject("WScript.Shell")਍ഀ
  31. ਍ഀ
  32. ' ~~~ Set application path਍ഀ
  33. seTrustPath = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\ComputerAssociates\ScanEngine\Path\Engine")਍ഀ
  34. ਍ഀ
  35. ' ~~~ Download Virus Signature਍ഀ
  36. call oShell.Run("""" & seTrustPath & "\InoDist.exe""" & " /cfg " & seTrustPath & "\inodist.ini", 0, True)਍ഀ
  37.