Управление контакт-листами в OCS 2007
Вопрос
Ответы
-
Сохранился все тот же lcsaddcontacts.wsf для добавления контактов пользователям. (Логику реализуем отдельным скриптом.)
Так что, как это обычно бывает в жизни, мечта осуществима, но только при собственных усилиях.
-
Вот переделал функцию для удаления группы по ее имени для заданного пользователя. Вам только надо организовать вызов этой функции из скрипта LCSAddContacts.wsf (начинать надо от функции ParseUserLineItem и далее, т.е. надо получить strPrimaryURI, потом UserInstanceID) Думаю справитесь
Code Snippet'-------------------------------------------------------------------------------
' Function: DeleteGroup
' Description: Deletes Group for given a User
' Parameters: UserInstanceID, GroupName
' Returns: Variant rReturn - (Either -1, Err.Number or 0)
'-------------------------------------------------------------------------------
Function DeleteGroup(ByVal UserInstanceID, ByVal GroupName)
Dim vReturn : vReturn = -1Dim oInstances
Dim oInstanceSet oInstances = GetObject("winmgmts:\\" & cComputer).ExecQuery("SELECT * FROM " & cWMIUserContactGroupClass & " WHERE UserInstanceID = '" & UserInstanceID & "'")
If Not oInstances.Count < 1 Then
For Each oInstance In oInstances
If StrComp(GroupName, oInstance.Name) = 0 Then
On Error Resume Next
oInstance.Delete_
If Err.number = vbEmpty Then
WScript.Echo "[+] Delete successful for Group: " & GroupName
vReturn = 0
Else
WScript.Echo "[-] Delete failed for Group: " & GroupName & " " & Err.number & ": " & Err.Description
vReturn = Err.number
End If
On Error Goto 0
End If
Next
End If
DeleteGroup = vReturn
End FunctionВот WMI-класс для группы. Тут указаны параметры. Фактически можно искать по имени группы (как я сделал) и по ExternalURL но что это я не знаю
class MSFT_SIPESUserContactGroupData
{
string ExternalURL;
[key] uint32 GroupID;
string Name;
[key] string UserInstanceID;
};
Все ответы
-
Сохранился все тот же lcsaddcontacts.wsf для добавления контактов пользователям. (Логику реализуем отдельным скриптом.)
Так что, как это обычно бывает в жизни, мечта осуществима, но только при собственных усилиях.
-
Осилила! Все работает!
-
Умняша!
-
Вот переделал функцию для удаления группы по ее имени для заданного пользователя. Вам только надо организовать вызов этой функции из скрипта LCSAddContacts.wsf (начинать надо от функции ParseUserLineItem и далее, т.е. надо получить strPrimaryURI, потом UserInstanceID) Думаю справитесь
Code Snippet'-------------------------------------------------------------------------------
' Function: DeleteGroup
' Description: Deletes Group for given a User
' Parameters: UserInstanceID, GroupName
' Returns: Variant rReturn - (Either -1, Err.Number or 0)
'-------------------------------------------------------------------------------
Function DeleteGroup(ByVal UserInstanceID, ByVal GroupName)
Dim vReturn : vReturn = -1Dim oInstances
Dim oInstanceSet oInstances = GetObject("winmgmts:\\" & cComputer).ExecQuery("SELECT * FROM " & cWMIUserContactGroupClass & " WHERE UserInstanceID = '" & UserInstanceID & "'")
If Not oInstances.Count < 1 Then
For Each oInstance In oInstances
If StrComp(GroupName, oInstance.Name) = 0 Then
On Error Resume Next
oInstance.Delete_
If Err.number = vbEmpty Then
WScript.Echo "[+] Delete successful for Group: " & GroupName
vReturn = 0
Else
WScript.Echo "[-] Delete failed for Group: " & GroupName & " " & Err.number & ": " & Err.Description
vReturn = Err.number
End If
On Error Goto 0
End If
Next
End If
DeleteGroup = vReturn
End FunctionВот WMI-класс для группы. Тут указаны параметры. Фактически можно искать по имени группы (как я сделал) и по ExternalURL но что это я не знаю
class MSFT_SIPESUserContactGroupData
{
string ExternalURL;
[key] uint32 GroupID;
string Name;
[key] string UserInstanceID;
}; -
Я решила вопрос грубейшим способом: удалением у всех пользователей всех контактов LCSAddContacts и зачисткой таблицы ContactGroup в базе rtc
.Но такой метод в решении задачи ежедневной синхронизации контакт-листа с АД, конечно же, не годится - очищается группа Recent contacts. Описание класса видела, но скриптом ничего получить не удалось
в sql-ной таблице же все имена в бинарном виде 'On error resume next
Const cComputer = "."
Const cWMINameSpace = "root/cimv2"
Const cWMIUserContactGroupClass = "MSFT_SIPESUserContactGroupData"
Dim oInstances
Dim oInstance
Set oInstances = GetObject("winmgmts:\\" & cComputer).Get(cWMIUserContactGroupClass)
For Each oInstance In oInstances
wscript.echo (oInstance.name)
wscript.echo (oInstance.ExternalURL)
wscript.echo (oInstance.groupId)
wscript.echo (oInstance.UserInstanceID)
NextExternalURL это
