Автоматизация администрирования. Часть 2 - [2136] :: В помощь системному администратору

Новости • Файловые архивы
Поиск • Активные темы • Топ лист
Правила • Кто в on-line?

Вход • Забыли пароль? • Первый раз на этом сайте? • Регистрация

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2

Модерирует : lynx, Crash_Master, dg, emx, ShriEkeR
ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению

YNY

Full Member

Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору

strComputer = "."
dim WshShell
set WshShell = WScript.CreateObject("WScript.Shell")

Set objWMIService = GetObject( _
"winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery _
("Select * from Win32_UserAccount Where LocalAccount = False")
For Each objItem in colItems
'if objItem.Name="X" then
'Wscript.Echo "Local Account: " & objItem.LocalAccount
Wscript.Echo "Name: " & objItem.Name
'Wscript.Echo "Name: " & objItem.Name&"--"&"SID: " & objItem.SID
'Wscript.Echo "SID Type: " & objItem.SIDType
Wscript.Echo "Status: " & objItem.Status

'end if
' если акк не отключен, то...
if (objItem.Status<>"Degraded" ) then
'...
end if
Next

Всего записей: 476 | Зарегистр. 18-05-2006 | Отправлено: 10:12 15-02-2011 | Исправлено: YNY, 10:30 15-02-2011

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » В помощь системному администратору » Автоматизация администрирования. Часть 2
ShriEkeR (23-05-2011 23:06): Автоматизация администрирования. Часть 3

Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.B0ard
© Ru.B0ard 2000-2024

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC