' GetWindowsEnvironment(EnvName: String)
' ----------------------------------------------------------------------------
' URL: https://skriptwiki.ffsf.de/doku.php/umgebungsvariablen
'
' Mögliche Werte für EnvName sind hier zu finden:
' http://www.winfaq.de/faq_html/Content/tip0000/onlinefaq.php?h=tip0328.htm
' 
' Returns: GetWindowsEnvironment : String
' ----------------------------------------------------------------------------
' Copyright (c) 2021 by Digital Data GmbH
'
' Digital Data GmbH • Ludwig-Rinn-Strasse 16 • D-35452 Heuchelheim
' Tel.: 0641/202360 • E-Mail: info-flow(at)digitaldata.works
' ----------------------------------------------------------------------------
' Creation Date / Author:   23.03.2021 / MP
' Version Date / Editor:    23.03.2021 / MP
' Version Number: 			3.0.0.0

Function GetWindowsEnvironment(EnvName)
	If (Len(EnvName) <= 0) Then
		GetWindowsEnvironment = ""
		Exit Function
	End If

	Set WshShell = CreateObject("WScript.Shell")
	Set oEnv = WshShell.Environment("Process")
	GetWindowsEnvironment = oEnv(EnvName)
	Set oEnv = Nothing
End Function