Windows und Excel/VBA

Forumthread: Windows und Excel/VBA
4 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Windows und Excel/VBA

10.10.2004 01: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

AW: Windows und Excel/VBA

K.Rola
AW: Windows und Excel/VBA

Dieter
AW: Windows und Excel/VBA

K.Rola
AW: Windows und Excel/VBA

Dieter

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

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