Windows Versionen unterscheiden

[shambler 10]

Hallo zusammen,

 

ich suche dringend nach einer Möglichkeit, Anwendungen von CD zu starten.

Die Unterscheidung, ob es sich um ein Windows 95 oder Windows NT basierendes System handelt haben wir bereits. Jetzt fehlt mir aber die Unterscheidung zwischen 32bit und 64bit Betriebssystemen.

 

Bitet um Tipps, wie man 1. das System unterscheiden kann, 2. wie die Umsetzung als Script so ablaufen kann, dass man unterschiedliche Anwendungen laufen lassen kann.

 

Vierlen Dank für eure Hilfe.

 

Gerd

[shambler 10]

Hat sich erledgt.

 

Habe es mit einem VBScricpt sauber hinbekommen.

 

GErd

[Lian 2.659]

Poste doch den Code wenn möglich, dann haben alle etwas davon ;)

[shambler 10]

Na das mach ich doch glatt :-).

 

strComputer = "."
Dim osName, osSerch, Pos1
Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colOS = objWMI.InstancesOf("Win32_OperatingSystem")
For each objOS in colOS
osName = objOS.Caption
Next
osSearch = "64"
Pos1 = InStr(osName, osSearch)
If Pos1>0 then
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.exec("PROGRAMM64BIT.EXE")
Else
Set objShell = WScript.CreateObject("WScript.Shell")
objShell.exec("PROGRAMM32BIT.EXE")
End If

 

Es wird hier nix anderes gemacht, als die Ausgabe der OS-Version nach dem String "64" abzusuchen.

Klick, schon hat man eine einfache Erkennung, ob es sich um ein 64bit System handelt oder nicht. Die Erkennung kann man bestimmt noch verfeinern, für meine Zwecke aber reicht es vollkommen.

 

LG

Gerd