'v2.B*************************************************** 

' File:   anmelden-an-win9x.vbs 

' Autor:  dieseyer@gmx.de  

'         dieseyer.de 

' 

' Programm ermittelt WindowsNT-Version und Sp-Version 

'******************************************************* 

 

Set WSHShell   = WScript.CreateObject("WScript.Shell") 

Set WSHNetwork = WScript.CreateObject("WScript.Network") 

Set Env        = WSHShell.Environment("PROCESS") 

 

If Env("OS") = "Windows_NT" then 

  MsgBox WScript.ScriptName & "   läuft nur unter Win95/98/ME!" 

  WScript.Quit 

End if 

 

On Error Resume Next 

  Txt = WSHNetwork.UserName  ' wenn kein Benutzer an Win9x angemeldet ist, gibt's einen Fehler 

 

if not err.number = 0 then  

  WshShell.Run ("RunDLL32 Shell32,SHExitWindowsEx 0") 

Else  

  WshShell.Run ("C:\TRIO\FLOADER.EXE /5") 

End If 

  WScript.Quit 

On Error GoTo 0