http://dieseyer.de • all rights reserved • © 2011 v11.4

'v3.5***************************************************
' File: winnt-or-win9x.vbs
' Autor: dieseyer@gmx.de
' dieseyer.de
'
'*******************************************************

' *****************************************************************
' etwas ausführlicher:
' *****************************************************************
Set WSHShell = WScript.CreateObject("WScript.Shell")
Set WSHEnvX = WSHShell.Environment("Process")

if WshEnvX("OS") = "Windows_NT" then
MsgBox "Windows_NT: NT4 oder W2k", , Titel
ScriptWeiter = "WinNT-XXX.vbs"
else
MsgBox "kein Windows_NT: Win9x, WinME", , Titel
ScriptWeiter = "Win9x-XXX.vbs"
end if

MsgBox ScriptWeiter, , WScript.ScriptName

' WshShell.run(ScriptWeiter)

' *****************************************************************
' ganz kurz:
' *****************************************************************
'
' Set WSHShell = WScript.CreateObject("WScript.Shell")
' Set WSHEnvX = WSHShell.Environment("Process")
' if WshEnvX("OS") = "Windows_NT" then WshShell.run("WinNT.VBS")
' if not WshEnvX("OS") = "Windows_NT" then WshShell.run("Win9x.VBS")


http://dieseyer.de • all rights reserved • © 2011 v11.4