'v2.A*****************************************************
' File:   wsh-info.vbs
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' zeigt Informationen zum WSH 
'*********************************************************

TextX = vbCRLF
TextX = TextX & "WScript.ScriptName:       " & vbTab & WScript.ScriptName         & vbCRLF
TextX = TextX & "WScript.ScriptFullName:   " & vbTab & WScript.ScriptFullName     & vbCRLF
  TextX = TextX & "WScript Path:           " & vbTab & Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, "\") -1)     & vbCRLF
  set fso = CreateObject("Scripting.FileSystemObject")
  TextX = TextX & "WScript Path:           " & vbTab & fso.GetParentFolderName( WScript.ScriptFullName ) & vbCRLF
  TextX = TextX & "WScript Path:           " & vbTab & fso.GetFolder(".")         & vbCRLF
TextX = TextX & "WScript.Applikation:      " & vbTab & WScript.Application        & vbCRLF
TextX = TextX & "WScript.Name:             " & vbTab & WScript.Name               & vbCRLF
TextX = TextX & "WScript.Version:          " & vbTab & WScript.Version            & vbCRLF
TextX = TextX & "WScript.FullName:         " & vbTab & WScript.FullName           & vbCRLF
TextX = TextX & "WScript.Path:             " & vbTab & WScript.Path               & vbCRLF
TextX = TextX & "ScriptEngine:             " & vbTab & ScriptEngine               & vbCRLF
TextX = TextX & "ScriptEngineMajorVersion: " & vbTab & ScriptEngineMajorVersion() & vbCRLF
TextX = TextX & "ScriptEngineMinorVersion: " & vbTab & ScriptEngineMinorVersion() & vbCRLF
TextX = TextX & "ScriptEngineBuildVersion: " & vbTab & ScriptEngineBuildVersion()

MsgBox TextX, , WScript.ScriptName