IT-блог компании "ЛанКей"

<comment>
LCSAddGroups.wsf
This WMI script progmatically adds Distribution Lists for LCS Users.
</comment>

<job>
<?job error="True" debug="True" ?>

<script language="VBScript">
<![CDATA[
' VBScript source code
Option Explicit

' Contant decleration section
Const cComputer = "."
Const cWMINameSpace = "root/cimv2"
Const cWMIUserClass = "MSFT_SIPESUserSetting"
Const cWMIUserContactGroupClass = "MSFT_SIPESUserContactGroupData"
Const cWMIUserContactClass = "MSFT_SIPESUserContactData"
Const cWMIUserACEClass = "MSFT_SIPESUserACEData"
Const cGroupNameAllContacts = "~"

 
'-------------------------------------------------------------------------------
' Function: GetUserInstanceID
' Description: This function will return the InstanceID of SIP User
' Parameters: ByVal strPrimaryURI - SIP address of User
' whoes InstanceID has to be retrived
' Returns: Variant string - (either -1 or InstanceID of SIP User)
'-------------------------------------------------------------------------------
Function GetUserInstanceID (ByVal strPrimaryURI)
Dim vReturn : vReturn = -1
If Not IsEmpty(strPrimaryURI) Then
Dim oUserInstances : Set oUserInstances = GetObject("winmgmts:\\" & cComputer).ExecQuery("SELECT * FROM " & cWMIUserClass & " WHERE PrimaryURI = '" & strPrimaryURI & "'")
If Not oUserInstances.Count < 1 Then
Dim oInstance
For Each oInstance In oUserInstances
vReturn = oInstance.InstanceID
Next
End If
End If
GetUserInstanceID = vReturn
End Function

 
'-------------------------------------------------------------------------------
' Function: ParseUserLineItem
' Description: This function will parse each line item from text file
' with the users and add contacts for them.
' Parameters: ByVal strLineItem - Line item that has to be parsed
' for user for which contacts have to be added.
' Returns:
'-------------------------------------------------------------------------------
Function ParseUserLineItem (strLineItem)
Dim vItems : vItems = Split(strLineItem, ":")
If UBound(vItems) > 0 Then
Dim vUsers
Dim vUser
Select Case UCase(vItems(0))
Case "SIP"
vUser = "sip:" & Trim(vItems(1))
If fDelete Then
Wscript.echo vUser
DeleteContacts(vUser)
DeleteGroups(vUser)
Else
AddContactGroups(vUser)
End If
Case Else
WScript.Echo ""
WScript.Echo "@------------------------------------------------------------"
WScript.Echo "[Err] Invalid Line item in " & strUsersFile & ": '" & strLineItem & "'"
WScript.Echo "@------------------------------------------------------------"
End Select
Else
WScript.Echo ""
WScript.Echo "@------------------------------------------------------------"
WScript.Echo "[Err] Invalid Line in " & strUsersFile & ": '" & strLineItem & "'"
WScript.Echo "@------------------------------------------------------------"
End If
End Function

'-------------------------------------------------------------------------------
' Function: AddContactGroup
' Description: Adds Contact for given User
' Parameters: UserInstanceID, Name
' Returns: Variant rReturn - (Either null or GroupID)
'-------------------------------------------------------------------------------
Function AddContactGroup(ByVal UserInstanceID, ByVal Name, ByVal strDistributionGroupEmailAddress)
Set oInstances = GetObject("winmgmts:\\" & cComputer).ExecQuery("SELECT * FROM " & cWMIUserContactGroupClass & " WHERE UserInstanceID = '" & UserInstanceID & "'")
For Each oInstance In oInstances
Wscript.echo "GroupID: " & oInstance.GroupID
Wscript.echo "Name: " & oInstance.Name
Wscript.echo "ExternalURL: " & oInstance.ExternalURL
Wscript.echo "UserInstanceID: " & oInstance.UserInstanceID
Wscript.echo "NewGroup: " & Name
Wscript.echo ""
Next

Wscript.Echo "User groups: " & oInstances.Count
Dim vReturn : vReturn = null

Dim oInstances
Dim oInstance

Set oInstances = GetObject("winmgmts:\\" & cComputer).Get(cWMIUserContactGroupClass)
Set oInstance = oInstances.SpawnInstance_

oInstance.UserInstanceID = UserInstanceID
oInstance.ExternalURL = "<groupExtension groupType=" & Chr(34) & "dg" & Chr(34) & "><email>" & strDistributionGroupEmailAddress & "</email></groupExtension>"
oInstance.Name = Name

On Error Resume Next
oInstance.Put_ 2 'Put flag 2 for createOnly

If Err.Number = 0 Then
strCounter = strCounter + 1
End If
Err.Clear
On Error Goto 0

AddContactGroup = vReturn
End Function

Function DeleteContacts(ByVal strPrimaryURI)
Dim UserInstanceId
UserInstanceId = GetUserInstanceID(strPrimaryURI)

Dim oInstances
Dim oInstance

Set oInstances = GetObject("winmgmts:\\" & cComputer).ExecQuery("SELECT * FROM " & cWMIUserContactClass & " WHERE UserInstanceID = '" & UserInstanceID & "'")
If Not oInstances.Count < 1 Then
For Each oInstance In oInstances
On Error Resume Next
oInstance.Delete_
If Err.number = vbEmpty Then
WScript.Echo "[+] Delete successful for contact: " & oInstance.SIPURI
vReturn = 0
Else
WScript.Echo "[-] Delete failed for contact: " & oInstance.SIPURI & " " & Err.number & ": " & Err.Description
vReturn = Err.number
End If
On Error Goto 0
Next
End If
End Function

Sub DeleteGroups (ByVal strPrimaryURI)
Dim UserInstanceId
UserInstanceId = GetUserInstanceID(strPrimaryURI)

Dim oInstances
Dim oInstance

Set oInstances = GetObject("winmgmts:\\" & cComputer).ExecQuery("SELECT * FROM " & cWMIUserContactGroupClass & " WHERE UserInstanceID = '" & UserInstanceID & "'")
For Each oInstance In oInstances
If Not oInstance.Name = "~" Then
On Error Resume Next
oInstance.Delete_
If Err.number = vbEmpty Then
WScript.Echo "[+] Delete successful for group: " & oInstance.Name
vReturn = 0
Else
WScript.Echo "[-] Delete failed for group: " & oInstance.Name & " " & Err.number & ": " & Err.Description
vReturn = Err.number
End If
On Error Goto 0
End If
Next
End Sub

 
Sub AddContactGroups (ByVal strPrimaryURI)
Dim strUserInstanceId
strUserInstanceId = GetUserInstanceID(strPrimaryURI)

Dim strGroupID
Wscript.echo strPrimaryURI
strGroupID = AddContactGroup(strUserInstanceId, "ИМЯ_ГРУППЫ_1", "group_1_mail@domain.ru")
strGroupID = AddContactGroup(strUserInstanceId, "ИМЯ_ГРУППЫ_2", "group_2_mail@domain.ru")
strGroupID = AddContactGroup(strUserInstanceId, "ИМЯ_ГРУППЫ_3", "group_3_mail@domain.ru")
End Sub

 
]]>
</script>

<script language="VBScript">
<![CDATA[
Option Explicit

Dim strCounter : strCounter = 0
Dim strPrimaryURI
Dim fDelete : fDelete = WScript.Arguments.Named.Exists("delete")

If Not WScript.Arguments.Named.Exists("usersfile") Then
strPrimaryURI = "sip:" & InputBox("Enter SIP address of user." & VbCrLf & _
"You can use /UsersFile:C:\users.txt parameter if you want to add groups to many users." & VbCrLf & _
"Each line in users.txt need to have the format sip:users@domain.com", "SIP address")
If fDelete Then
DeleteContacts(strPrimaryURI)
DeleteGroups(strPrimaryURI)
Else
AddContactGroups(strPrimaryURI)
End If

Else
Dim strUsersFile : strUsersFile = LCase(Trim(WScript.Arguments.Named.Item("usersfile")))

WScript.Echo "@------------------------------------------------------------"
WScript.Echo "@ Text file with Users: " & strUsersFile
WScript.Echo "@------------------------------------------------------------"
WScript.Echo ""
Dim oFS : Set oFS = CreateObject("Scripting.FileSystemObject")
Dim oUsersFile
Dim i : i = 0

'Reading Users from file and adding contacts
If oFS.FileExists(strUsersFile) Then
Set oUsersFile = oFS.OpenTextFile(strUsersFile, 1, false)

Dim strUserSIPAddress
Dim strLineItem

Do Until oUsersFile.AtEndOfStream
strLineItem = Trim(oUsersFile.ReadLine)
ParseUserLineItem(strLineItem) ' Parse each line item and add contacts for it
Loop
Else
fShowUsage = True
WScript.Echo "[Err] Invalid users input file: " & strUsersFile
End If
End If