2017-12-22 9 views
-3

Ich arbeite in Lotus-Skript. Ich muss wissen, welche Hauptversion wie Windows XP/7/Vista/8/10 das Windows-Betriebssystem des aktuellen Systems hat. Als Beispiel, wenn ich msinfo32 mit der Eingabeaufforderung starten, bekomme ich Microsoft Windows 10 Home Single Language gegen Betriebssystemname und das ist, was ich will, oder zumindest "Microsoft Windows 10".So erhalten Sie vollständige Windows-Versionsinformationen (Windows XP/7) mithilfe von Lotus Notes

Dank
+0

https://StackOverflow.com/Help/how-to-ask – dda

+0

Willkommen zu Stack Overflow.Wenn Sie Ihr Konto hier erstellt haben, wurde vorgeschlagen, dass Sie die [Tour] nehmen und die [help] Seiten lesen, um sich vertraut zu machen Sie selbst, bevor Sie Ihre nächste Frage stellen. Bitte tun Sie dies, bevor Sie Ihre nächste Frage stellen. Ein Teil des minimalen Aufwands, um selbst eine Lösung zu finden, ist die Suche nach vorhandenen Beiträgen, bevor Sie danach fragen Es gibt viele bestehende Posts zum Abrufen von Windows-Versionen in vielen verschiedenen Programmiersprachen. Sie sollten einige finden, die (obwohl nicht für LotusScript) Sie in die richtige Richtung beginnen sollten. –

+0

Danke für Ihren Rat. In der Tat habe ich die relevanten Fragen durchgespielt, bevor ich gepostet habe, und konnte natürlich nicht genug Zeit damit verbringen, konnte aber keine machbare Lösung im Zusammenhang mit Lotus Notes finden. – user1575786

Antwort

0

Sie können 'OS-Version' über Formel erhalten:
@Platform([Specific])
für Windows 7 Sie so etwas wie (Array) bekommen
[ 'Fenster/NT', '6.1', '', '' ]

oder Sie können diese Ebene os Name kehrt nur
@Platform
tun 'Fenster/32'. ABER! es gibt immer/32 zurück, wenn Sie 32-Bit-Client/Server haben, auch wenn Ihr Betriebssystem 64-Bit ist; Wenn Sie 64-Bit-Client/Server haben - gibt es den richtigen Wert zurück, d. h. immer 64-Bit :).

p.s. LotusScript- Version: :)
dim v as variant v = evaluate({ @Platform([Specific]) }) msgbox(v(0) & ", " & v(1))

p.p.s. here's windows versions list

0

Entschuldigung für die Verspätung. Wie auch immer, hatte ich es bekam durch den Zugriff auf Windows-Registrierung wie folgt aus:.

Dim Ret As Variant 
Ret = Evaluate({ @RegQueryValue("HKEY_LOCAL_MACHINE"; "SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion"; "ProductName") }) 

Msgbox Ret (0) „angezeigt wie "Windows 10 Start Single Language"

funktioniert auf Windows 7, 8 und