Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1012to1016
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

I.Explorrer automatisch schließen funktioniert nic

I.Explorrer automatisch schließen funktioniert nic
12.10.2008 17:40:00
Fred
Hallo alle zusammen
Ich hoffe mir kann hier irgend jemand helfen.Meine Frage betrifft zwar nicht Excel, aber ich habe hier schon so viele Tipps bekommen, das hier bestimmt ein Profie ist der sich mal das VB Skript anschauen kann. Ich habe mir hier ein Script aus dem Netzt zusammen gestückelt, aber leider funktioniert dieses komischer weise nicht immer.
Ich bekomme Dann leider öffter eine Fehlermeldung angezeigt, und beim Googeln bin ich leider auch nicht schlauer geworden. Die Fehlermeldung lautet wie folgt:
*********************************
Zeile: 47
Zeichen: 1
Fehler: Typen unverträglich:'Return'
Code: 800A000D
*********************************+
Hier mal der Code .
'Zeiten für wscript.sleep: 30000 = 30 Sekunden, 3000000 = 5 Minuten, 36000000 = 1 Stunde
'---------------------------------------------------------------------------------------
'CHECKE AB, OB DER IEXPLORER AM LAUFEN IST:
'------------------------------------------
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colProcesses = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'iexplore.exe'")
'WENN DER IEXPLORER AM LAUFEN IST, DANN SENDE KURZE MELDUNG UND KILL DEN PROZESS NACH 30 SEKUNDEN:
'-------------------------------------------------------------------------------------------------
If colProcesses.Count = 1 Then
Dim Answer
Set WshShell = WScript.CreateObject("WScript.Shell")
Answer = WshShell.Popup("Nö Nö Internet wird in 30 Sekunden deaktiviert........... Fred ...", 6, "Info", 0 + 64)
wscript.sleep 30000
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
i=kill
Do while i=kill
Set colProcessList = objWMIService.ExecQuery _
("Select * from Win32_Process Where Name = 'iexplore.exe'")
For Each objProcess in colProcessList
objProcess.Terminate()
Next
wscript.sleep 30000 'HIER DIE MINUTENANZAHL EINSTELLEN, DIE DER IE NICHT MEHR LAUFEN DARF (IN MILLISEKUNDEN)
Loop
'WENN DER IEXPLORER NICHT LäUFT, DANN CHECKE IN 30 sekunden WIEDER NACH OB ER LäUFT (=BEGINNE DIESES SCRIPT VON VORNE)
'-------------------------------------------------------------------------------------------------------------------
Else
Wscript.sleep 30000
end if
Return
Return = WshShell.Run ("C:\Dokumente und Einstellungen\xanw33\Eigene Dateien\Neuer Ordner\Internetexplorrer schließen nach 3 sekunden.vbs")
Ich hoffe jemand kann mier weiter helfen, oder mir einen alternatieven Code Posten der den Internetexplorrer immer schließt, wenn er von jemanden geöffnet wird.
Grüße Fred

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: I.Explorrer automatisch schließen funktioniert nic
12.10.2008 18:13:06
Tino
Hallo,
der Code bringt Fehler über Fehler und dies nicht nur in der von Dir beschriebenen Zeile.
Hast Du eine Datei wo dieser Code einigermaßen Funktioniert?
Gruß Tino
AW: I.Explorrer automatisch schließen funktioniert nic
12.10.2008 18:30:00
Fred
Hallo Tino
Ich benutze diesen Code. habe Ihn im Editor geschrieben und als VBS abgespeichert. Er funzt ja ab und zu . Leider nur nicht immer
Fred
AW: I.Explorrer automatisch schließen funktioniert nic
12.10.2008 19:07:16
Nepumuk
Hallo Fred,
ist doch ganz einfach:
Option Explicit

Dim objWMIService, objProcesses, objProcess, objWScript

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objWScript = CreateObject("WScript.Shell")

Do
    
    Set objProcesses = objWMIService.ExecQuery("Select * from Win32_Process Where Name = 'iexplore.exe'")
    
    If objProcesses.Count > 0 Then
        objWScript.Popup "Nö Nö Internet wird in 30 Sekunden deaktiviert........... Fred ...", 6, "Info", 64
        WScript.Sleep 30000
        For Each objProcess In objProcesses
            objProcess.Terminate
        Next
        WScript.Sleep 1000
    Else
        WScript.Sleep 30000
    End If
    
Loop

Die zusätzliche Sekunde Wartezeit ist notwendig, da es etwas dauert, bis der Prozess wirklich beendet ist.
Gruß
Nepumuk
Anzeige
AW: I.Explorrer automatisch schließen funktioniert nic
12.10.2008 19:49:00
Fred
Hallo Nepumuk
Vielen Dank funzt prima.
Fred

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige