'v2.3*****************************************************
' File:   pc-aus-w9x.vbs 
' Autor:  dieseyer@gmx.de 
'         dieseyer.de
'
' 1. Scandisk über alle Laufwerke
' 2. Defragmetierung über alle Laufwerke
' 3. ShutDown mit Ausschalten
'*********************************************************

Option Explicit

DIM WshShell, OpSys, RegKey, TextX, ZielSys, NT_9x, Text

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

' ----------------------------------------------
' Testen der Windows-Version (XP nicht getestet)
' ----------------------------------------------

  OpSys = ""
' Win9x/ME?
' ----------------------------------------------
  On Error Resume Next
     If not err.number <> 0 Then
        OpSys = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Productname")
      End if
  On Error GoTo 0

If not OpSys = "" Then
        WshShell.Run "scandskw /allfixeddisks /noninteractive /silent",,True
        WshShell.Run "defrag /all /f /p /noprompt",,True

        ' Neustart
        ' WshShell.Run "rundll Shell32.dll,SHExitWindowsEx 7"

        ' Ausschalten
          WshShell.Run "rundll Shell32.dll,SHExitWindowsEx 13"

        WScript.Quit
End If

' WinNT?
' ----------------------------------------------
  On Error Resume Next
     If not err.number <> 0 Then
        OpSys   = "Windows NT " & WshShell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\CurrentVersion")
     End if
  On Error GoTo 0

' Win2k?
' ----------------------------------------------
  On Error Resume Next
     If not err.number <> 0 Then
        OpSys   = WshShell.RegRead("HKLM\Software\Microsoft\Windows NT\CurrentVersion\Productname")
     End if
  On Error GoTo 0

MsgBox OpSys & " wird nicht unterstützt.", , WScript.ScriptName