'Enable EFS Context Menu
'This script will add the ability to encrypt and decrypt files using EFS from
'the Explorer context menu.
'EnableEFSContext.vbs
'© Robert Dunham - 1/27/2006
'Downloaded from http://www.nilpo.com

On Error Resume Next

message = "This script will encrypt and decrypt options to the Explorer" + vbcr
message = message + "context menu.  Requires Windows XP Professional Edition" + vbcr
message = message + "installed on NTFS." + vbcr + vbcr
message = message + "Would you like to continue applying this tweak?"

result = msgBox(message, _
	VBYesNo + vbQuestion + vbDefaultButton2 + vbSystemModal, _
	"Disable AU Reminder")

If result = vbCancel Then
    WScript.Quit
End If

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Advanced\EncryptionContexMenu", 1, "REG_DWORD"

Message = "File encryption has been added to the Explorer context menu."

X = MsgBox(Message, vbOKOnly, "Done")
Set WshShell = Nothing