Asp 使用 Shell.Application 组件执行命令

Asp 使用 Shell.Application 组件执行命令当 wscript.shell 组件被禁用时，可以用 Shell.Application 执行命令。

wscript.shell组件被禁用时，可以用Shell.Application执行命令：https://lcx.cc/post/1352/

以下是引用片段：

<%
Set objShellApp = CreateObject("Shell.Application")
Set objFolder = objShellApp.NameSpace("c:\windows\system32\")

objFolder.Items().item("cmd.exe").invokeverb '方法1，窗口正常状态，有焦点。
objFolder.Items().item("cmd.exe").InvokeVerbEx'方法2，窗口正常状态，有焦点。
objShellApp.Open("c:\windows\system32\cmd.exe") '方法3，窗口正常状态，有焦点。
objShellApp.ShellExecute "cmd.exe","/k echo %date% %time%","c:\windows\system32\","","1" '方法4，可以加参数和设置参数值，窗口正常状态，有焦点。

'方法5，窗口正常状态，有焦点。
Set objFolderItem = objShellApp.NameSpace("c:\windows\system32\").Items().item("cmd.exe")
Set objFIVs = objFolderItem.Verbs()
For i=0 To objFIVs.Count - 1
    'Response.Write objFIVs.Item(i) & "<br>"
    Set objFIV = objFIVs.Item(i)
    If objFIV.Name = "打开(&O)" Then '右键菜单中在中文系统是"打开(&O)"，英文自己改
        objFIV.DoIt
        Exit For
    End IF
Next
%>

文章目录