在vbs運(yùn)行命令行工具后讓命令窗口保持打開狀態(tài)的腳本
2020-07-26 12:01:59
供稿：網(wǎng)友
問：
您好，腳本專家！如何在運(yùn)行像 Ping 或 Ipconfig 這樣的工具后讓命令窗口保持打開狀態(tài)？
-- DB
答：
您好，DB。這個(gè)問題讓我們想起了往事。有一個(gè)腳本專家剛來 Microsoft，那時(shí)許多人認(rèn)為 WMI 和 ADSI 對(duì)于腳本編寫者來說太難使用。因此，人們建議這個(gè)腳本專家不使用 WMI 或 ADSI，而是干脆使用 VBScript 作為調(diào)用命令行工具的方法。事實(shí)上，這個(gè)腳本專家編寫的第一章就是一個(gè)關(guān)于事件日志管理的章節(jié)，該章后來成為 Microsoft Windows 2000 腳本指南的一部分。它也是不含任何腳本編寫代碼之類內(nèi)容的章節(jié)。
您說對(duì)了：只有腳本專家才會(huì)發(fā)現(xiàn)自己在編寫一本絕對(duì)不含任何腳本編寫代碼的腳本編寫指南。
當(dāng)然，腳本專家們使用雄辯的說服，再配合大量的哀求，最終還是能夠讓人們相信，如果那個(gè)叫做 Microsoft Windows 2000 腳本指南的東西實(shí)際包含一兩個(gè)腳本，也是可以的。不過，在此過程中，腳本專家們也對(duì)在腳本內(nèi)調(diào)用命令行工具略有了解，這也是為什么我們能夠回答您問題的原因。
我們猜測您有與以下類似的腳本，該腳本運(yùn)行命令行工具 Ipconfig.exe：
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("ipconfig /all")
您必定知道該腳本非常有效：彈出命令窗口，然后 Ipconfig 開始運(yùn)行。唯一的問題是您還未來得及閱讀 IPconfig 返回的信息，命令窗口就關(guān)閉了（除非您讀得確實(shí)快）。這確實(shí)是個(gè)問題。
那么如何解決它呢？方法如下：
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("%comspec% /k ipconfig /all")
如您所看到的，這個(gè)修訂的腳本保留了與原來腳本相同的基本結(jié)構(gòu)：我們創(chuàng)建 Wscript.Shell 對(duì)象的一個(gè)實(shí)例，然后調(diào)用 Run 方法以實(shí)際運(yùn)行該命令行工具。區(qū)別在于調(diào)用該命令行工具的方式。在原來的腳本中，我們只是調(diào)用工具本身：
objShell.Run("ipconfig /all")
這一次，我們使用的語法大為不同：
objShell.Run("%comspec% /k ipconfig /all")
環(huán)境變量 %comspec% 代表 Windows 命令外殼；這等效于調(diào)用 Cmd.exe（它當(dāng)然會(huì)打開一個(gè)命令窗口）。那為什么不直接調(diào)用 Cmd.exe？是這樣，假設(shè)您的計(jì)算機(jī)運(yùn)行 Windows 98。在這些計(jì)算機(jī)上，通過運(yùn)行 Command.com 來調(diào)用命令外殼，因?yàn)闆]有 Cmd.exe。使用 %comspec% 有助于確保無論該腳本是在什么版本的 Windows 上運(yùn)行，都可以獲得命令窗口。
換句話說，使用此腳本時(shí)我們并不是直接運(yùn)行 Ipconfig，而是運(yùn)行命令外殼的實(shí)例，并向該實(shí)例傳遞幾個(gè)參數(shù)。此類參數(shù)中的第一個(gè)是 /k，它指示命令外殼執(zhí)行我們要求它完成的任務(wù)，然后保持打開狀態(tài)。（我們得知 k 是 keep 的簡寫形式，像在“keep open”中那樣，但我們不能肯定是否屬實(shí)。）我們也可以使用參數(shù) /c（c 代表 close），它在命令窗口完成任務(wù)時(shí)自動(dòng)關(guān)閉命令窗口。
傳遞給命令外殼的其它參數(shù)有何作用？那些參數(shù)只是運(yùn)行 IPconfig 所需的命令：ipconfig /all。想要使用 Ping.exe 對(duì) IP 地址 192.168.1.1 執(zhí)行 ping 命令嗎？以下腳本將執(zhí)行該操作，并確保之后命令窗口保持打開狀態(tài)：
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("%comspec% /k ping 192.168.1.1")
想要運(yùn)行 Net.exe 以獲取本地用戶帳戶列表并可以隨后進(jìn)行查看嗎？好的，沒問題：
Set objShell = CreateObject("Wscript.Shell")
objShell.Run("%comspec% /k net user")
想要 ¨C 嗯，您已領(lǐng)會(huì)了要旨。
如果往往會(huì)在腳本中大量使用命令行工具（這并沒什么不對(duì)；請(qǐng)盡管使用您認(rèn)為最方便/最好的工具），則可能會(huì)對(duì)本專欄感興趣，它向您介紹如何更改命令窗口標(biāo)題和命令窗口顏色。過去了這么多年，腳本專家心中對(duì)調(diào)用命令行工具腳本的好感仍在，而且仍無法弄清楚為什么人們認(rèn)為編寫根本不含任何腳本的腳本編寫指南是一個(gè)不錯(cuò)的想法。
