Windows Script Programming

window.close()で警告ダイアログを出さないで閉じる。

ウィンドウズスクリプトプログラマ — 2008-07-04T00:45:58+09:00

いろいろ方法があるようですが、

window.close()

の代わりに、

window.open("about:blank","_self").close()

同様に、

window.parent.close()
や
window.top.close()

の代わりに、

window.open("about:blank","_parent").close()
や
window.open("about:blank","_top").close()

バッチで、複数のコマンドを並列実行して、直後に一括して待ち合わせる。

ウィンドウズスクリプトプログラマ — 2008-07-03T15:53:09+09:00

コマンドライン１ >&2 | コマンドライン２ >&2 | コマンドライン３
とします。

標準出力がないなら >&2 は不要です。

notepad.exe | notepad.exe | notepad.exe
みたいに。

バッチから非同期に起動したアプリの終了を待ち合わせる。

ウィンドウズスクリプトプログラマ — 2008-07-02T15:00:10+09:00

start notepad.exe >running.1
で、非同期に起動し、

del running.1
if exist running.1 (echo 実行中) else echo 終了済
で、実行中か終了済かを判定し、

:wait
del running.1
if exist running.1 sleep.exe 1 & goto :wait
で、待ち合わせます。

複数の場合は、running.1の数字を変えて。

sleep.exeがないときは、ping.exe localhost -n 2 で代替して。

現在のセキュリティ設定では、このファイルをダウンロードできません。

ウィンドウズスクリプトプログラマ — 2008-07-01T16:37:13+09:00

ダウンロードできないとき、
---------------------------
セキュリティの警告
---------------------------
現在のセキュリティ設定では、このファイルをダウンロードできません。
---------------------------
OK
---------------------------
というダイアログが出ます。

このとき、そのダイアログの後ろに、もうひとつ、
---------------------------
0% / URL - ファイル名完了しました
---------------------------
ファイルの情報を取得しています...
URL - ファイル名
---------------------------
というダイアログが出ていることがあります。

後ろのダイアログがないときは、そのセキュリティゾーンのセキュリティレベルで、
「ファイルのダウンロード」を「無効にする」→「有効にする」
後ろのダイアログがあるときは、前者の設定に加えて、
「アプリケーションと安全でないファイルの起動」を「無効にする」→「ダイアログを表示する」

つまり、アプリケーションと安全でないファイルのダウンロードには二重に鍵が掛かっているということです。

IEをデザインモードに変える。

ウィンドウズスクリプトプログラマ — 2008-06-27T17:24:21+09:00

なぜか、IEのメニューにないので、コンテキストメニューを拡張します。

DesignMode.htm

レジストリ

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\デザインモードに変更(&D)]
@="C:\\どこか\\DesignMode.htm"

逆の「ブラウズ表示」に戻すほうは、IEのコンテキストメニューにあります。

XP + IE7 で、Microsoft Internet Controls の参照設定が変です。

ウィンドウズスクリプトプログラマ — 2008-06-25T16:24:44+09:00

XP + IE6 では、Microsoft Internet Controls の参照先は、
C:\WINDOWS\system32\shdocvw.dll
ですが、IE7を入れると、
C:\WINDOWS\system32\ieframe.dll
に変わります。

ところが、その状態では、いろいろ問題が出るようです。

例えば、IE7のShell/IE分離に対応して、Shellを起こそうと、
Dim ie As SHDocVw.ShellBrowserWindow
Set ie = New SHDocVw.ShellBrowserWindow
とすると、エラーになります。

その場合、一度、Microsoft Internet Controls の参照設定を外して、
C:\WINDOWS\system32\shdocvw.dll
を参照設定し直します。

テキストファイルの行数を調べる。

ウィンドウズスクリプトプログラマ — 2008-06-24T23:59:57+09:00

よくあるのは、FSOで追加書き込みでオープンして、Lineプロパティを見るものです。

Function NumberOfLines(File)
Const forAppending=8
Dim TStream
Set TStream=CreateObject("Scripting.FileSystemObject").OpenTextFile(File,forAppending)
NumberOfLines=TStream.Line
End Function

しかし、このやり方には以下の問題があります。
出力オープンがエラーになることがある。
行数に１行の誤差が出ることがある。

なら、FSOでReadオープンしてSkipLineで数えれば、そういう問題はありません。

Function NumberOfLines(File)
Dim TStream
NumberOfLines=0
Set TStream=CreateObject("Scripting.FileSystemObject").OpenTextFile(File)
Do While Not TStream.AtEndOfStream
TStream.SkipLine
NumberOfLines=NumberOfLines+1
Loop
End Function

でも、性能が気になります。

じゃ、一度にすべて読めば、速い？

Function NumberOfLines(File)
Dim TStream
Set TStream=CreateObject("Scripting.FileSystemObject").OpenTextFile(File)
If Not TStream.AtEndOfStream Then TStream.ReadAll
NumberOfLines=TStream.Line+(TStream.Column=1)
End Function

今度は、メモリが気になります。

そこで、すべて読み飛ばします。

Function NumberOfLines(File)
Dim TStream
Set TStream=CreateObject("Scripting.FileSystemObject").OpenTextFile(File)
Do While Not TStream.AtEndOfStream
TStream.Skip 1073741824
Loop
NumberOfLines=TStream.Line+(TStream.Column=1)
End Function

ところで、この TStream.Line+(TStream.Column=1) の意味は？

TStream.Line は、UBound(Split(vbLf & TStream..ReadAll,vbLf)) みたいなもので、末尾の改行の有無によって、１行多く数えます。
TStream.Column は、a=Split(vbLf & TStream..ReadAll,vbLf): Len(a(UBound(a)))+1 みたいなものです。
なので、改行の後に文字がない場合(TStream.Column=1)、1を減じます(True=-1)。

フレーム構成を表示するコンテキストメニュー拡張

ウィンドウズスクリプトプログラマ — 2008-06-22T21:11:36+09:00

フレームの構成を、

親フレームのURL 子フレームのURL 孫フレームのURL

みたいに、インデントを付けて新規のウィンドウに表示します。

frames.htm

レジストリ

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\MenuExt\フレーム構成]
@="C:\\どこか\\frames.htm"

IE7でIEの名前が変わりました。

ウィンドウズスクリプトプログラマ — 2008-06-21T20:15:19+09:00

IWebBrowser2.Nameが、
IE6 Microsoft Internet Explorer
から
IE7 Windows Internet Explorer
に変わりました。

もし、IEのタイトルでAppActivateしてたりすると困ります。

エクスプローラの名前は、XP SP3でも、IE6と同じで、変わってません。
ひょっとして、Vistaでは、変わってるかも知れません。。。
と言っても、エクスプローラのタイトルには現れませんが。。。

Vistaの保護モードで、CreateObject(InternetExplorer.Application)を使う。

ウィンドウズスクリプトプログラマ — 2008-06-20T02:05:05+09:00

Vistaの保護モードでは、困ったことに、

Set ie=CreateObject("InternetExplorer.Application")
ie.Visible=True
ie.Navigate "about:blank"
Do While ie.Busy Or ie.ReadyState<>4
WScript.Sleep 100
Loop

がまともに動かないらしい。

保護モードを解除せずに、これを回避する方法は？
IEを新規に起こすケースが駄目？
既存ならＯＫ？

もし、そうなら、たぶん、これで行けると思うのですが、Vista環境がないので試せません。

と思ったら、新規でも既存でも駄目みたいですね。なら、これならどうだろ？

Set Shell=CreateObject("Shell.Application")
Shell.ShellExecute "iexplore.exe","-embedding"
Do
For Each ie In Shell.Windows()
If ie.ReadyState<>0 Then
ElseIf LCase(Right(ie.FullName,13))="\iexplore.exe" Then
Exit Do
End If
Next
WScript.Sleep 100
Loop
ie.Visible=True
ie.Navigate "about:blank"
Do While ie.Busy Or ie.ReadyState<>4
WScript.Sleep 100
Loop