'msinfo32_rightclick.vbs - Add System Information (MSINFO32.EXE) to the right click

Option Explicit
On Error Resume Next

'Declare variables
Dim WSHShell, MyBox, p1, q1, t
Dim jobfunc, strName

'Set the Windows Script Host Shell and assign values to variables
Set WSHShell = WScript.CreateObject("WScript.Shell")

strName = InputBox("Enter the name you would like for the entry.","Add System Information to right click","System Information")

p1 = "HKEY_CLASSES_ROOT\Directory\shell\MSINFO32\"

q1="%CommonProgramFiles%\Microsoft Shared\MSInfo\msinfo32.exe"

'Describe the funtion of the script for a dialog box

jobfunc = "System Information has been added to the" & vbCR
jobfunc = jobfunc & "right click context menu in Explorer."

'This section writes the correct values to the Registry

WSHShell.RegWrite p1, strName, "REG_SZ"
WshShell.RegWrite p1 & "command\", q1, "REG_EXPAND_SZ"

t = "Confirmation"
MyBox = MsgBox (jobfunc, 4096, t)
Set WshShell = Nothing