定制OC客户端的联系人

如果我们需要定制OCS客户端的联系人，我们一般会简单的利用RT工具里面的LCSAddContacts.wsf，但是这里工具需要一些参数，下面的脚本能够把制定OU的所有启用Communication的用户写到了一个文件文件里面，而文件名的名称就是子OU的名称。

然后利用

cscript LCSAddContacts.wsf /usersFile:***.txt /contactsFile:***.txt /contactsGroup:***
就可以指定联系人了，需要注意的是***的地方虽然需要需要自己手工指定，但是工作量已经大大减小。

On Error Resume Next Const ADS_SCOPE_SUBTREE = 1 Set objShell = CreateObject("Wscript.Shell") Set objConnection = CreateObject("ADODB.Connection") Set objCommand =   CreateObject("ADODB.Command") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" Set objCommand.ActiveConnection = objConnection objCommand.Properties("Page Size") = 1000 objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE objCommand.CommandText = _     "SELECT Name, distinguishedName FROM 'LDAP://OU=***,DC**,DC=**'" & " WHERE objectCategory='organizationalUnit' "  Set objRecordSet = objCommand.Execute objRecordSet.MoveFirst Do Until objRecordSet.EOF strGroupName = objRecordSet.Fields("Name").Value strCommand =  "%comspec% /k dsquery * " & objRecordSet.Fields("distinguishedName").Value & " -attr msRTCSIP-PrimaryUserAddress -filter ""(msRTCSIP-UserEnabled=TRUE)"" > "& strGroupName &".txt" objShell.Run strCommand objRecordSet.MoveNext Loop