VBS/WSH/JS - [решено] VBS, блокирование учетной записи пользователя на локальном компьютере.

Vadikan · Конфигурация компьютера

Цитата hse2000:

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

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

hse2000 · Отправлено: **10:17, 25-02-2009** | #3

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

amel27 · Отправлено: **11:50, 25-02-2009** | #4

Код:

strUser = "User"

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

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

hse2000 · Отправлено: **12:38, 27-02-2009** | #5

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

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