Menü

Client.Properties (iScript)

Abfragemöglichkeit diverser Programmeinstellungen und Betriebssystemeigenschaften.

Zurück | Ebene zurück

value = Client.Properties[index: string]

Parameter

index

die Bezeichnung der abzufragenden Eigenschaft. Folgende Werte sind möglich

Exe.Version - Haupt- und Nebenversion des Programms
Exe.MainVersion - Hauptversion von EULANDA®
Exe.SubVersion -
Nebenversion von EULANDA®
Exe.Release -
Ausgabe jeweiligen Haupt-/Nebenversion
Exe.Build
- Fortlaufende interne Nummer der  Exe-Zusammenstellung
Exe.FullVersion - komplette Version des Hauptprogramms mit Build
Global.PrimaryLang - Hauptsprache, für die der Mandant eingerichtet ist
Global.PrimaryLocale -  Haupt-Locale (LCID)
Global.UILang - Benutzersprache
Global.UILocale - Benutzer Locale (LCID)
Folder.Desktop - gibt den Verzeichnisnamen vom Windows-Desktop des aktuellen Benutzers zurück
Folder.MyDocuments - Verzeichnis Eigene Dateien
Folder.MyPictures - Verzeichnis Eigene Bilder
Folder.Windows - Verzeichnis der Windows-Installation

Beispiele

A. Einfaches Beispiel

VBScript

MsgBox "Eulanda Version: " & Client.Properties("EXE.FULLVERSION")

 

B. Beispiel zur Anzeige aller Eigenschaften


In diesem Beispiel werden die Werte aller aktuell vorhandenen Eigenschaften als HTML-Seite angezeigt. 

VBScript

option explicit

dim SL, SLOut, i, Html, s, wb
set SL = Client.CreateObject("eulanda.stringlist")
set SLOut = Client.CreateObject("eulanda.stringlist")

SL.ADD ":GLOBAL"

SL.Add "GLOBAL.PRIMARYLANG"
SL.Add "GLOBAL.PRIMARYLOCALE"
SL.Add "GLOBAL.UILANG"
SL.Add "GLOBAL.UILOCALE"
SL.Add "GLOBAL.DEFPRINTLANG"
SL.Add "GLOBAL.DEFPRINTLOCALE"

SL.ADD ":CLIENT"

SL.Add "CLIENT.NUMBER"

SL.ADD ":EXE"

SL.Add "EXE.MAINVERSION"
SL.Add "EXE.SUBVERSION"
SL.Add "EXE.RELEASE"
SL.Add "EXE.BUILD"
SL.Add "EXE.VERSION"
SL.Add "EXE.FULLVERSION"
SL.Add "EXE.UDLFILENAME"
SL.Add "EXE.FULLNAME"

SL.ADD ":WTS"

SL.Add "WTS.CLIENTNAME"
SL.Add "WTS.CLIENTADDRESS"
SL.Add "WTS.DOMAINNAME"
SL.Add "WTS.CLIENTDIRECTORY"

SL.ADD ":FOLDER"

SL.Add "FOLDER.DESKTOP"
SL.Add "FOLDER.WINDOWS"
SL.Add "FOLDER.WINDOWSTEMP"
SL.Add "FOLDER.EULANDATEMP"
SL.Add "FOLDER.EXE"
SL.Add "FOLDER.CLIENT"
SL.Add "FOLDER.CLIENTCACHE"
SL.Add "FOLDER.CLIENTBLOBCACHE"
SL.Add "FOLDER.APPDATA"
SL.Add "FOLDER.CDBURN"
SL.Add "FOLDER.MYDOCUMENTS"
SL.Add "FOLDER.PERSONAL"
SL.Add "FOLDER.INTERNETCACHE"
SL.Add "FOLDER.COOKIES"
SL.Add "FOLDER.HISTORY"
SL.Add "FOLDER.LOCALAPPDATA"
SL.Add "FOLDER.COMMONAPPDATA"
SL.Add "FOLDER.PROGRAMFILES"
SL.Add "FOLDER.MYPICTURES"
SL.Add "FOLDER.MYVIDEO"
SL.Add "FOLDER.PROGRAMFILESCOMMON"
SL.Add "FOLDER.COMMONDOCUMENTS"
SL.Add "FOLDER.COMMONADMINTOOLS"
SL.Add "FOLDER.ADMINTOOLS"
SL.Add "FOLDER.STARTUP"
SL.Add "FOLDER.DATALINKDIR"
SL.Add "FOLDER.UDLLOCALAPPDATA"

SL.ADD ":IEXPLORER"

SL.Add "IEXPLORER.VERSION"
SL.Add "IEXPLORER.MAJORVERSION"

Html = "
" & vbCrLf
for I = 0 TO SL.Count-1
  s = SL.Strings(i)
  If left(s,1) <> ":" Then
    SLOut.Add "" & s & ""
    on error resume next
    SLOut.Add " " & Client.Properties(s)
    if Err.Number <> 0 Then
      SLOut.Add ""&Err.Description&""
      Err.Clear
    End IF
  Else
    s = Right(s,Len(S)-1)
    SLOut.Add ""
    SLOut.Add "" & s & ""
  End If
Next

html = ""&SLOut.Text&""

set SL = Nothing
set SLOut = Nothing

Set wb = Client.CreateDialog("WebBrowser")
wb.HTMLSource = html
wb.Title = "Client.Properties()"
wb.IconUrl = "folder"
wb.Borderstyle = 5
wb.AbortButtonVisible = False
wb.ShowModal
set wb = Nothing