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

Z.B. per ADSI.

So ich kann den betreffenden PC auslesen.

zusammenfalten · markieren

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.

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

Ich würde auch löschen nehmen.

Ich habe mal folgendes probiert:

markieren

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.

???

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

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

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

zusammenfalten · markieren

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.

markieren

Delphi-Quellcode:

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

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

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

Ich habe die adshlp Unit eingebunden.