http://dieseyer.de • all rights reserved • © 2011 v11.4
'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
http://dieseyer.de • all rights reserved • © 2011 v11.4