home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileUpdate003 < prev    next >
Encoding:
Text (UTF-16)  |  2005-09-02  |  2.5 KB  |  75 lines
  1. ' *** ਍ഀ
  2. ' *** ------------------------------------------------------------------------------਍ഀ
  3. ' *** Filename:        SCTMcAfee9VirusUpdate.vbs਍ഀ
  4. ' *** ------------------------------------------------------------------------------਍ഀ
  5. ' *** Description:    McAfee Virus Signature Update for VirusScan 9.0਍ഀ
  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 sMcAfeePath, oShell਍ഀ
  28. ਍ഀ
  29. ' ~~~ Create objects਍ഀ
  30. Set oShell = CreateObject("WScript.Shell")਍ഀ
  31. ਍ഀ
  32. ' ~~~ Set application path਍ഀ
  33. sMcAfeePath = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\McAfee.com\Agent\Install Dir")਍ഀ
  34. ਍ഀ
  35. ' ~~~ Download Virus Signature਍ഀ
  36. call oShell.Run(chr(34) & sMcAfeePath & "\mcupdate.exe" & chr(34) & " /Schedule")਍ഀ
  37. ਍ഀ
  38.