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

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

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