设置命令的vbs脚本代码(创建快捷运行)

《设置命令的vbs脚本代码(创建快捷运行)》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、.'作者：刘先勇(EricLiu)'将以下代码复制并保存为"系统命令.VBS"，并运行安装。'安装成功后，可通过在程序、文件或文件夹上点右键->发送到->系统命令来设置一个命令，然后在运行中就可以输入该命令打开文件了。'脚本运行一次后在右键菜单中增加从这里运行CMD的快捷方式，还增加查找目标文件快捷方式'OnErrorResumeNextIf(lcase(right(wscript.fullname,11))<>"wscript.exe")thensetobjShell=createObject("wscript.shell")objShell.Run("Wscript//nologo

2、"&chr(34)&wscript.scriptfullname&chr(34))Wscript.QuitendifSetpCmd=CreateObject("WScript.Shell")SetpFso=CreateObject("Scripting.FileSystemObject")SetpShell=CreateObject("Shell.Application")SetpSysEnv=CreateObject("WScript.Shell").Environment("system")strComputer="."SetpWMIService=GetObject("winmg

3、mts:\"&strComputer&"rootcimv2")FunctionLGetPath(pFile)iLastSepPos=InstrRev(pFile,"",-1,1)IfiLastSepPos<=0ThenLGetPath=""ExitFunctionElseLGetPath=Left(pFile,iLastSepPos-1)EndIfEndFunctionFunctionGetLnkTarget(linkPath)linkPath=Replace(linkPath,"","\")SetpFiles=pWMIService.ExecQuery("Select*F

4、romWin32_ShortcutFileWHEREName="&"'"&linkPath&"'")ForEachpFileinpFilesGetLnkTarget=pFile.TargetExitForNextEndFunctionFunctionListSysCmd(pFileName)...SysCmdPath=pCmd.RegRead("HKCUSoftwareMicrosoftWindowsCurrentVersionExplorerShellFoldersSysCmd")SetpFolder=pFso.GetFolder(SysCmdPath)SetpFile

5、=pFso.OpenTextFile(pFileName,2,True)ForEachfileinpFolder.FileslinkPath=SysCmdPath&""&file.nameIFUCASE(Right(file.name,4))=".LNK"ThenSetlnkFiles=pWMIService.ExecQuery("Select*FromWin32_ShortcutFileWHEREName="&"'"&Replace(linkPath,"","\")&"'")ForEachlnkFileinlnkFilespFile.WriteLine(linkPath&""&

6、lnkFile.Target)NextElsepFile.WriteLinelinkPathEndIFNextEndFunctionFunctionGetConfigPathSetpFolder=pShell.BrowseForFolder(0,"请选择一个目录:",0,"::{20D04FE0-3AEA-1069-A2D8-08002B30309D}")IfpFolderIsNothingThenWscript.QuitEndIfSetpFolderItem=pFolder.SelfGetConfigPath=pFolderItem.PathEndFunctionSubSetEnv(

7、pPath,pValue)IfpValue=""ThenpSysEnv.Remove(pPath)ElsepSysEnv(pPath)=pValueEndIFEndSubFunctionGetEnv(pPath)GetEnv=pSysEnv(pPath)EndFunction'判断一个字符串是否匹配一个正则表达式'^w+[@]w+[.]w+$E-Mail地址'^[0-9-]+$数字FunctionIsMatch(Str,Patrn)...