'
' Send To Toys
'
' Context Menu Removal
'

Dim oShell
Dim oFso
Dim sSendToFolder
Dim sProgramFolder
Dim oShortcut

' ask confirmation
If MsgBox( "This script will remove the Send To Toys context menu entries," & vbCrLf & "and move them under the Send To menu." & vbCrLf & vbCrLf & "Would you like to continue?", vbQuestion+vbYesNo, "Send To Toys") = vbNo Then

	' quit
	WScript.Quit

Else

	' create objects
	Set oShell = WScript.CreateObject( "WScript.Shell" )
	Set oFso = CreateObject("Scripting.FileSystemObject")

	oShell.RegDelete "HKCR\Directory\shell\sendtotoys1add\command\"
	oShell.RegDelete "HKCR\Directory\shell\sendtotoys1add\"
	oShell.RegDelete "HKCR\Directory\shell\sendtotoys1remove\command\"
	oShell.RegDelete "HKCR\Directory\shell\sendtotoys1remove\"
	oShell.RegDelete "HKCR\exefile\shell\sendtotoys1add\command\"
	oShell.RegDelete "HKCR\exefile\shell\sendtotoys1add\"
	oShell.RegDelete "HKCR\exefile\shell\sendtotoys1remove\command\"
	oShell.RegDelete "HKCR\exefile\shell\sendtotoys1remove\"
	oShell.RegDelete "HKCR\Directory\shell\sendtotoys2prompt\command\"
	oShell.RegDelete "HKCR\Directory\shell\sendtotoys2prompt\"
   
	' get folders location
	sSendToFolder = oShell.SpecialFolders( "SendTo" ) & "\"
	sProgramFolder = oShell.RegRead( "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\ProgramFilesDir" ) & "\Send To Toys\"

	' create shortcut for Add to Send To menu
	Set oShortcut = oShell.CreateShortcut( sSendToFolder & "Add to Send To menu.lnk" )
	oShortcut.TargetPath = sProgramFolder & "SendToAdd.exe"
	oShortcut.Save

	' create shortcut for Remove from Send To menu
	Set oShortcut = oShell.CreateShortcut( sSendToFolder & "Remove from Send To menu.lnk" )
	oShortcut.TargetPath = sProgramFolder & "SendToRemove.exe"
	oShortcut.Save

	' notify user
	MsgBox "Removal completed successfully.", vbInformation+vbOKOnly, "Send To Toys"

End If