' ShutdownScript für Computer (shutdown_pc.vbs) 
' 13.11.2008 
' (c) Thorsten Jarz
' löscht Platte d:\

Set Wnetw = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")

For Each Verz In fso.GetFolder("d:\").SubFolders
    fso.DeleteFolder Verz, True
Next
For Each Datei In fso.GetFolder("d:\").Files
    fso.DeleteFile Datei, True
Next

set wshShell= wscript.createobject("wscript.shell")
wshShell.run "\\meineschule.intern\SysVol\meineschule.intern\scripts\Loesche_Profile.vbs" _
   ,0,true