コメント |
@DIV
' このセクションは、cscript.exe で処理を強制させるものです
str = WScript.FullName
str = Right( str, 11 )
str = Ucase( str )
if str <> "CSCRIPT.EXE" then
str = WScript.ScriptFullName
Set WshShell = CreateObject( "WScript.Shell" )
Call WshShell.Run( "cmd.exe /c cscript.exe """ & str & """", 3 )
WScript.Quit
end if
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(0)
Set objFile = objFolder.ParseName("::{645FF040-5081-101B-9F08-00AA002F954E}")
objFile.InvokeVerb("properties")
' WMI の処理の為のオブジェクトを取得
' スクリプトを終了しないようにしています
Set obj = GetObject("winmgmts:\\.\root\cimv2")
' イベントの定義
Set objMonitor = obj.ExecNotificationQuery( _
"select * from __InstanceModificationEvent " & _
"where TargetInstance isa 'Win32_LocalTime' " & _
" and TargetInstance.Year = 0" _
)
Wscript.Echo "プロパティ表示後は、このコマンドプロンプトは閉じて下さい"
Set objLatestEvent = objMonitor.NextEvent
@END |