'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