←
▼
▲
Function Shell::Run( PathAndParam as string,
[ WindowStyle as integer], [ WaitOnReturn as boolean ] ) as integer
PathAndParam に指定したコマンドラインに従って、プロセスを起動します。
【引数】
PathAndParam
起動する実行ファイルのパスと、パラメータ
WindowStyle
ウィンドウスタイル。デフォルト=1、最小化=7
WaitOnReturn
終了するまで待つかどうか。デフォルト=False
返り値
エラーレベル。 待たないときは常に 0
Option Explicit
Dim g_sh : Set g_sh = WScript.CreateObject("WScript.Shell")
Dim g_fs : Set g_fs = CreateObject( "Scripting.FileSystemObject" )
Dim r
g_sh.CurrentDirectory = g_fs.GetParentFolderName( WScript.ScriptFullName )
r = g_sh.Run( "cmd.exe /c (dir p)",,True )
If r<>0 Then Err.Raise 1, "cmd.exe", "error 0x" & Hex(r)
cmd.exe /c (dir p)
cmd.exe
サンプル: 終了まで待ち、エラーレベルをチェックする
WScript.CreateObject("WScript.Shell").Run """sample.xls""",,False
サンプル: エクセルファイル "sample.xls" を開く
←
▼
▲
Function Shell::Exec( PathAndParam as string ) as WshScriptExec
コマンドプロンプト・プログラムを起動します。
【引数】
PathAndParam
起動する実行ファイルのパスと、パラメータ
返り値
WshScriptExec オブジェクト
出力は常にリダイレクトされます。
プログラムが終了するまで待ちません。
コマンドプロンプトから標準入力するプログラムを指定すると、停止します。
次のように対応してください。
・
・Exec を呼び出すスクリプトを起動するとき、ファイルから標準入力へリダイレクトする
・起動するプログラムが標準入力をしないようにするオプションを指定する。
vbslib を使ったスクリプトでは、/GUI_input:1 オプションを指定してください。
・返り値の .StdIn へ、WScript.StdIn 以外から送る。
参考
を使う(ただし、新しいウィンドウが開きます)
←
▼
▲
Function Shell::RegRead( Path as string ) as string
レジストリの値を取得します。
【引数】
Path
レジストリのパス
返り値
値
path に指定したパスが存在しないときは、エラー 0x80070002 になります。
Const E_PathNotFound = &h80070002
Path の末尾が \ のときは、キーの(標準)の値を設定します。
関連
←
▼
▲
Function Shell::RegWrite( Path as string, Value as variant [,Type as string] ) as string
レジストリに値を設定します。
【引数】
path
レジストリのパス
返り値
値
"REG_SZ"
"REG_DWORD"
"REG_BINARY"
"REG_MULTI_SZ"
本メソッドでは使えません
Type 引数の値
"REG_EXPAND_SZ"
環境変数を展開できる文字列
文字列
数値
バイナリ
値を格納するキーが無いときは、そのキーも作成します。
アクセス拒否されると、エラー 0x80070005 になります。
Const E_AccessDenied = &h80070005
Path の末尾が \ のときは、キーの(標準)の値を設定します。
関連
←
▼
▲
Sub Shell::RegDelete( Path as string )
レジストリの値かキーを削除します。
【引数】
path
レジストリのパス
返り値
値
Path の末尾が \ のときは、キーを削除します。
Path の末尾が \ ではないときは、値を削除します。
←
▼
▲
Option Explicit
Dim g_sh : Set g_sh = WScript.CreateObject( "WScript.Shell" )
Dim desktop_path : desktop_path = g_sh.SpecialFolders( "Desktop" )
Dim shcut : Set shcut = g_sh.CreateShortcut( desktop_path + "\file1.lnk" )
shcut.TargetPath = desktop_path + "\file1.txt"
shcut.Arguments = "1 2 3"
shcut.WorkingDirectory = desktop_path
shcut.Description = "This is test shortcut"
shcut.IconLocation = "foo.exe,1"
shcut.WindowStyle = 3
shcut.HotKey = "CTRL+ALT+SHIFT+X"
shcut.Save
サンプル: 上記のサンプルより細かい設定を追加したもの。
Function Shell::CreateShortcut( ShortcutPath as string ) as WshShortcut
ショートカットを新規に作成します。
サンプル: デスクトップに、file1.lnk という名前のショートカットができます。
Option Explicit
Dim g_sh : Set g_sh = WScript.CreateObject( "WScript.Shell" )
Dim desktop_path : desktop_path = g_sh.SpecialFolders( "Desktop" )
Dim shcut : Set shcut = g_sh.CreateShortcut( desktop_path + "\file1.lnk" )
shcut.TargetPath = desktop_path + "\file1.txt"
shcut.Save
desktop_path + "\file1.lnk"
desktop_path + "\file1.txt"
←
▼
▲
Function Shell::Popup( Text as string, SecondToWait as integer, Title as string, Type as integer )
as integer
メッセージボックスを表示します。
【引数】
Text
SecondToWait
表示する内容
自動的に閉じるまでの時間(秒)
Title
メッセージボックスのタイトルに表示する内容
押されたボタン、 自動的に閉じたとき = -1
返り値
メッセージボックスの種類
Type
との違いは、自動的に閉じるまでの時間が指定できることです。
カウントダウン表示はしません。
←
▼
▲
.Status
.StdIn
.StdOut
.StdErr
0=実行中、1=終了
.Terminate
Dim ex
Set ex = g_sh.Exec( "..." )
ex.StdIn.Write "Y"+vbCRLF
.StdIn の例
(下記)
←
▼
▲
取得
.Length
.Count
.Item( symbol as string )
(Default Property)
.Remove( symbol as string )
環境変数の設定の一覧。 Array( "VAR1=A", ... )
symbol に指定した環境変数の参照
For Each line In g_sh.Environment
'// line sample is "VAR1=A"
Next
g_sh.Environment(0) は、"=::=::\" です。 無いこともあります。
g_sh.Environment(1) は、"=C:=(カレントディレクトリ)" です。
要素数
要素数
Dictionary 準拠メンバー
その他のメンバー
←
▼
▲
←
▼
▲
MsgBox "〜しました。"
(p297)
vbOKOnly = 0, vbOKCancel = 1, vbYesNo = 4, vbYesNoCancel = 3
vbCritical = 16, vbQuestion = 32, vbExplamation = 48, vbInformation = 64
ボタンの構成
アイコン
vbDefultButton1 = 0, vbDefultButton2=256, vbDefultButton3=512
デフォルト
vbOK = 1, vbCancel = 2, vbYes = 6, vbNo = 7
押されたボタン
If MsgBox( "〜します", vbOKCancel, "タイトル" ) = vbCancel Then _
WScript.Quit 1
(p264)
MsgBox "1" + Chr(13)+Chr(10) +"2"
複数行
MsgBox "〜しました。", vbOKOnly, "タイトル"
MsgBox は、CScript で実行しても、ウィンドウが表示されます。
WScript.Echo は、WScript ではウィンドウ表示、CScript では標準出力になります。
WScript.Echo "〜しました。"
〜しました。
または
(プロンプトへ)
vbSystemModal=4096
Shell::Popup
wscript.exe のとき
cscript.exe のとき
自動的に閉じるまでの時間を指定できる MsgBox です。
←
▼
▲
(p263)
s = InputBox( "入力してください", "タイトル", "デフォルト" )
キャンセルが押されたら、 s="" になります。
InputBox は、CScript で実行しても、ウィンドウが表示されます。
WScript.StdIn は、WScript ではエラーになります。CScript で実行してください。
Dim name
WScript.StdOut.Write "Enter your name: "
name = WScript.StdIn.ReadLine()
WScript.Echo "Hello, " & name & "!"
Enter your name: bob
Hello, bob , welcome!
WScript.StdIn
→ vbslib - input
サンプル (起動時に実行する内容の選択する)
Sub main()
Dim op
If ArgumentExist( "menu1" ) Then
op = 1
ElseIf ArgumentExist( "menu2" ) Then
op = 2
Else
op = InputBox( _
"1. menu1" +vbCRLF+_
"2. menu2",_
WScript.ScriptName )
If op = "" Then WScript.Quit 1
op = CInt( op )
End If
'// common functions
Select Case op
Case 1: '// each functions
Case 2: '// each functions
End Select
End Sub
←
▼
▲
参考
メモ帳を起動して、文字を入力するスクリプト
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "notepad.exe"
WScript.Sleep 500
objShell.SendKeys "hello"
→ キーボード
関連
スクリプトからカレントウィンドウにキーボード入力を送ることができます。
ただし、Sleep を使って、タイミングに気をつける必要があります。
Set sh = WScript.CreateObject("WScript.Shell")
sh.AppActivate( "net Explorer" ) '(*1)
WScript.Sleep 500
sh.SendKeys "%F"
(*1) タイトル(前方一致または後方一致の部分文字列)
IE をアクティブにして、[ファイル] メニュうーを選択するスクリプト
→ SendInput
←
▼
▲
Sub WshShell::SendKeys( keys as string )
キーボード操作をエミュレーションします。
【引数】
keys
アクティブウィンドウに送信するキーの内容
"+(EC)"
シフトキーを押しながら、E、C
"+EC"
シフトキーを押しながら、E、シフトキーを離して、C
"^C"
コントロールキーを押しながら C
"%FS"
Alt キーを押しながら F、離して S
"{ENTER}"
"{ESC}"
"{TAB}"
" " (空白文字)
keys に設定する値の例:
←
▼
▲
Dim g_sh : Set g_sh = WScript.CreateObject( "WScript.Shell" )
Dim player : Set player = CreateObject( "MediaPlayer.MediaPlayer" )
player.FileName = g_sh.ExpandEnvironmentStrings( "%windir%\Media\tada.wav" )
player.Play
While player.PlayState <> 0 : WScript.Sleep 300 : WEnd '// Wait for finish to play
→ システムの警告音 (SystemSound)
参考
→ 効果音や曲を鳴らす (SoundPlayer)
参考
Dim g_sh : Set g_sh = WScript.CreateObject( "WScript.Shell" )
SystemSound ".Default"
Sub SystemSound( Sound )
Dim player : Set player = CreateObject( "WMPlayer.OCX" )
player.Settings.Volume = 100
player.URL = g_sh.ExpandEnvironmentStrings( g_sh.RegRead( _
"HKEY_CURRENT_USER\AppEvents\Schemes\Apps\.Default\"+ Sound +"\.Current\" ) )
player.Controls.Play
While player.PlayState <> 1 '// Wait for finish to play
WScript.Sleep 300
If player.PlayState = 10 Then Err.Raise 1,, "This is not sound file."
WEnd
End Sub
Dim g_sh : Set g_sh = WScript.CreateObject( "WScript.Shell" )
Dim player : Set player = CreateObject( "WMPlayer.OCX" )
player.Settings.Volume = 100
player.URL = g_sh.ExpandEnvironmentStrings( "%windir%\Media\tada.wav" )
player.Controls.Play
While player.PlayState <> 1 '// Wait for finish to play
WScript.Sleep 300
If player.PlayState = 10 Then Err.Raise 1,, "This is not sound file."
WEnd
(参考) 下記は、Play でエラーになる場合があります。
メディアプレイヤー 7 以降が必要
メディアプレイヤーの ActiveX を使います。
←
▼
▲
If ... Then WScript.Quit 1 ' Error
WScript.Echo "Pass."
→ FCBat (バッチファイルによる標準出力チェック)
単純なテストスクリプトは、次のように記述し、標準出力を比較することで、
テストが正常かどうかを判定します。
関連
ただし、テスト項目が多くなってくると大変なので、vbslib にテストを自動化できる
ツールが用意されています。
←
▼
▲
関連
←
▼
▲
Dim g_fs : Set g_fs = WScript.CreateObject( "Scripting.FileSystemObject" )
Dim path
If WScript.Arguments.Unnamed.Count <= 0 Then path = "" _
Else path = WScript.Arguments.Unnamed(0)
If path = "" Then WScript.Echo "変換するファイルをドラッグ&ドロップしてください。":WScript.Quit 1
cd g_fs.GetParentFolderName( WScript.ScriptFullName ) '// change from system32 folder
Dim out_path
out_path = g_fs.GetParentFolderName( path ) +"\"+ g_fs.GetBaseName( path ) +"_replaced.xml"
Dim r : Set r = g_fs.OpenTextFile( path )
Dim w : Set w = g_fs.CreateTextFile( out_path, False, True )
下記のスクリプトで、path にドロップしたファイルの絶対パスが入ります。
ドラッグ&ドロップすると、カレントフォルダが、C:\Windows\System32 になり危険なので、上記のように
ドロップしたファイルが入っているフォルダを、カレントフォルダにします。
←
▼
▲
CScript sample.vbs param0 param1 ...
コマンドプロンプトからスクリプトに対してパラメータを渡すことができます。
スクリプトファイルにドラッグ&ドロップしたら、ドロップしたファイルパスがパラメータになります。
WScript.Arguments.Named.Item("debug")
cscript script.vbs /debug:1
名前付き引数の値を参照する
名前付き引数の指定方法
該当する名前の引数がないときは、Empty を返します。
パラメータを渡す
Dim args : Set args = WScript.Arguments.Unnamed
If args.Count = 0 Then Err.Raise 1,,"ファイルをドロップしてください"
For i = 0 to args.Count - 1
WScript.Echo args(i)
Next
Set args = WScript.Arguments
For i = 0 to args.Count - 1
WScript.Echo args(i)
Next
args( 0 ) が1つ目のパラメータです。
If WScript.Arguments.Count >= 1 Then
s = WScript.Arguments(0)
End If
cscript script.vbs /path:"C:\Folder X\"
"" で囲むと空白を含めることができます
cscript script.vbs /flag
Empty を返します。(/flag が無いときと変わりません)
下記の
For Each key in WScript.Arguments.Named
WScript.Echo "/" + key + ":" + WScript.Arguments.Named.Item(key)
Next
名前付き引数の名前と値を一覧します。
Unnamed( ) の中の数値が、パラメータの数以上のときは、
Err.Number = 9 のエラーになります。
args( 0 ) が1つ目のパラメータです。
Unnamed( ) の中の数値が、パラメータの数以上のときは、
Err.Number = 9 のエラーになります。
Function ArgumentExist( name )
Dim key
For Each key in WScript.Arguments.Named
If key = name Then ArgumentExist = True : Exit Function
Next
ArgumentExist = False
End Function
オプションが指定されたかどうかの判定:
パラメータが /flag:1 でも /flag でも ArgumentExist( "flag" ) は、True を返します
で判定できます。
vbslib の ArrayClass を用いれば、引数の指定をエミュレーションできます。
WScript.Arguments.Unnamed(0)
デフォルト値に対応したオプションの取得:
Dim x
config = "Default"
x = WScript.Arguments.Named( "Config" ) : If not IsEmpty( x ) Then config = x
/ から始まる Linux 形式のパスをオプションではないパラメーターとするとき
を取得してください。 ユーザーは、/ から始まるオプションを、
メイン・パラメータの後に指定してください。
If WScript.Arguments.Unnamed.Count >= 1 Then
input_path = WScript.Arguments.Unnamed(0)
Else
input_path = InputPath( "分割するファイル >", )
End If