Eigene Klasse in VBSCRIPT erstellen

Hallo Gemeinde!

Vor kurzem habe ich am einem Problem mit Programm- Aufrufen aus externen Sripts und es wurde mit hervorragend von "emeriks" geholfen. Nun habe ich ein neues Problem und hoffe wieder auf euer Fachwissen.

Das Problem:

Wir paketieren im Team systemübergreifend und wollen gewisse Funktionen einheitlich gecodet gestalten. Nicht zuletzt um die Qualität und Sicherheit des Codes zu verbessern. Z.B. den Pfad zu "Startmenü\Programme" herauszufinden. Da gibt es natürlich viele Wege und jeder hat seine eigene Technik dafür die, je nach System und Ersteller, funktioniert oder aber leider auch nicht.

Meine Idee um hier Fehler zu vermeiden ist alle vom System (egal welches) in der Registry abgespeicherten Environmentvariablen auszulesen und diese in einer eigenen Klasse bereitzustellen.

der Aufruf könnte dann lauten:

dim Startmenu : Startmenu = Meineklasse.Startmenü

Ich habe aber keinen Tau wie ich eine Klasse in VBSCRIPT erstelle und diese dann bereitstelle.

Hat eventuell jemand ein kleines Howto oder ein einfaches A-Z Beispiel für mich?

Danke!

lg

Mayho

PS: Wir verwenden durchwegs Programme wie VBSEDIT um die Opjekte einer Klasse komfortabel anzuzeigen

'==========================================================================================  
Dim objShell, objFso
Set objShell = WScript.CreateObject("Wscript.Shell")  
Set objFso = WScript.CreateObject("Scripting.FileSystemObject")  

Class EnvVar
  Property Get CommonPrograms
    Common Programs = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Programs")  
  End Property
  
  Property Get CommonDesktop
    CommonDesktop = objShell.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Desktop")  
  End Property
  
  ...
  ...
  ...
  ...
End Class


Set MyTest = New EnvVar
WScript.Echo MyTest.CommonDesktop

'=================================================================================================