Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
496to500
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
496to500
496to500
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Windows und Excel/VBA

Windows und Excel/VBA
09.10.2004 23:46:11
Dieter
Hallo Excellenzen,
kann man Windows eigentlich mit VBA herunterfahren und wenn ja, wie geht das?
Gruß Dieter

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

Betreff
Datum
Anwender
Anzeige
AW: Windows und Excel/VBA
K.Rola
Hallo,
klar, geht (fast)alles. Welche Windowsversion solls sein?
Gruß K.Rola
AW: Windows und Excel/VBA
Dieter
Hallo K.Rola,
es geht um Windows XP home und XP professionel.
Gruß Dieter
AW: Windows und Excel/VBA
K.Rola
Hallo,
der Code ist ausschließlich für Windows XP geeignet!
Option Explicit
Sub OS_Version()
Const STRPC As String = "."
Dim objWMI As Object, colOS As Object, objOS As Object
Set objWMI = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & STRPC & "\root\cimv2")
Set colOS = objWMI.ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS In colOS
If InStr(objOS.Caption, "XP") > 0 Then
Set colOS = GetObject("winmgmts:{(Shutdown)}").ExecQuery("Select * from Win32_OperatingSystem")
For Each objOS In colOS
objOS.Win32Shutdown (1)
Next
End If
Next
End Sub

Aktionen, die das Betriebssystem betreffen, sollten nur von erfahrenden Anwendern durchgeführt werden.
Gruß K.Rola
Anzeige
AW: Windows und Excel/VBA
Dieter
Hallo K.Rola,
klappt, mit Windows kenne ich mich besser aus als mit Excel/VBA.
Danke und schönen Sonntag.
Gruß Dieter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige