Function AD_Computer_Disable
	rs_leichen.MoveFirst
	While not rs_leichen.EOF
		StrCN = rs_leichen.fields("NAME").Value
		'StrCN = "xyz" 
      MsgBox StrCN
		Set objComputer = FindADs(StrCN)
		objComputer.AccountDisabled = True
		objComputer.SetInfo
		Set objComputer = Nothing
 
		rs_adleichen.MoveNext
	Wend
 
End Function
 
 
Function FindADs(byVal StrCN)
	Set ad_connect = CreateObject("ADODB.Connection")       
	ad_connect.Provider="ADsDSOObject"
	ad_connect.Open "Active Directory Provider"
	strAdsPath = "LDAP://...."
 
	Set oCommand = CreateObject("ADODB.Command")
	oCommand.ActiveConnection = ad_connect
	oCommand.Properties("Page Size") = 50
	oCommand.Properties("Searchscope") = 2
	oCommand.CommandText = "Select ADsPath from '"&strAdsPath&"' where" & _
  "objectClass='computer' and Name = '"&StrCN&"'"
 
  Set rs_ad = oCommand.Execute
			If rs_ad.eof Then
					Set FindADs = Nothing
			Else
					Set FindADs = GetObject(rs_ad("ADsPath"))
    	End If
	rs_ad.close
	Set rs_ad = nothing
End Function