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