Das Notes Forum

Domino 9 und frühere Versionen => ND7: Entwicklung => Thema gestartet von: Pyewacket am 24.05.07 - 17:02:21

Titel: Betriebssystem ermitteln
Beitrag von: Pyewacket am 24.05.07 - 17:02:21

Hallo zusammen,

ich habe einen Agenten der mehrere API calls macht. Im Moment läuft er nur auf AIX, zukünftig soll er auch unter Solaris und Windows laufen. Mit session.Platform kriege ich nur die Unterscheidung Windows/linux/UNIX raus aber das reicht nicht da AIX und Solaris unterschiedliche API Deklarationen haben. Der einzige Weg der mir bisher einfiel ist die Abfrage des Feldes ServerPlatform im Serverdokument. Gibts noch andere Möglichkeiten?

Gruss
 Peter

Titel: Re: Betriebssystem ermitteln
Beitrag von: atbits am 01.06.07 - 22:39:17

Über ein Shellkommando, das Du absetzt?

Über session.Platform kriegst Du wie Du ja schon festgestellt hast raus ob Windows oder Unix-artig, dann auf Unix-Derivat ein Shellkommando absetzen, das sich auf den von Dir genannten Plattformen unterscheidet.

Sollte klappen - David

Titel: Re: Betriebssystem ermitteln
Beitrag von: eknori am 02.06.07 - 06:27:49

@Platform  unterscheidet auch die Unix Versionen

Code

Function get_platform () As String

Dim tmp_platform As Variant
Dim lower_platform As String
tmp_platform = Evaluate(|@Implode(@Platform([Specific]);" ")|)

lower_platform = Lcase(Cstr(tmp_platform(0)))

REM Messagebox Cstr(tmp_platform(0))

If (Instr (lower_platform, "aix")) Then
get_platform = "aix"
Elseif (Instr (lower_platform, "solaris")) Then
get_platform = "solaris"
Elseif (Instr (lower_platform, "linux")) Then
get_platform = "linux"
Elseif (Instr (lower_platform, "win")) Then
get_platform = "w32"
Elseif (Instr (lower_platform, "mac")) Then
get_platform = "mac"
Else 
Messagebox "Unsupported Platform : >" + lower_platform + "<"
get_platform = ""
End If
End Function