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