Betriebssystem auslesen

[kvogelsa]

Liebe Liste,
nach langer Zeit mal wieder ein Lebenszeichen

Wir verwalten unsere OOo Dokumente über einen Apache, laden sie also über den firefox runter.

Ein Makro speichert das Dokument dann automatisch unter der Netzwerkfreigabe im richtigen Ordner unter dem richtigen Namen, damit OOo weiß, das bei strg+s nicht im tmp Ordner sondern eben im richtigen Ordner gespeichert werden soll:

Code: Alles auswählen

 dim dummy()
   Pfad="Y:\myOrdner\"+oFeld.content+".odt"
   Pfadurl=converttourl(Pfad)
   odoc=thisComponent

  odoc.storeasurl(Pfadurl,dummy())

Verwende ich OOo unter Windows, klappt es.

Jetzt wollen wir die Arbeitsplatzrechner aber auf Linux umstellen, und da klappt es nicht, da unter linux die Ordnerstruktur anders ist.

unter linux klappt dieser code:

Code: Alles auswählen

 dim dummy()
   Pfad="/Y:/iuristico_doc/"+oFeld.content+".odt"
   
   odoc=thisComponent

  odoc.store(Pfad,dummy())

Meine Frage nun:
Wie müsste eine If-Abfrage lauten, die entweder

• das Betriebssystem ausliest und abhängig davon das Makro im entsprechenden Code weiterlaufen lässt

• oder, wohl einfacher, checkt, ob " Pfadurl" true ist und anderenfalls im linux-code weiterläuft

Vielen Dank für Eure Mühe

[komma4]

Du kannst hier eine BASIC runtime-Funktion nutzen:

Code: Alles auswählen

l_OS_Index = GetGUIType()

Select Case l_OS_Index
	Case 1
		s_OS = "Windows"
		s_rechnername = Environ("COMPUTERNAME")
		s_benutzername = Environ("USERNAME")
		s_benutzerdomain = Environ("USERDOMAIN")

	Case 3
		s_OS = "MacOS"
	
	Case 4
		s_OS = "Linux" ....

Hilft das?

[kvogelsa]

Vielen Dank!

Entschuldige bitte die späte Antwort,

Genauso geht es!

[komma4]

Entschuldige bitte die späte Antwort,

Kein Problem - ich hab's nicht eilig