Domino 9 und frühere Versionen > ND8: Entwicklung

genaues Betriebssystem auslesen

(1/2) > >>

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

Navigation

[0] Themen-Index

[#] Nächste Seite