Windows 2003 AD快速大量删除帐号

之前发表了一篇如何快速大量建立AD帐号的方法，后来又有邦友在问那如果要透过excel表格快速大量删除帐号呢？
其实也没什么难的，只要改改原来那篇Windows 2003 AD快速大量建立帐号的script就可以达成
基本上还是运用到Windows 2003 AD快速大量建立帐号这篇中提到的excel表格
，只是表格内容中放置的是要删除的帐号(只要account那个栏位有资料就好，其他可以空白，如下图)

接下来就是程式码的部分了**(请注意第二行有excel表的路径与档名)**，整个script要在AD上执行才有用。第七行需要设定AD主机名称与组织单位名称

Set conn=CreateObject("ADODB.Connection")conn.Open "Driver={Driver do Microsoft Excel(*.xls)};DBQ=d:\account.xls;DriverID=278"Set rs=CreateObject("ADODB.RecordSet")SqlStr="SELECT * FROM ""帐号清单$"""rs.Open SqlStr,conn,3,1set oAD=GetObject("LDAP://rootDSE")Set oDomain=GetObject("LDAP://AD主机名称/OU=组织单位名称," & oAD.Get("defaultNamingContext"))Do Until rs.EOFstruser = rs("account")If struser<>""thenoDomain.delete "User","CN="&struser'(删除帐号)Usercount=Usercount+1End Ifrs.MoveNextLoopmsgbox"成功删除"&Usercount&"个使用者！"rs.Closeconn.closeset rs=nothing