Sub  Shell::RegDelete( Path as string )

レジストリの値かキーを削除します。

【引数】

path

レジストリのパス

返り値

値

(Web)

→ サンプル

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::Popup( Text as string, SecondToWait as integer, Title as string, Type as integer )
            as integer

メッセージボックスを表示します。

【引数】

Text

SecondToWait

表示する内容

自動的に閉じるまでの時間（秒）

Title

メッセージボックスのタイトルに表示する内容

押されたボタン、 自動的に閉じたとき = -1

返り値

メッセージボックスの種類

Type

MsgBox

との違いは、自動的に閉じるまでの時間が指定できることです。

カウントダウン表示はしません。

  Dim ex
  Set ex = g_sh.Exec( "..." )
  ex.StdIn.Write  "Y"+vbCRLF

.StdIn の例

（下記）

→ Windows管理者のためのWindows Script Host入門：第5回 (3-4) - ＠IT (Web)

参考

.ExitCode

.ProcessID

(Web)

(Web)

Dim  WshScriptExec::Status  as integer

サンプル

Exec (Shell)

For Each line  In g_sh.Environment
  '// line sample is  "VAR1=A"
Next

g_sh.Environment(0) は、"=::=::\" です。 無いこともあります。
g_sh.Environment(1) は、"=C:=（カレントディレクトリ）" です。

要素数

要素数

Dictionary 準拠メンバー

その他のメンバー

Set objShell = WScript.CreateObject("WScript.Shell")
objShell.Run "notepad.exe"
WScript.Sleep 500
objShell.SendKeys "hello"

→ キーボード

関連

スクリプトからカレントウィンドウにキーボード入力を送ることができます。
ただし、Sleep を使って、タイミングに気をつける必要があります。

→ WshShell::SendKeys

Sub  WshShell::SendKeys( keys as string )

キーボード操作をエミュレーションします。

【引数】

keys

アクティブウィンドウに送信するキーの内容

(Web)

"+(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)

参考

  If ... Then  WScript.Quit 1  ' Error

  WScript.Echo "Pass."

→ FCBat （バッチファイルによる標準出力チェック）

単純なテストスクリプトは、次のように記述し、標準出力を比較することで、
テストが正常かどうかを判定します。

関連

→ テスト・プロンプト (Test.vbs) (vbslib)

ただし、テスト項目が多くなってくると大変なので、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, args

スクリプトファイルにドラッグ＆ドロップしたら、ドロップしたファイルパスがパラメータになります。

(Web)