' Loesche_Profile.vbs
' Löscht alle Profiele, die in den letzten 15 Tagen nicht verwendet wurden
' (c) Thorsten Jarz 22.2.2009
' Benötigt delprof entweder Lokal oder in der Scriptfreigabe

on error resume next

Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "delprof.exe  /d:15 /q /i /r" ,0, true
if Err.number <>0 then 'Delprof wurde nicht gefunden
	oShell.run _ 
   "\\meineschule.intern\SysVol\meineschule.intern\scripts delprof.exe" & _ 
   " /d:15 /q /i /r",0,true 
end if