genaues Betriebssystem auslesen

[DanielaKochsiek]

Hallo zusammen,

ich arbeite im Support und möchte, das in die Anwendung ein Button eingebaut wird, der mir Informationen zum Client liefert.

Ich bekomme es durchaus schon ganz gut hin mit diesem Code:


_{Dim ns as NotesSession
Dim nversion As String, pf As String
Dim result As Variant
nversion=ns.NotesVersion
result = Evaluate("@Platform([Specific])")
If(result(0)= "Windows/NT") Then
   If(result(1)="6.1") Then
        pf="Windows 7"
     ElseIf (result(1)="6.0") Then
        pf="Vista"
     ElseIf(result(1)="5.2") Then
        pf="Windows Server 2003"
     ElseIf(result(1)="5.1") Then
        pf="Windows XP"
     ElseIf(result(1)="5.0") Then
        pf="Windows 2000"
     ElseIf(result(1)="4.0") Then
        pf="Windows NT 4.0"   
     End If
Else
   pf=result(0)
End If}


Leider funktioniert es noch nicht heraus zufinden, ob 64 oder 32 bit.
Hat da jemand eine gute Idee?

Liste der Betriebssysteme hat nicht den Anspruch auf vollständigkeit.
Leider stehen mir hier auch nicht alle Betriebssysteme zur Verfügung.

Liebe Grüße

Daniela

[FriFra]

Ich hab zwar keine Ahnung, aber...

Eventuell gibt es unter Win64 spezifische Systemdateien (win32= %systemroot%/system32/shell32.dll, win64= %systemroot%/system64/schell64.dll???), oder spezifische Registry Keys?

[DerAndre]

Dr. G. hilft unter Umständen:

Schau mal nach folgendem Regestry Key:

HKEY_LOCAL_MACHINE\Software\WOW6432Node

Den sollte es, wenn ich es richtig Verstanden haben nur in der 64Bit Version geben

[m3]

Ev. kannst Du Dich auch bei !!SYSTEM!! inspirieren lassen.

[pram]

hier evtl auch noch was zum inspirieren: http://malektips.com/xp_dos_0025.html

Gruß
Roland

[DanielaKochsiek]

Hallo,
und danke für eure Vorschläge.
Aber ...
zu1)
!!System!! ist ein WebService der zwar Versionen auslesen kann, aber wenn ich das richtig verstehe nicht das OS.
zu2)
ich glaube nicht das ich aus dem Client herraus ein Batch file starten darf.
Ich will das dem Kunden ja auch nicht unnötig schwer machen.

Zur Zeit sieht es so aus, das der Kunde in der Lotus Notes Anwendung auf einen Button drückt und automatisch eine E-Mail mit entsprechend gefülltem Betreffsfeld geöffnet wird.
Das möchte ich auch eigentlich so beibehalten.

Das Problem der Bit Variante ist nur unter Windows Betriebssystemen  akut.
Von daher ist das auslesen der Registry eine gute Idee.
Ich werde das gleich mal implementieren.
Leider kann ich den Test erst morgen machen, da mir heute keine 64 Bit Maschine zur Verfügung steht.

LG

Daniela