批量为LYNC用户添加头像.docx

批量为LYNC用户添加头像 2010-12-08 23:25:42标签：LYNC 批量 头像 用户 版权声明：原创作品，谢绝转载！否则将追究法律责任。 LYNC 客户端现在做得更加人性化了，其中一点就是用户可以使用头像来彰显个性。这个功能大家都比较喜欢，头像可以用户自己添加，但是要用网络路径，所以用户可能不会添加。所以由管理员来添加是最方便的。今天我们来看看怎么批量的为用户添加头像。我们先登录看看。默认的图像，光秃秃的。很是不好看。不过通过以前的帖子，我们还知道这个图像的原型是微软的创始人盖茨先生，还是先拜一个！开始吧！我们要实现准备好一些照片，照片不要超过大小不要超过30KB，所以尺寸也要控制好，一般就96X96就差不多了，太大了没有意义，因为这些照片是存在AD内的，所以如果太大的话，会导致AD的数据库增大，从而影响复制。照片就采用姓名来命名就好了，因为我们的脚本一会会读取到这个名字，然后用这个名字去搜索AD。大家可以看我的实例，我AD里面的用户名字是张三，那么照片也是张三。AD里面用户的名称为张三，而AD属性里面对应名称字段的值为name，要以这个为准。因为我们一会脚本搜索的属性也是这个name属性。照片就非常简单了，用户的名字为文件名。AD里面存照片对应的值为thumbnailPhoto，我们利用adsiedit.msc看看现在的值为空。脚本内容：红色地方为关键，主要是第一个为照片所存放的文件夹。第二个标为红色是告诉大家，我们查询的是name属性。Const ForReading = 1图片存的目录 InDir = C:photo Set fso = CreateObject(Scripting.FileSystemObject) set oIADS = GetObject(LDAP:/RootDSE) strDefaultNC = oIADS.Get(defaultnamingcontext) Set theConn = CreateObject(ADODB.Connection) theConn.Provider = ADsDSOObject theConn.Open ADs Provider Set theCmd = CreateObject(ADODB.Command) theCmd.ActiveConnection = theConn Set objRecordSet = CreateObject(ADODB.Recordset) For Each tFile In fso.GetFolder(InDir).Files tName = tFile.Name tName = Left(tName, InStrRev(tName,.)-1) strQuery = ; & (&(objectClass=person)(name= & tName & );name,adspath;subtree theCmd.CommandText = strQuery Set objRS = theCmd.Execute If objRS.RecordCount = 0 Then MsgBox Cant find account for & tName Else Set objUser = GetObject(objRS(adspath) ObjUser.Put thumbnailPhoto, ReadByteArray(tFile.Path) ObjUser.SetInfo End If Next Function ReadByteArray(strFileName) Const adTypeBinary = 1 Dim bin Set bin = CreateObject(ADODB.Stream) bin.Type = adTypeBinary bin.Open bin.LoadFromFile strFileName ReadByteArray = bin.Read End Function双击执行，然后先不要急着去登录用户，先去看看用户的值改变了没有。我们看到张三这个用户的thumbnailphoto已经有值了。我们再登录看看。头像已经出来了。 这里也看到了我们定义给用户图像。过程就这么简单，如果你有多用户，就批量的把