How to write a VBS script code for setting commands

This article will explain in detail how to write a VBS script code for setting commands. The editor thinks it is very practical, so I share it with you as a reference. I hope you can get something after reading this article.

The code is as follows:

'copy and save the following code as system Command .VBS and run the installation.

After the installation is successful, you can set a command by right-clicking on the program, file or folder-> send to-> system command, and then you can enter the command to open the file during the run.

'After running the script once, add a shortcut to run CMD from here in the right-click menu and a shortcut to find the target file

'On Error Resume Next

If (lcase (right (wscript.fullname,11)) "wscript.exe") then

Set objShell=createObject ("wscript.shell")

ObjShell.Run ("Wscript / / nologo" & chr (34) & wscript.scriptfullname&chr (34))

Wscript.Quit

End if

Set pCmd=CreateObject ("WScript.Shell")

Set pFso=CreateObject ("Scripting.FileSystemObject")

Set pShell = CreateObject ("Shell.Application")

Set pSysEnv = CreateObject ("WScript.Shell") .Environment ("system")

StrComputer = "."

Set pWMIService = GetObject ("winmgmts:\\" & strComputer & "\ root\ cimv2")

Function LGetPath (pFile)

ILastSepPos = InstrRev (pFile, "\",-1,1)

If iLastSepPos