VBscript får server til at gå ned

Hej alle

Jeg har følgende vb-script, som får serveren til at gå ned, når den kører scheduling om natten. Det mystiske er, at den ikke går ned, når jeg i dagstimerne kører det (altså når jeg på kommando beder den om at køre det). Ingen problemer, ingen fejl, ingen ting, men når den automatisk køres om natten (hvor der ingen brugere er, og hvor ingen andre programmer bruger serveren overhovedet), så går den ned præcis efter den har kørt sciptet igennem.

The previous system shutdown at 02:00:31 on 11-12-2004 was unexpected.

Min VB-kode er:

'************** slet "deleted" og "sent" post *****************

sub ChkDelFolder(f)
    for each folder in f.Subfolders
            if (folder.name="Deleted Items") or (folder.name="Sent Items") then
                folder.delete()
        'msgbox folder
            else
                ChkDelFolder(folder)
        end if
          next
end sub
   
startFolder="C:\Program Files\Mail Enable\Postoffices"
dim folder,folderCol
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
set f = objFSO.getFolder(startFolder)

for each folder in f.subfolders
    ChkDelFolder(folder)   
next
set folder = nothing
set objFSO = nothing
   
startFolder="C:\Program Files\Mail Enable\Backup\Sets\Autoback\Store\Postoffices"
Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
set f = objFSO.getFolder(startFolder)

for each folder in f.subfolders
    ChkDelFolder(folder)   
next
set folder = nothing
set objFSO = nothing

Efter at den er gået ned nogle gange, satte jeg scheduling til at kun at køre, når serveren var idle, samt at vække server (hvis den skulle være i power-saving-mode, hvilket jeg ikke ved om den gør.) Men det har ingen betydning haft, scriptet får stadig serveren til at gå ned.

Har I nogle bud? Kan koden optimeres?