Discussion :

[bhf37]

comment démarrer un service sur un pc du réseau local ?

J'explique :

dans ma procédure je fais ça ( où SrvName est le nom du service et Machine le nom du PC ) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// Démarre un service
function TForm1.ServiceStart( SrvName : string; Machine : string = '' ) : Boolean;
var SrvHandle : Cardinal;
ServiceArgVectors : PAnsiChar;
 
  // Ouvre un service
  function ServiceOpen( SrvName : string; Machine : string = '' ) : Cardinal;
  var H_SC : SC_Handle;
  begin
    if ( Machine = '' ) then
      H_SC := OpenSCManager( nil, nil, SC_MANAGER_ALL_ACCESS )
    else
      H_SC := OpenSCManager( PChar( Machine ), nil, SC_MANAGER_ALL_ACCESS );
    Result := OpenService( H_SC, PChar( SrvName ), SC_MANAGER_ALL_ACCESS );
  end;
 
begin
    Result := False;
    ServiceArgVectors := nil;
    SrvHandle := ServiceOpen( SrvName, Machine );
    try
        Result := ( StartService( SrvHandle, 0, ServiceArgVectors ) );
    finally
        CloseServiceHandle( SrvHandle );
    end;
end;

Tant que le nom du PC est le PC local tout va bien mais dès que je veux faire la même chose en mettant le nom de mon autre PC, le "SrvHandle" reste à 0 et donc ne lance pas mon service.

Si quelqu'un peut m'aider rapidement.
par avance.

[bhf37]

Oups...
J'ai oublié de dire que le PC distant est sous Vista.
Ben voilà, c'est fait.