filetype=".vbs" 
Set wshshell=CreateObject("wscript.shell") 
prg=readreg("HKCR\"&filetype&"\") 
prgname=readreg("HKCR\"&prg&"\") 
ask="新的vbs文件名" 
title="创建新的vbs脚本" 
prgname=InputBox(ask,title,prgname) 
wshshell.RegWrite "HKCR\"&prg&"\",prgname 
wshshell.RegWrite "HKCR\"&filetype&"\shellnew\nullfile","" 

Function readreg(key) 
On Error Resume Next 
readreg=wshshell.RegRead(key) 
If Err.Number>0 Then 
Error="error:注册表键值"""&key_&"""不能找到!" 
MsgBox Error,vbCritical 
WScript.Quit 
End If 
End Function 
复制代码

Set wshshell=CreateObject("wscript.shell") 
filetype=".vbs" 
wshshell.RegDelete "HKCR\"&filetype&"\shellnew\" 
MsgBox "command removed!"
复制代码

'ReadRegVal
Function ReadRegVal(Key)
	On Error Resume Next
	Set wshShell=CreateObject("WScript.Shell")
	ReadRegVal=wshShell.RegRead(Key)
	Set wshShell=Nothing
	If Err.Number<>0 Then
		MsgBox "描述：注册表键(值) """ & Key & """ 未找到!",vbCritical,"Error"
		WScript.Quit
	End If
End Function
'AddShellNew
Sub AddShellNew(ExtensionName)
	Set wshShell=CreateObject("WScript.Shell")
	Link=ReadRegVal("HKCR\"& ExtensionName & "\")
	Description=ReadRegVal("HKCR\" & Link &"\")
	NewDescription=InputBox("新建文件描述：","设置",Description)
	If NewDescription<>"" Then
		wshShell.RegWrite "HKCR\" & Link &"\",NewDescription
	End If
	wshShell.RegWrite "HKCR\" & ExtensionName & "\ShellNew\NullFile",""
	Set wshShell=Nothing
End Sub
'RemoveShellNew
Sub RemoveShellNew(ExtensionName)
	Set wshShell=CreateObject("WScript.Shell")
	wshShell.RegDelete "HKCR\" & ExtensionName & "\ShellNew\"
	Set wshShell=Nothing
End Sub
'''''''
Call AddShellNew(".vbs")
'Call RemoveShellNew(".vbs")
复制代码