Shell.Application執(zhí)行命令的五種方法小結(jié)
更新時(shí)間：2010年11月28日 19:10:29 作者：
可能很多人發(fā)現(xiàn)了在海陽頂端2006+版本中Shell.Application執(zhí)行命令的方法在win2003中不好用了。
當(dāng)初老馬寫這個(gè)版本時(shí)，我測試過簡繁兩個(gè)2003版本的，當(dāng)是是好用的。我猜測很可能與2003打了ms06014補(bǔ)丁有關(guān)。kyo在冰點(diǎn)論壇提出了解決方法，我今天下午研究了一下這個(gè)組件，發(fā)現(xiàn)它有5種方法可以執(zhí)行命令。以下是vbs版本（asp版不提供了，如何利用asp版本在2003的webshell中運(yùn)行命令，自己解決吧：-）：
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,可以加參數(shù)和設(shè)置參數(shù)值
'方法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 '右鍵菜單中在中文系統(tǒng)是"打開(&O)"，英文自己改
objFIV.DoIt
Exit For
End IF
Next
復(fù)制代碼 代碼如下:
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,可以加參數(shù)和設(shè)置參數(shù)值
'方法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 '右鍵菜單中在中文系統(tǒng)是"打開(&O)"，英文自己改
objFIV.DoIt
Exit For
End IF
Next
相關(guān)文章
一個(gè)收集的下載木馬并運(yùn)行的VBS代碼...2007-03-03
這篇文章主要介紹了vbs中獲取當(dāng)前腳本所在路徑的2個(gè)方法,本文中的方法都是通過FileSystemObject來實(shí)現(xiàn),需要的朋友可以參考下2014-08-08
VBS 正則判別素?cái)?shù)(質(zhì)數(shù))
利用正則判別素?cái)?shù)，來源于網(wǎng)絡(luò)，神人,喜歡vbs的朋友可以參考下2013-07-07
用vbs實(shí)現(xiàn)的XP序列號(hào)替換器
用vbs實(shí)現(xiàn)的XP序列號(hào)替換器...2007-10-10
使用 Iisext.vbs 刪除應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法
這篇文章主要介紹了使用 Iisext.vbs 刪除應(yīng)用程序依存關(guān)系的實(shí)現(xiàn)方法,需要的朋友可以參考下2014-07-07
Vbscript生成Excel報(bào)表的常用操作總結(jié)
這篇文章主要介紹了Vbscript生成Excel報(bào)表的常用操作總結(jié),涵蓋方方面面的Excel操作命令,不容錯(cuò)過,需要的朋友可以參考下2014-08-08
MsgBox函數(shù)語言參考...2006-11-11
有時(shí)候我們需要獲取執(zhí)行當(dāng)前vbs的路徑，那么就可以參考下面的代碼，一般用來可以刪除自身等操作2014-05-05
sql 復(fù)制記錄2008-08-08
vbs+hta中實(shí)現(xiàn)在單個(gè) onClick 參數(shù)中包括多個(gè)子例程的代碼
vbs+hta中實(shí)現(xiàn)在單個(gè) onClick 參數(shù)中包括多個(gè)子例程的代碼...2007-04-04