Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1584to1588
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

Shutdown

Shutdown
13.10.2017 20:19:59
Marco
Hallo liebe Helfenden,
ich habe schon viel gegoogelt bzw. hier im Archiv gestöbert. Aber jeder Code den ich gefunden habe, lief unter Windows 10 nicht.
Ich möchte gern einmal am Tag per vba den PC neustarten. Dies ist notwenig, da die einzelnen Makros und Programme die im Laufe des Tages auf dem MiniPC laufen, den Arbeitsspeicher verstopfen. Das einmal am Tag ist ja kein Problem. Aber ich finde keinen Herunterfahren/Neustarten Code.
Kann mir jemand weiterhelfen?
Ich freue mich auf Eure Antwort.

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Shutdown
13.10.2017 20:54:12
Nepumuk
Hallo Marco,
folgender Code läuft auch unter Windows 10:
Option Explicit

Public Sub NeuStart()
    Dim objWMI As Object, objItem As Object
    Set objWMI = GetObject("winmgmts:{(Shutdown)}//./root/cimv2").ExecQuery( _
        "SELECT * FROM Win32_OperatingSystem WHERE Primary=true")
    For Each objItem In objWMI
        Call objItem.Reboot
    Next
End Sub

Gruß
Nepumuk
Anzeige
Shutdown
13.10.2017 21:27:01
Marco
Hallo Neupumuk,
vielen lieben Dank. Es klappt!!!
Viele Grüße

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige