[hse2000]

спасибо. сам собрал чтото похожее

Option Explicit
Dim objUser
Dim strComputerName
Dim strUserName
strComputerName = "MachineName" ' Можно просто «.» в случае локальной машины
strUserName = "имя пользователя"
Set objUser = GetObject("WinNT://" & strComputerName & "/" & strUserName & ", user")
objUser.AccountDisabled = True
objUser.SetInfo
Set objUser = Nothing
WScript.Quit 0