Domänen Computer deaktivieren ???

[Piro]

Guten Abend,

ich hoffe einer von euch kann mir weiterhelfen. Ich möchte gerne mit Delphi einen Computer Account in unser Firmendomäne deaktivieren. Ich habe leider keine Ahnung wie bzw. womit ich das anstellen soll. Für Anregungen, Hinweise oder Vorschläge wäre ich sehr dankbar.

Gruß Sven

[mkinzler]

Z.B. per ADSI.

[Piro]

So ich kann den betreffenden PC auslesen.

Delphi-Quellcode:

procedure DisableComputerAccount(computer : String);
var rs,conn, com : Variant;
    strBase, strFilter, strAttributes, strADS, strName, strPager : string;
begin
  conn := CreateOleObject('ADODB.Connection');
  com := CreateOleObject('ADODB.Command');
  try
    conn.Provider := 'ADsDSOObject';
    conn.open;
    com.ActiveConnection := conn;
    strBase := '<LDAP://[Domäne]/OU=...,DC=...>';
    strFilter := '(&(Objectclass=computer)(Name='+ computer + '))';
    strAttributes := 'Name, Location';
    strADS := strBase + ';' + strFilter + ';' + strAttributes + ';subtree';
    Com.CommandText := strADS;
    Com.Properties['Page Size'] := 100000;
    Com.Properties['Searchscope'] := 2;
    Com.Properties['Cache Results'] := False;
    rs := Com.Execute;

    While Not rs.EOF do
    begin
      ShowMessage('Computer: ' +rs.Fields['Name'].Value);
      rs.MoveNext;
    end;

  finally
    com := NULL;
    conn.Close;
    conn := NULL;
  end;
end;

Aber wie kann ich jetzt den Computer deaktivieren? Mir fehlen die Eigenschaften und weiß nicht wie man das macht.

[Piro]

Irgendwie muss man "rs" einen Methode mitgeben oder so. Würde ich mal vermuten.

Ich würde auch löschen nehmen.

[Piro]

Ich habe mal folgendes probiert:

Delphi-Quellcode:

...
If not rs.EOF then
begin
   rs.Delete;
end;
...

Da bekommen ich abe immer folgende Fehlermeldung:

Zitat:

Current Recordset does not support updating. This may be a limitation of the provider or of the selected locktype.

???

[Piro]

Na weiß denn keiner Rat. Wäre schön wenn doch.

[mkinzler]

http://www.agnisoft.com/white_papers..._directory.asp
http://www.delphipraxis.net/internal...ct.php?t=60102

[Piro]

Hab es jetzt mal so versucht aber mit der Fehlermeldung kann ich nicht so wirklich etwas anfangen.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
 con : IADsContainer;
begin
 try
   con := GetObject('WinNT://[Domänen Name]') as  IADsContainer;  //--> Hier kommt der Fehler
   con.Delete( 'Computer', WideString(edt_computer.Text));
 finally
   //
 end;
End;

Fehlermeldung:

Zitat:

E2010 Inkompatible Typen: 'HGDIOBJ' und 'string'

Keine Ahnung wie man diese Typen miteinander kompatible macht. Was muss ich denn machen?

Hier ist das VBS Script, wo ich das abgeschaut habe.

Delphi-Quellcode:

Sub RemoveComputer( strDomain, strComputer )
   Dim objDC
    Set objDC = getobject("WinNT://" & strDomain )
    objDC.Delete( "Computer", strComputer )
End Sub

[mkinzler]

Delphi-Quellcode:

hr := ADsGetObject('WinNT://[Domänen Name]',IADsContainer,Container);

[Piro]

Soll hr = con sein und was für ein Type ist Container denn er kennt es nicht?

Ich habe die adshlp Unit eingebunden.

[mkinzler]

Du scheinst die verlinkten Seiten nicht gelesen zu haben.

[Piro]

Die kenne ich aber bei meinem nicht vorhanden Wissen in diesem Thema, sagt mir das nicht so viel

[mkinzler]

Aber einen Code Lesen kannst du?

Zitat:

Zitat von http://www.agnisoft.com/white_papers/active_directory.asp

Delphi-Quellcode:

var
 Container : IADsContainer;
 NewObject : IADs;
 User : IADsUser;
 hr : HREsult;
begin
 // COM must be initialized
 CoInitialize(nil);

 // Bind to the container.
 hr := ADsGetObject('WinNT://YOURDOMAIN',IADsContainer,Container);

[Piro]

Danke für deine Geduld. Ich habe jetzt so gemacht.

Delphi-Quellcode:

...
ADsGetObject('WinNT://[Domänen Name]', IADsContainer, con);
con.Delete( 'Computer', WideString(edt_computer.Text)); 
...

Danke nochmal