Documentazione
Torna al sito web >

Client.Properties (iScript)

Abfragemöglichkeit diverser Programmeinstellungen und Betriebssystemeigenschaften.

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. Anzeige aller Eigenschaften

VBScript

option explicit

Function HTMLEncode(S)
  dim R,i,ch
  R = ""
  For i = 1 To Len(S)
    ch = Mid(S, i, 1)
    Select Case ch
      Case "&" ch = "&amp;" : Case "<" ch = "&lt;" : Case ">" ch = "&gt;"
      Case """" ch = "&quot;" : Case "'" ch = "&#x27;" : Case "/" ch = "&#x2F;"
    End Select
    R = R & ch
  Next
  HTMLEncode = R
End Function


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 "<B>" & s & "</B>"
    on error resume next
    SLOut.Add "<I>" & HTMLEncode(Client.Properties(s)) & "</I>"
    if Err.Number <> 0 Then
      SLOut.Add "<SPAN style='color:red'>" & Err.Description & "</SPAN>"
      Err.Clear
    End IF
  Else
    s = Right(s,Len(S)-1)
    SLOut.Add ""
    SLOut.Add "<H3>" & s & "</H3>"
  End If
Next

html = "<PRE>" & SLOut.Text & "</PRE>"

set SL = Nothing
set SLOut = Nothing

' Ergebnisse in HTML-Fenster anzeigen
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