Umgebungsvariable

[Siegfried Wohlsecker]

Wie kann ich eine Umgabungsvariable in einem vb-script auslesen ??

[Siegfried Wohlsecker]

Hallo Leute,
kann mir mal jemand sagen, wie ich eine x-beliebige Umgebungsvariable in
einem vb-script abfragen kann ?

[Frank-Peter Schultze]

"Siegfried Wohlsecker" <sieg...@wohlsecker.de> schrieb im Newsbeitrag news:#VB1BlP#AHA.2096@tkmsftngp05...

> Wie kann ich eine Umgabungsvariable in einem vb-script auslesen ??

Mit der Environment Property kommst Du weiter. Kleines Bsp.:

set sh=WScript.CreateObject("WScript.Shell")
set env=sh.Environment("PROCESS")
WScript.Echo env("PATH")

Lade Dir am besten einmal die WSH Dokumentation von

http://msdn.microsoft.com/scripting/

herunter. Es lohnt sich...

--
Frank-Peter Schultze <fpsch...@my-deja.com>, http://www.FPSchultze.de

[G. Born]

"Siegfried Wohlsecker" <sieg...@wohlsecker.de> schrieb im Newsbeitrag

news:uB14gkP#AHA.1916@tkmsftngp07...

> Hallo Leute,
> kann mir mal jemand sagen, wie ich eine x-beliebige Umgebungsvariable in
> einem vb-script abfragen kann ?
>
>

Hier ein kleines Beispielskript aus "Inside Windows Script Host", welches
den Umgebungsvariablenbereich ausliest und anzeigt. Bezüglich Speichern etc.
gibt es einige Sonderbedingungen (einiges findest Du im WSH Bazaar, anderes
unter dem erwähnten MS PRess Titel "Inside WSH"). Die URL zum Herunterladen
der WSH Hilfe hast Du ja in einem anderen Thread erhalten.

'************************************************
' File: Environment.vbs (WSH-Beispiel in VBScript)
' Autor: (c) G. Born
'
' Zeigt den Inhalt verschiedener Umgebungsvariablen
' des WScript.Shell-Objekts in einem Dialogfeld an.
'************************************************
Option Explicit

Dim Message, Title
Dim WshShell, objEnv

' Hole das Shell-Objekt

Set WshShell = CreateObject ("WScript.Shell")

' Hole jetzt die Auflistung über die Environment-Eigenschaft

Set objEnv = WshShell.Environment("Process")

Message = "Umgebungsvariablen" + vbCRLF + vbCRLF
Message = Message + "Path: " + objEnv("Path") + vbCRLF
Message = Message + "Extensions: " + objEnv("PathExt") + vbCRLF
Message = Message + "Prompt: " + objEnv("Prompt") + vbCRLF

Message = Message + "System-Drive: " + objEnv("SYSTEMDRIVE") + vbCRLF
Message = Message + "System-Root: " + objEnv("SYSTEMROOT") + vbCRLF
Message = Message + "Win-Dir: " + objEnv("WinDir") + vbCRLF

Message = Message + "TEMP: " + objEnv("TEMP") + vbCRLF
Message = Message + "TMP: " + objEnv("TMP") + vbCRLF

Message = Message + "OS: " + objEnv("OS") + vbCRLF

Message = Message + "Blaster: " + objEnv("Blaster") + vbCRLF

' Titeltext initialisieren
Title = "WSH-Beispiel " + WScript.ScriptName + " - by G. Born"

MsgBox Message, vbInformation + vbOKOnly, Title

'*** Ende

--
G. Born

Bitte nur im Forum antworten - answers only in this newsgroup pls
______________________________________
Check out the WSH Bazaar at www.borncity.de