http://d.hatena.ne.jp/tyru/20130809/restart_explorer

restart-explorer.vbs

Option Explicit
On Error Resume Next

Dim strProcName ' 終了するプロセス名
Dim objProcList ' プロセス一覧
Dim objProcess  ' プロセス情報
Dim lngKillNum  ' 終了したプロセス数

strProcName = "explorer.exe"
lngKillNum = 0

Set objProcList = GetObject("winmgmts:").InstancesOf("win32_process")
For Each objProcess In objProcList
    If LCase(objProcess.Name) = strProcName Then
        objProcess.Terminate
        If Err.Number = 0 Then
            lngKillNum = lngKillNum + 1
        Else
            WScript.Echo "エラー: " & Err.Description
        End If
    End If
Next
If lngKillNum > 0 Then
    ' WScript.Echo strProcName & " を " & lngKillNum & " 個強制終了しました。"
Else
    WScript.Echo strProcName & " が見つかりませんでした。"
End If

Set objProcList = Nothing


Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "explorer.exe"
Set oShell = Nothing