http://dieseyer.de • all rights reserved • © 2011 v11.4

'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

http://dieseyer.de • all rights reserved • © 2011 v11.4