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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] VBS, блокирование учетной записи пользователя на локальном компьютере. (http://forum.oszone.net/showthread.php?t=133014)

hse2000

24-02-2009 17:12 1047589

VBS, блокирование учетной записи пользователя на локальном компьютере.

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

Vadikan

24-02-2009 18:47 1047669

Цитата:

Цитата hse2000

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

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

hse2000

25-02-2009 10:17 1048113

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

amel27

25-02-2009 11:50 1048168

Код:

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 1050356

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

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

Время: 04:02.