Desktop neu starten

[Herbert Dietrich]

Hallo Habe folgendes Problem:

Mit folgenden VBscript soll der Desktop neu gestartet werden:

strComputer = "."
Dim WSH
Set objWMIService = GetObject("winmgmts:" _
    & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colProcessList = objWMIService.ExecQuery _
    ("Select * from Win32_Process Where Name = 'explorer.exe'")

For Each objProcess in colProcessList
    objProcess.Terminate(1)
Next

Set WSH = CreateObject("Wscript.Shell") 

WSH.Run "explorer.exe"

Wenn ich das Script als Standalone.vbs starte fuktioniert das tadellos. Starte ich das Script aus einem HTA-Script wird der Desktop nicht resettet. Der Desktop wird zwar gelöscht aber der Befehl: WSH.Run "explorer.exe" startet die explorer.exe noicht als TASK

Boin dankbar für jeden Tip

Gruß Herbert