'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