-
wscript.shell
鎖定
WScript.Shell是WshShell對象的ProgID，創建WshShell對象可以運行程序、操作註冊表、創建快捷方式、訪問系統文件夾、管理環境變量。
- 外文名
- wscript.shell
- 信 息
- WshShell 對象
- 説 明
- CurrentDirectory 返回
- 文件名
- wshom.ocx
- CLSID
- F935DC22-1CF0-11d0-ADB9-00C04FD58A0B
- IID
- F935DC21-1CF0-11d0-ADB9-00C04FD58A0B
目錄
- ▪ Environment
- ▪ SpecialFolders
- ▪ CreateShortcut
- ▪ Popup
wscript.shell屬性 説明
CurrentDirectory 返回或改變當前目錄
Environment 返回 WshEnvironment 集合對象。
SpecialFolders 使用 WshSpecialFolders 對象提供對 Windows shell 文件夾的訪問，如桌面文件夾，開始菜單文件夾和個人文檔文件夾。
wscript.shell方法 説明
方法 | 説明 |
|---|---|
AppActivate | 激活一個應用程序窗口。 |
CreateShortcut | 創建並返回 WshShortcut 對象。 |
Exec | 在子命令窗口中運行一個應用程序，提供訪問StdIn/StdOut/StdErr流。 |
擴展 PROCESS環境變量並返回結果字符串。 | |
LogEvent | 添加一個事件到日誌文件。 |
Popup | 顯示包含指定消息的消息窗口。 |
RegDelete | 從註冊表中刪除指定的鍵或值。 |
RegRead | 從註冊表中返回指定的鍵或值。 |
RegWrite | 在註冊表中設置指定的鍵或值。 |
Run | 創建新的進程，該進程用指定的窗口樣式執行指定的命令。 |
SendKeys | 發送一個或多個按鍵到活動窗口。 |
wscript.shell詳解
wscript.shellEnvironment
Environment 屬性返回 WshEnvironment 對象。
語法
WshShell.Environment ( [strType]) = objWshEnvironment
註釋
若 strType 指定了環境變量所處的位置，可能值為 "System"、"User"、"Volatile" 和 "Process"。若未提供 strType，則該方法在 Windows NT 中檢索系統環境變量或在 Windows 95 中檢索進程環境變量。
對於 Windows 95，strType 參數僅支持 "Process"。
下列變量是由 Windows 操作系統提供的。腳本也可獲取由其他應用程序設置的環境變量。
名稱 説明
NUMBER_OF_PROCESSORS 計算機上運行的處理器數目。
PROCESSOR_ARCHITECTURE 用户工作站使用的處理器類型。
PROCESSOR_IDENTIFIER 用户工作站的處理器 ID。
PROCESSOR_LEVEL 用户工作站的處理器級。
PROCESSOR_REVISION 用户工作站的處理器版本。
OS 用户工作站所用的操作系統。
COMSPEC 用於運行“命令提示”窗口的命令（通常為 cmd.exe）。
HOMEDRIVE 本地主驅動器（通常為 C 驅動器）。
HOMEPATH 用户的默認路徑（在 Windows NT 上通常為 usersdefault）。
PATH 路徑環境變量。
PATHEXT 可執行文件的擴展名（通常為 .com、 .exe、.bat 或 .cmd）。
PROMPT 命令提示符（通常為 $P$G）。
SYSTEMDRIVE 系統所在的本地驅動器（例如，c:）。
SYSTEMROOT 系統目錄（例如，c:winnt）。和 WINDIR 相同。
WINDIR 系統目錄（例如 c:winnt）。和 SYSTEMROOT 相同。
TEMP 存儲臨時文件的目錄（例如，c:temp）。用户可更改。
TMP 存儲臨時文件的目錄（例如，c:temp）。用户可更改。
示例
'返回NUMBER_OF_PROCESSORS系統環境變量
Dim WshShell, WshSysEnv
Set WshShell = CreateObject("WScript.Shell")
Set WshSysEnv = WshShell.Environment("SYSTEM")
WScript.Echo WshSysEnv("NUMBER_OF_PROCESSORS")
WshEnvironment 對象
WshEnvironment 對象未直接給出，可用 WshShell.Environment 屬性來訪問。
下面描述與 WshEnvironment 對象關聯的屬性。
屬性 説明
Item 獲取或設置指定的環境變量值。
Count 枚舉項的數目。
length 枚舉項的數目 (JScript)。
下面描述與 WshEnvironment 對象關聯的方法。
方法 説明
Remove 刪除指定的環境變量。
wscript.shellSpecialFolders
SpecialFolders 屬性提供 WshSpecialFolders 對象以便訪問 Windows 的 shell 文件夾，例如桌面文件夾、開始菜單文件夾和個人文檔文件夾。
語法
WshShell.SpecialFolders = objWshSpecialFolders
示例
'這段代碼展示如何訪問桌面文件夾
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
MsgBox "Your desktop is " & WshShell.SpecialFolders("Desktop")
WshSpecialFolders 對象
該對象未直接給出。要得到 WshSpecialFolders 對象，請使用 WshShell.SpecialFolders 屬性。
下面描述與 WshSpecialFolders 對象關聯的屬性。
屬性 描述
Item 指定文件夾的完整路徑（默認）。
Count 枚舉項的數目。
length 枚舉項的數目 (JScript) 。
WshSpecialFolders.Item
Item 屬性返回由 strFolderName 指定的文件夾的完整路徑。它是默認屬性。
語法
WshShell.SpecialFolders.Item("strFolderName") = strFolderPath
WshShell.SpecialFolders("strFolderName") = strFolderPath
註釋
若請求的文件夾 (strFolderName) 不可用，則 WshShell.SpecialFolders("strFolderName") 返回 NULL。例如，Windows 95 沒有 AllUsersDesktop 文件夾，如果 strFolderName = AllUsersDesktop，則返回 NULL。
Windows 95 和 Windows NT 4.0操作系統提供下列指定文件夾：
AllUsersDesktop
AllUsersStartMenu
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu
Startup
Templates
示例
Dim WshShell, StrMyDesktop
Set WshShell = CreateObject("WScript.Shell") '創建對象是wshell對象，不要和wscript對象混了
StrMyDesktop = WshShell.SpecialFolders("Desktop") '這段返回完整的Windows桌面文件夾路徑，這段可以不要
For Each strFolder In WshShell.SpecialFolders '遍歷所有特殊文件夾，這裏的SpecialFolders是屬性
MsgBox strFolder '顯示所有特殊文件夾
Next
wscript.shellCreateShortcut
CreateShortcut 方法創建 WshShortcut 對象並將其返回。如果快捷方式標題以 .url 結尾，就會創建 WshURLShortcut 對象。
語法
WshShell.CreateShortcut(strPathname) = objShortcut
示例
'這段代碼創建一個指向當前執行腳本的快捷方式
Dim WshShell, oShellLink, oUrlLink
Set WshShell = CreateObject("WScript.Shell")
Set oShellLink = WshShell.CreateShortcut("CurrentScript.lnk")
oShellLink.TargetPath = Wscript.ScriptFullName
oShellLink.Save
Set oUrlLink = WshShell.CreateShortcut("MicrosoftWebSite.URL")
oUrlLink.TargetPath = "http://..." '輸入網站 URL
oUrlLink.Save
WshShortcut 對象
該對象未直接給出。要獲得 WshShortcut 對象，請使用 WshShell.CreateShortcut 方法。
下面説明和 WshShortcut 對象有關的屬性。
屬性 説明
Arguments 快捷方式對象的參數。
Description 快捷方式對象的説明。
Hotkey 快捷方式對象的熱鍵。
IconLocation 快捷方式對象的圖標位置。
TargetPath 快捷方式對象的目標路徑。
WindowStyle 快捷方式對象的窗口樣式。
WorkingDirectory 快捷方式對象的工作目錄。
下面説明與 WshShortcut 對象有關的方法。
方法 説明
Save 將快捷方式存儲到指定的文件系統中。
WshShortcut.Arguments
Arguments 屬性提供快捷方式對象的參數。
語法
WshShortcut.Arguments = strArguments
WshShortcut.Description
Description 屬性提供快捷方式對象的説明。
語法
WshShortcut.Description = strDescription
WshShortcut.Hotkey
HotKey 屬性提供快捷方式對象的熱鍵。熱鍵是啓動或切換程序的鍵盤快捷方式。
語法
WshShortcut.HotKey = strHotKey
註釋
strHotKey 的BNF語法如下：
Hotkey ::= modifier* keyname
modifier ::= "ALT+" | "CTRL+" | "SHIFT+" | "EXT+"
keyname ::= "A" .. "Z" |
"0".. "9" |
"Back" | "Tab" | "Clear" | "Return" |
"Escape" | "Space" | "Prior" | ...
所有鍵的名稱都可以在 WINUSER.H 中找到。熱鍵不區分大小寫。
熱鍵只能激活位於 Windows 桌面或 Windows“開始”菜單的快捷方式。
Windows 資源管理器不接受 ESC、ENTER、TAB、SPACE、PRINT SCREEN 或 BACKSPACE，即使 WshShortcut.Hotkey 遵循 Win32 API 支持它們。因此，建議在快捷方式中不要用這些鍵。
示例
Dim WshShell, strDesktop, oMyShortcut
Set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
Set oMyShortcut = WshShell.CreateShortcut(strDesktop & "\a_key.lnk")
OMyShortcut.TargetPath = "%windir%\notepad.exe"
oMyShortCut.Hotkey = "ALT+CTRL+F"
oMyShortCut.Save
WshShortcut.IconLocation
IconLocation 屬性提供快捷方式對象的圖標位置。圖標位置的格式應為 "Path,index"。
語法
WshShortcut.IconLocation = strIconLocation
WshShortcut.TargetPath
TargetPath 屬性提供快捷方式對象的目標路徑。
語法
WshShortcut.TargetPath = strTargetPath
WshShortcut.WindowStyle
WindowStyle 屬性提供快捷方式對象的窗口樣式。
語法
WshShortcut.WindowStyle = natWindowStyle
WshShortcut.WorkingDirectory
WorkingDirectory 為一個快捷方式對象提供工作目錄。
語法
WshShortcut.WorkingDirectory = strWorkingDirectory
WshShortcut.Save
Save 方法把快捷方式對象保存到由 FullName 屬性指定的位置。
語法
WshShortcut.Save
WshUrlShortcut 對象
該對象未直接給出。要獲取 WshUrlShortcut 對象，可使用 WshShell.CreateShortcut 方法。
下表説明了和 WshUrlShortcut 對象有關的屬性。
屬性 説明
FullName URL 快捷方式對象的完整路徑。
TargetPath URL 快捷方式對象的目標路徑。
下表説明了和 WshUrlShortcut 對象有關的方法。
方法 説明
Save 將快捷方式保存到指定的文件系統中。
WshUrlShortcut.FullName
FullName 屬性提供快捷方式對象的完整路徑。
語法
WshUrlShortcut.FullName = strFullName
WshUrlShortcut.TargetPath
TargetPath 屬性提供快捷方式對象的目標路徑。
語法
WshUrlShortcut.TargetPath = strTargetPath
WshUrlShortcut.Save
Save 方法保存一個快捷方式，該快捷方式指向 FullName 屬性指定的位置。
語法
WshUrlShortcut.Save
ExpandEnvironmentStrings
ExpandEnvironmentStrings 方法在 strString 中擴展 PROCESS 環境變量並返回結果字符串。變量被 "%" 字符括起。
環境變量不區分大小寫。
語法
WshShell.ExpandEnvironmentStrings(strString) = strExpandedString
示例
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
MsgBox "Prompt is " & WshShell.ExpandEnvironmentStrings("%PROMPT%")
wscript.shellPopup
Popup 方法顯示一個彈出式消息框窗口，消息框中包含的消息由 strText 指定。該消息框的窗口標題由 strTitle 指定。若 strTitle 省略，則窗口標題為 Windows Scripting Host。
語法
WshShell.Popup(strText, [natSecondsToWait], [strTitle], [natType]) = intButton
註釋
若提供 natSecondsToWait 且其值大於零，則消息框在 natSecondsToWait 秒後關閉。
natType 的含義與其在 Win32? MessageBox 函數中相同。下表顯示 natType 中的值及含義。下表中的值可以組合。
按鈕類型
值 | 説明 |
|---|---|
0 | 顯示“確定”按鈕 |
1 | 顯示“確定”和“取消”按鈕 |
2 | 顯示“終止”、“重試”和“忽略”按鈕 |
3 | 顯示“是”、“否”和“取消”按鈕 |
4 | 顯示“是”和“否”按鈕 |
5 | 顯示“重試”和“取消”按鈕 |
圖標類型
值 | 説明 |
|---|---|
16 | 顯示停止標記圖標 |
32 | 顯示問號圖標 |
48 | 顯示感嘆號圖標 |
64 | 顯示信息標記圖標 |
以上兩個表並不涵蓋 natType 的所有值。完整的列表請參閲 Win32 文檔。
返回值 intButton 指示用户所單擊的按扭編號。若用户在 natSecondsToWait 秒之前不單擊按扭，則 intButton 設置為 -1 。
值 | 説明 |
|---|---|
1 | “確定”按鈕 |
2 | “取消”按鈕 |
3 | “終止”按鈕 |
4 | “重試”按鈕 |
5 | “忽略”按鈕 |
6 | “是”按鈕 |
7 | “否”按鈕 |
示例
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.Popup "Where do you want to go today?"
WScript.Echo
Echo 方法在窗口（Wscript.exe 中）或“命令提示符”窗口（cscript.exe 中）顯示參數。
參數用空格分隔。在 cscript.exe 中，該方法在顯示最後一個參數之後輸出一對回車/換行（CR LF）。
語法
Wscript.Echo [anyArg...]
示例
WScript.Echo WScript.Echo 1,2,3 WScript.Echo "Windows Scripting Host is cool."
wscript.shellRegDelete
RegDelete 從註冊表中刪除名為 strName 的鍵或值。
語法
WshShell.RegDelete strName
參數
strName
strName 參數必須以下列之一的根鍵名開始：
短根鍵名 長根鍵名
HKCU HKEY_CURRENT_USER
HKLM HKEY_LOCAL_MACHINE
HKCR HKEY_CLASSES_ROOT
HKEY_USERS
HKEY_CURRENT_CONFIG
示例
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegDelete "HKCU\ScriptEngine\Value" '刪除值"Value"
WshShell.RegDelete "HKCU\ScriptEngine\Key" '刪除鍵"Key"
wscript.shellRegRead
RegRead 方法返回名為 strName 的註冊表鍵或值。
語法
WshShell.RegRead(strName) = strValue
參數
strName
如果 strName 以反斜槓 () 結束，則該方法返回鍵，而不是值。
strName 參數必須以下列根鍵名開始。
Short Long
HKCU HKEY_CURRENT_USER
HKLM HKEY_LOCAL_MACHINE
HKCR HKEY_CLASSES_ROOT
HKEY_USERS
HKEY_CURRENT_CONFIG
註釋
RegRead 方法僅支持 REG_SZ、REG_EXPAND_SZ、REG_DWORD、REG_BINARY 和 REG_MULTI_SZ 數據類型。若註冊表有其他數據類型，RegRead 返回 DISP_E_TYPEMISMATCH。
示例
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegRead("HKCU\ScriptEngine\Val") 'Read from value "Val"
WshShell.RegRead("HKCU\ScriptEngine\Key") 'Read from key "Key"
wscript.shellRegWrite
RegWrite 方法設置名為 strName 的註冊表鍵或值。
語法
WshShell.RegWrite strName, anyValue, [strType]
參數
strName
若 strName 以一個反斜槓 () 結束，則該方法設置鍵，而不是值。
strName 參數必須以下列根鍵名開頭。
Short Long
HKCU HKEY_CURRENT_USER
HKLM HKEY_LOCAL_MACHINE
HKCR HKEY_CLASSES_ROOT
HKEY_USERS
HKEY_CURRENT_CONFIG
anyValue
當 strType 為 REG_SZ 或 REG_EXPAND_SZ 時，RegWrite 方法自動將 anyValue 轉換為字符串。若 strType 為 REG_DWORD，則 anyValue 被轉換為整數。若 strType 為 REG_BINARY，則 anyValue 必須是一個整數。
strType
RegWrite 方法支持 strType 為 REG_SZ、REG_EXPAND_SZ、REG_DWORD 和 REG_BINARY。若其他的數據類型被作為 strType 傳遞，RegWrite 返回 E_INVALIDARG。
示例
Dim WshShell
Set WshShell = CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\ScriptEngine\Value", "Some string value"
WshShell.RegWrite "HKCU\ScriptEngine\Key", 1, "REG_DWORD"
wscript.shellRun
Run 方法創建一個新的進程，該進程以 intWindowStyle 窗口樣式執行 strCommand。
語法
WshShell.Run (strCommand, [intWindowStyle], [blnWaitOnReturn])
參數
strCommand
在 strCommand 參數內部的環境變量被自動擴展。
intWindowStyle
這是為新進程在 STARTUPINFO 結構內設置的 wShowWindow 元素的值。其意義與 ShowWindow 中的 nCmdShow 參數相同，可取以下值之一。
名稱 | 值 | 含義 |
|---|---|---|
SW_HIDE | 0 | 隱藏窗口並激活另一窗口。 |
SW_SHOWNORMAL | 1 | 激活並顯示一個窗口。若窗口是最小化或最大化，則恢復到其原來的大小和位置。 |
SW_SHOWMINIMIZED | 2 | 激活窗口並以最小化顯示該窗口。 |
SW_SHOWMAXIMIZED | 3 | 激活窗口並以最大化顯示該窗口。 |
SW_SHOWNOACTIVATE | 4 | 按窗口最近的大小和位置顯示。活動窗口保持活動。 |
SW_SHOW | 5 | 以當前大小和位置激活並顯示窗口。 |
SW_MINIMIZE | 6 | 最小化指定窗口並激活按 Z 序排序的下一個頂層窗口。 |
SW_SHOWMINNOACTIVE | 7 | 最小化顯示窗口。活動窗口保持活動。 |
SW_SHOWNA | 8 | 以當前狀態顯示窗口。活動窗口保持活動。 |
SW_RESTORE | 9 | 激活並顯示窗口。若窗口是最小化或最大化，則恢復到原來的大小和位置。在還原應用程序的最小化窗口時，應指定該標誌。 |
blnWaitOnReturn
如果未指定 blnWaitOnReturn 或其值為 FALSE，則該方法立即返回到腳本繼續執行而不等待進程結束。
若 blnWaitOnReturn 設為 TRUE，則 Run 方法返回由應用程序返回的任何錯誤代碼。如果未指定 blnWaitOnReturn 或其值為 FALSE，則 Run 返回錯誤代碼 0（zero）。
示例
'這段用記事本打開當前執行的腳本
Dim WshShell, ErrNumber
Set WshShell = CreateObject("WScript.Shell")
WshShell.Run("notepad " & Wscript.ScriptFullName)
WshShell.Run("%windir%\notepad.exe " & Wscript.ScriptFullName)
'這段返回執行的應用程序的錯誤碼（退出碼）
ErrNumber = WshShell.Run("notepad " & Wscript.ScriptFullName, 1, True)