Option Explicit

Dim objUser

Dim strComputerName
Dim strUserName


strComputerName = "MachineName" ' Можно просто «.» в случае локальной машины
strUserName     = "UserName"

Set objUser     = GetObject("WinNT://" & strComputerName & "/" & strUserName & ", user")

objUser.AccountDisabled = True
objUser.SetInfo

Set objUser = Nothing

WScript.Quit 0