Forums Neueste Beiträge
 

WinMgMt läuft nicht

05/01/2009 - 22:34 von Hans Winkler | Report spam
Hallo zusammen!

Nach Neuinstallation làufts nicht mehr: winmgmt muß als Dienst laufen
und ich kriegs nicht hin und bitte um Hilfe.
Doppelklick aufs Programm oder "ausführen" starten das Programm nicht.

Es ist für das folgende notwendig:
App = "FriFon32.exe"
Set oWmi = GetObject("winmgmts:")
CheckRun
Function CheckRun
sWmiq = "select * from Win32_Process where name=App"
Set oQResult = oWmi.Execquery(sWmiq)
If oQResult.Count < 1 Then
WshShell.Run "C:\Programme\_telkom\avm\" & App, 7, True
Else
WScript.Sleep 60000
End If
CheckRun
End Function
-

Dieses Skript wiederum startet FritzFon falls noch nicht geschehen und
es lief bisher anstandslos.
Hat jemand eine Idee und kann helfen?

Hans
 

Lesen sie die antworten

#1 Helmut Rohrbeck
06/01/2009 - 04:45 | Warnen spam
Hans Winkler schrieb:

Hallo zusammen!

Nach Neuinstallation làufts nicht mehr: winmgmt muß als Dienst laufen
und ich kriegs nicht hin und bitte um Hilfe.
Doppelklick aufs Programm oder "ausführen" starten das Programm nicht.

Es ist für das folgende notwendig:
App = "FriFon32.exe"
Set oWmi = GetObject("winmgmts:")
CheckRun
Function CheckRun
sWmiq = "select * from Win32_Process where name=App"
Set oQResult = oWmi.Execquery(sWmiq)
If oQResult.Count < 1 Then
WshShell.Run "C:\Programme\_telkom\avm\" & App, 7, True
Else
WScript.Sleep 60000
End If
CheckRun
End Function
-

Dieses Skript wiederum startet FritzFon falls noch nicht geschehen und
es lief bisher anstandslos.
Hat jemand eine Idee und kann helfen?



Dein Script hat einen Fehler in Zeile 2. Ändere sie in
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\.oot\cimv2")
(2 Zeilen) und es wird wieder funktionieren.

Helmut Rohrbeck [MVP]
http://www.helmrohr.de/Kontakt.htm
Mail nur über das Kontaktformular
auf meiner Webseite!

Ähnliche fragen