Форум по информационной безопасности: обсуждение продуктов Смарт-Софт

User

16.01.2017 03:30:00

Здравствуйте!

Пожалуйста, приведите пример скрипта vbscript, удаляющего пользователя?

Добавлять и выполнять иные операции с существующим пользователем по примерам понятно, а как удалить?

Спасибо.

ps: плохо, что нет возможности удалить пользователя из монитора работы. В данном случае задача - удалить всех, кто имеет минусовой баланс и-или долго на заходил. В мониторе это было бы удобно сделать, учитывая, что список велик.

Default

User

16.01.2017 08:46:00

Удаление одного или нескольких элементов из списка.

C/C++ -

HRESULT _stdcall DeleteList([in] enum APIListType List, [in] VARIANT xml);

Delphi -

procedure DeleteList(List: APIListType; xml: OleVariant); safecall;

Параметры

List - тип списка, перечисление APIListType.

XML - XML данные в текстовом виде.

Обязательный и единственный атрибут элемента списка - GUID. Если элемент

отсутствует, то возвращается ошибка (исключение).

el'd

User

16.01.2017 11:17:00

Я тоже прочитал документацию.

Мне это не совсем понятно, в прошлых версиях API было более дружелюбным, как мне кажется.

Прошу помощи в виде полного скрипта (ведь он простой), где станет понятно, как удалить пользователя.

Спасибо.

tecnotes

User

16.01.2017 13:39:00

Вот пример такого скрипта:

Удаляем пользователя с именем user1

Set Srv = CreateObject("TrafInsp.TrafInspAdmin")
AdmID="adm" 'Логин администратора Traffic Inspector
AdmPass="12345" 'Пароль администратора TIAdmin
UserID = "user1"

Set Perm = Srv.QueryPermissions()
LogOn = Perm.DoSharedLogon(AdmID, AdmPass, "Script")

itUser = 3
UserGUID = Srv.ItemGUIDByName(itUser, UserID)

If UserGUID = "" Then
   WScript.Echo "Клиент " & UserID & " не найден"
Else
Set Dom = WScript.CreateObject("Msxml2.DOMDocument.6.0")
    conf_AttrLevelDetail = 5

'Получаем данные по клиенту
   Dom.loadXML Srv.GetList(itUser, UserGUID, null, conf_AttrLevelDetail)
Set DocEl = Dom.DocumentElement
Set Node = DocEl.SelectSingleNode("UserItem")

'Удаляем клиента
Srv.DeleteList itUser, Dom.xml
WScript.Echo "Клиент " & UserID & " удален"

End If

Смысл я думаю понятен.

el'd User	#5 0 17.01.2017 06:09:00 Большое спасибо за помощь!

Форум компании Смарт-Софт