Set objou=GetObject("LDAP://ou=Dimission_Users,dc=contoso,dc=com")
Set con = CreateObject("ADODB.Connection")
Set com = CreateObject("ADODB.Command")
con.Provider = "ADsDSOObject"  'this is the ADSI-OLEDB provider name
con.Open "Active Directory Provider"
Set Com.ActiveConnection = con
com.Properties("Page Size")=1000
Dim fs, f,i
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.OpenTextFile("response.txt")
Do While f.AtEndOfStream <> True
 com.CommandText = "select name,samaccountname,adspath from 'LDAP://DC=contoso, DC=com' WHERE samAccountName=" & "'" & f.ReadLine & "'"
 Set rs = Com.Execute
 While Not rs.EOF
    Set usr=GetObject(rs.fields("AdsPath"))
  usr.accountdisabled= Not enable
  usr.put "description","dimission"
  'WScript.Echo usr.name
  usr.setinfo
  set newuser=objou.movehere(usr.adspath,vbnullstring)
    WScript.Echo rs.Fields("Name"),rs.fields("samaccountname")
  rs.MoveNext
 Wend
Loop
f.Close
复制代码