home *** CD-ROM | disk | FTP | other *** search
/ PC Professionell 2006 May / PCpro_2006_05.ISO / files / free_security / msshared / Shared_Computer_Toolkit_ENU.msi / FileUpdate002 < prev    next >
Encoding:
Text (UTF-16)  |  2005-09-02  |  2.5 KB  |  77 lines
  1. ' *** ਍ഀ
  2. ' *** ------------------------------------------------------------------------------਍ഀ
  3. ' *** Filename:        SCTMcAfee8EntVirusUpdate.vbs਍ഀ
  4. ' *** ------------------------------------------------------------------------------਍ഀ
  5. ' *** Description:    McAfee 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. ' ~~~ ਍ഀ
  26. ' ~~~ Declare global variables਍ഀ
  27. ' ~~~ ਍ഀ
  28. Dim sMcAfeePath, oShell਍ഀ
  29. ਍ഀ
  30. ' ~~~ Create objects਍ഀ
  31. Set oShell = CreateObject("WScript.Shell")਍ഀ
  32. ਍ഀ
  33. ' ~~~ Set application path਍ഀ
  34. sMcAfeePath = oShell.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Network Associates\TVD\VirusScan Enterprise\CurrentVersion\szUpdateEXE")਍ഀ
  35. ਍ഀ
  36. ' ~~~ Download Virus Signature਍ഀ
  37. call oShell.Run("""" & sMcAfeePath & """" &  " /Update /Quiet")਍ഀ
  38. ਍ഀ
  39.