[Vadikan]

который блокирует выбранного пользователя на локальной машине »

Что под этим понимается?

[hse2000]

отключение пользовательского аккаунта (в AD это выглядит как username - disable) т.е. не удаление а блокировка.

[amel27]

Код:

strUser = "User"

Set objNetwork = CreateObject("Wscript.Network")
strComputer = objNetwork.ComputerName

Set objUser = GetObject("WinNT://" & strComputer & "/" & strUser)
objUser.AccountDisabled = True
objUser.SetInfo

[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