Option Explicit On Error Resume Next 'Declare variables Dim WSHShell, p1, t Dim jobfunc, SMText, SMPath 'Set the Windows Script Host Shell and assign values to variables Set WSHShell = WScript.CreateObject("WScript.Shell") SMText = Inputbox("Enter the text you want to appear on the Start Menu.","Entry name","Enter Text Here") If SMText = "" Then WScript.Quit End If SMPath = Inputbox("Enter the path to the folder.","Enter Folder path","C:\Documents and Settings") If SMPATH = "" Then WScript.Quit End If p1 = "HKCR\CLSID\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\" WSHShell.RegWrite p1, SMText WSHShell.RegWrite p1 & "Infotip", SMPath WSHShell.RegWrite p1 & "DefaultIcon\","%systemroot%\system32\shell32.dll,4" WSHShell.RegWrite p1 & "InProcServer32\","%systemroot%\system32\shdocvw.dll", "REG_EXPAND_SZ" WSHShell.RegWrite p1 & "InProcServer32\ThreadingModel","Apartment" WSHShell.RegWrite p1 & "Instance\CLSID","{3f454f0e-42ae-4d7c-8ea3-328250d6e272}" WSHShell.RegWrite p1 & "Instance\InitPropertyBag\CLSID","{13709620-C279-11CE-A49E-444553540000}" WSHShell.RegWrite p1 & "Instance\InitPropertyBag\Command","&Open" WSHShell.RegWrite p1 & "Instance\InitPropertyBag\method","ShellExecute" WSHShell.RegWrite p1 & "Instance\InitPropertyBag\Param1",SMPath WSHShell.RegWrite p1 & "shellex\ContextMenuHandlers\{2559a1f6-21d7-11d4-bdaf-00c04f60b9f0}\","" WSHShell.RegWrite p1 & "shellex\MayChangeDefaultMenu\","" WSHShell.RegWrite p1 & "ShellFolder\Attributes",0,"REG_DWORD" WSHShell.RegWrite "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\StartMenu\StartPanel\ShowOEMLink\NoOEMLinkInstalled",0,"REG_DWORD" Set WshShell = Nothing 'Describe the funtion of the script for a dialog box jobfunc = SMText & vbcr & SMPath & vbcr & "Has been added to the Start Menu" & vbCR & vbcr jobfunc = jobfunc & "Log off/log on to see the changes." t = "Confirmation" MsgBox jobfunc, 4096, t