'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")