'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