strAnswer = MsgBox(”Volgende disconnected Mailboxen gevonden: ” & vbCr & vbCr & dmBoxes & vbCr & vbCr & ” DOORGAAN ?” , 20, “Purgen ?”)
If strAnswer = 6 Then
For each mBox in oDisMbox
objExplorer.Document.BOdy.InnerHTML = “Mailbox being purged: ” & mBox.MailboxDisplayName
mBox.Purge
Next
objExplorer.Document.BOdy.InnerHTML = “Volgende disconnected mailboxen zijn purged :” & vbCr & vbCr & dmBoxes
Else
objExplorer.Quit
Msgbox “Nothing done…”
Wscript.quit
End If
else
Wscript.echo “No Disconnected Mailboxes found !”
End if
Wscript.Echo “Done !”
Wscript.Sleep 3000
objExplorer.Quit

Stylet Leader