I have two computers networked to each other - computer A and computer B.

Computer A has a Windows Service on called 'svcItextIt1'

My aim is to write a program for Computer B, to look at Computer A and see if it has the service installed correctly.

If a put my program on computer A it works fine with the machine name set as :
Machine Name: Blank
I.P Address
sSkills3 (name of computer)

but, no matter what I set machine name to ( I.P address or computer A name ), the service is not being recognised when I run the program on computer B.

Is this possible to do? Could it a network problem?

Please can anyone help or advise me


The code I am using is below


procedure TfrmServiceStatus.btnOKClick(Sender: TObject);
begin
machinename := edit1.text;
servicename := 'svcItextIt1';

if serviceexists(machinename,servicename) then
begin
showmessage('svcItextIt1 DOES exist');
end
else
begin
showmessage('svcItextIt1 DOES NOT exist');
end;
end;

function TfrmServiceStatus.serviceExists(smachine,Sservice: string):boolean;
var
schm,
schs : SC_Handle;

begin
schm := OpenSCManager(PChar(sMachine),
Nil, SC_MANAGER_CONNECT);

if (schm <>0) then
schs := OpenService(schm,
PChar(sService), SERVICE_ALL_ACCESS);

result:= (schs<>0);
end;