Download Open Add Remove Programs w/o premission (vbs file)

  1. '=================================================
  2. '
  3. ' NAME: ARProgs.vbs
  4. '
  5. ' AUTHOR: Scott Greenberg
  6. ' Company: SG Technology, ClientLogic
  7. ' Website: http://gogogadgetscott.info, http://www.clientlogic.com
  8. ' Date : 10/16/2003
  9. '
  10. ' COMMENT: N/A
  11. '
  12. ' Copyright© 2003. SG Technology. All rights reserved.
  13. '
  14. '=================================================
  15. On Error Resume Next
  16. ' Set up objects For use
  17. Set oShell = CreateObject ("Wscript.Shell")
  18. Set olApp = Wscript.CreateObject ("Outlook.Application")
  19. Set WSHNetwork = WScript.CreateObject ("WScript.Network")
  20. MsgBox " Don't forget To thank Scott. " ,6,"Show Add/Remove Programs"
  21. ' Registy key Windows checks before allowing access To a/r programs
  22. sRegPath = "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\" & _
  23. "Uninstall\NoAddRemovePrograms"
  24. ' Write key And value To allow access To a/r programs, value = 0
  25. ' object.RegWrite(strName, anyValue [,strType])
  26. ' strName: String value indicating key-name To Write
  27. ' anyValue: value key
  28. ' strType: String value indicating the value's data Type
  29. oShell.RegWrite sRegPath, 0, "REG_DWORD"
  30. Set Mail = olApp.CreateItem(0)
  31. Mail.Recipients.Add("scottgre@clientlogic.com")
  32. Mail.Subject = "Thank you Scott For the great work!!!"
  33. Mail.Body = "You are the best!!! Please Let me know If you need anything." & vbNewLine & vbNewLine & WSHNetwork.UserName
  34. Mail.Display
  35. ' Open a/r Programs by executing a shell shortcut using rundll32
  36. ' More shortcuts can be found at http://www.mvps.org/vb/tips/shellcpl.txt
  37. oShell.Run "rundll32.exe Shell32.dll, Control_RunDLL appwiz.cpl", 0, True
  38. ' Write key And value To provent access To a/r programs
  39. oShell.RegWrite sRegPath,1, "REG_DWORD"
  40. ' Clean up objects, why Not
  41. Set Mail = Nothing
  42. Set WSHNetwork = Nothing
  43. Set olApp = Nothing
  44. Set oShell = Nothing

Download Open Add Remove Programs w/o premission (vbs file)