' Create a new entry on the right Click New for VBScript files

Set objShell = WScript.CreateObject ("WScript.Shell")
Set fso  	 = CreateObject("Scripting.FileSystemObject")
'Registry change
objShell.RegWrite "HKCR\.VBS\ShellNew\FileName","template.vbs"
'Create the file "C:\WINDOWS\system32\ShellExt\template.vbs"
If Not fso.FolderExists("C:\WINDOWS\system32\ShellExt") then
	fso.CreateFolder("C:\WINDOWS\system32\ShellExt")
End If
If Not fso.FileExists("C:\WINDOWS\system32\ShellExt\template.vbs") then
	fso.CreateTextFile("C:\WINDOWS\system32\ShellExt\template.vbs")
End If