[решено] VBS, блокирование учетной записи пользователя на локальном компьютере. [Версия для КПК]

Показать полную графическую версию : [решено] VBS, блокирование учетной записи пользователя на локальном компьютере.

hse2000

24-02-2009, 17:12

Тут такую задачу начальство поставило, написать скрипт, который блокирует выбранного пользователя на локальной машине. Как сделать это в AD понятно, а как на локальной машине, которая не в домене, а в рабочей группе... Вообщем идеи есть у кого? ОС Windows 2003 server

Vadikan

24-02-2009, 18:47

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

hse2000

25-02-2009, 10:17

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

amel27

25-02-2009, 11:50

strUser = "User"

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

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

hse2000

27-02-2009, 12:38

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

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