[[エクスプローラ再起動]]
@DIV
' 起動用
Set WshShell = CreateObject( "WScript.Shell" )
' WMI用
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
' いったん終了させます
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'explorer.exe'")
For Each objProcess in colProcessList
on error resume next
objProcess.Terminate()
on error goto 0
Next
' 少し待ちます
Wscript.Sleep(500)
Call WshShell.Run( "explorer.exe" )
@END |