29 lines
1.1 KiB
Plaintext
29 lines
1.1 KiB
Plaintext
' 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 |