Domänen Computer deaktivieren ???

[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