Den Delphi-Quellcode habe ich leider nie gesehen. Microsoft hat aber ein VS-Script
veröffentlicht, welches die Arbeit für dich macht, wenn du den
freien Patch von IntelliAdmin nicht einsetzen magst. Wenn es dir nur um das Prinzip gehen sollte, dann behaupte ich mal, dass du die 12 Zeilen VBS ruck-zuck nach Delphi übersetzt hast.
Freundliche Grüße