Accountdisabled men locked?

username = InputBox ("Indtast brugerenavn", "Indtast brugerenavn")
Jeg har fremstillet dette script som kan kontrollere om en brugere er blevet deaktiveret i en 2003 domain, men er der nogen måde jeg nemt kan se om den bare er locked out som opstår når en brugere taster sin adgangskode forkert 3 gange? (efter default domain pollicy)


Dim User
      SET WshShell = wscript.createobject("wscript.shell")
Set User=GetObject("WinNT://domain/" & username & ",user")

wshshell.popup user.accountdisabled

wscript.quit