急！！如何启动局域网内其它机子的“server”这个服务！在线等待 ( 积分: 50 )

lsxysuper · 2005-04-17

我想利用“server”这个服务来使用net time 和at　这两个命令，使的局域网内其它机子可以被指定时间运行一个exe。 我们例子： net time //10.20.40.136 //result＝18：56 at //10.20.40.136 19:00 "f:/super/project2server.exe" 但是这样必需使的局域网内的其它机子的"server"这个服务是要在启动的状态？ 请问各们大虾，有什么办法启动局域网内的其它机子的"server"这个服务啊

lsxysuper · 2005-04-17

我想利用“server”这个服务来使用net time 和at　这两个命令，使的局域网内其它机子可以被指定时间运行一个exe。 我们例子： net time //10.20.40.136 //result＝18：56 at //10.20.40.136 19:00 "f:/super/project2server.exe" 但是这样必需使的局域网内的其它机子的"server"这个服务是要在启动的状态？ 请问各们大虾，有什么办法启动局域网内的其它机子的"server"这个服务啊

Aiirii · 2005-04-18

http://borland.mblogger.cn/aiirii/posts/2893.aspx 設定NtService的運行狀態 你必须先用 SC_HANDLE OpenSCManager(  LPCTSTR lpMachineName,  LPCTSTR lpDatabaseName,  DWORD dwDesiredAccess ); 打开对应机器的 Service 管理器，才能操作

dedema · 2005-04-18

uses  WinSvc; //启动一个服务.......//机器名,服务名. function ServiceStart(const sMachine, sService: string) : Boolean; var  schm,schs: SC_Handle;  ss: TServiceStatus;  psTemp: PChar;  dwChkP: DWord; begin  ss.dwCurrentState := 0;  schm := OpenSCManager(PChar(sMachine), nil, SC_MANAGER_CONNECT);  if (schm>0) then  begin   schs := OpenService(schm, PChar(sService), SERVICE_START or SERVICE_QUERY_STATUS);    if (schs>0) then   begin     psTemp := nil;      if (StartService(schs, 0, psTemp)) then        if (QueryServiceStatus(schs, ss)) then         while (SERVICE_RUNNING<>ss.dwCurrentState) do          begin           dwChkP := ss.dwCheckPoint;            Sleep(ss.dwWaitHint);           if (not QueryServiceStatus(schs, ss)) then            Break;            if ss.dwCheckPoint <> 0 then              Break;          end;      CloseServiceHandle(schs);    end;   CloseServiceHandle(schm);  end; Result := SERVICE_RUNNING=ss.dwCurrentState; end;

lsxysuper · 2005-04-18

to dedema 谢谢　dedema　给我提示 我怎么不能成功啊，程序没错误，但是不能启动‘server’这个服务，是什么原因啊？？？

lsxysuper · 2005-04-18

对自己的机子是能启动的，但对局域网内的其它机子就不行？是什么原因啊？？

dedema · 2005-04-18

应该是权限的问题,你把SC_MANAGER_CONNECT 改SC_MANAGER_ALL_ACCESS.

lsxysuper · 2005-04-19

to dedema 我改过了　，可是还是不行！是什么原因？ 请问你自己试过有用的吗？

tt.t · 2005-04-20

这是一个打开远程机器Telnet服务的例子程序。 需要远程主机有启动服务权限的用户名、密码，且远程主机的远程注册表服务要已打开（若远程主机Telnet服务被禁用，强制改为允许用）。 n久前的东西了，应该还能有帮助吧。 //========unit1.pas=========== unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, WinSvc, Clipbrd; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Edit1: TEdit;    Edit2: TEdit;    Label1: TLabel;    Label2: TLabel;    Label3: TLabel;    Edit3: TEdit;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end; var  Form1: TForm1;  scHandle:SC_HANDLE; implementation {$R *.dfm} procedure ConnIPC(RemoteName,User,Pass:string); var  nr:NETRESOURCE;  RN:string; begin  RN:='//';  RN:=rn+RemoteName+'/ipc$';  nr.dwType:=RESOURCETYPE_ANY;  nr.lpLocalName:=NiL;  nr.lpRemoteName:=pchar(RN);  nr.lpProvider:=NiL; //  showmessage(rn+'::'+user+'::'+pass);  if not WNetAddConnection2(nr,pchar(Pass),pchar(User),0)=NO_ERROR then    showmessage('establish ipc$ connection error!!!'); end; procedure CancelIPC(RemoteName,User,Pass:string); var  nr:NETRESOURCE;  RN:string; begin  RN:='//';  RN:=rn+RemoteName+'/ipc$';  nr.dwType:=RESOURCETYPE_ANY;  nr.lpLocalName:=NiL;  nr.lpRemoteName:=pchar(RN);  nr.lpProvider:=NiL; //  showmessage(rn+'::'+user+'::'+pass);  if not WNetCancelConnection2(pchar(rn),CONNECT_UPDATE_PROFILE,true)=NO_ERROR then    showmessage('stop ipc$ connection error!!!'); end; function EnableServices(const pServiceName

Char):bool; var  osHandle:SC_HANDLE;  Qresult:BOOL;  Qsc:QUERY_SERVICE_CONFIG;  i:dword; begin  Result:=false; //  showmessage(pServiceName);  osHandle:=OpenService(scHandle,pServiceName,SERVICE_ALL_ACCESS);  if osHandle<>0 then  begin    Qresult:=QueryServiceConfig(osHandle,@Qsc,Sizeof(Qsc),i);    if not Qresult then    begin      if (Qsc.lpDependencies<>'') and (Qsc.lpDependencies[0]<>SC_GROUP_IDENTIFIER) then        EnableServices(Qsc.lpDependencies); //      showmessage('lpDependencies::'+Qsc.lpDependencies);      if Qsc.dwStartType=SERVICE_DISABLED then      begin        Qsc.dwStartType:=SERVICE_DEMAND_START;        Qresult:=ChangeServiceConfig(osHandle,Qsc.dwServiceType,Qsc.dwStartType,              SERVICE_ERROR_IGNORE,nil,nil,nil,nil,nil,nil,Qsc.lpDisplayName);        if not Qresult then        begin          showmessage('ChangeServiceConfig::'+syserrormessage(getlasterror));          exit;        end;      end;    CloseServiceHandle(osHandle);    end    else    begin      showmessage('QueryServiceConfig::'+syserrormessage(getlasterror));      CloseServiceHandle(osHandle);      exit;    end;   //enable service  end  else  begin    showmessage('OpenService Error::'+syserrormessage(getlasterror));  end;  CloseServiceHandle(osHandle);  Result:=true; end; procedure StartTelnet(n:string); var  lpServiceName

Char;  b:bool;  osHandle:SC_HANDLE;  rkey,key1,key2:HKEY;  x:dword; begin  ConnIPC(form1.Edit1.Text,form1.Edit2.Text,form1.Edit3.Text);  if RegConnectRegistry(PChar('//'+form1.Edit1.Text),                        HKEY_LOCAL_MACHINE,rKey)=ERROR_SUCCESS then  begin    x:=3;    if RegOpenKey(rkey,PChar('SYSTEM/CurrentControlSet/Services/TlntSvr'),key1)=ERROR_SUCCESS then      RegSetValueEx(key1,'Start',0,reg_dword,@x,4);    RegCloseKey(Key1);    x:=0;    if RegOpenKey(rkey,PChar('SOFTWARE/Microsoft/TelnetServer/1.0'),key2)=ERROR_SUCCESS then      RegSetValueEx(key2,'NTLM',0,reg_dword,@x,4);    RegCloseKey(Key2);      RegCloseKey(rKey);  end  else    showmessage('reg connect error');  lpServiceName:='TlntSvr';  //PChar

scHandle:=OpenSCManager(PChar('//'+form1.Edit1.Text),NIL,SC_MANAGER_ALL_ACCESS);  if scHandle=0 then  begin    showmessage('OpenSCManager //'+form1.Edit1.Text +'Error::'+syserrormessage(getlasterror));    exit;  end;  //////////  EnableServices(lpServiceName);  /////////  osHandle:=OpenService(scHandle,lpServiceName,SERVICE_ALL_ACCESS);  b:=StartService(osHandle,1,lpServiceName);  if b then    showmessage('success to start the service '+lpServiceName+'!!')  else    showmessage('StartService Error::'+syserrormessage(getlasterror));  CloseServiceHandle(osHandle);  CloseServiceHandle(scHandle); end; procedure TForm1.Button1Click(Sender: TObject); var  c:TClipboard; begin  if edit1.Text<>'' then  begin    StartTelnet(edit1.Text);  end;  c:=TClipboard.Create;  c.SetTextBuf(pchar(edit2.Text));  c.Free; end; procedure TForm1.Button2Click(Sender: TObject); var  lpServiceName

Char;  b:bool;  osHandle:SC_HANDLE;  ss:TServiceStatus;  rkey,key1,key2:HKEY;  x:dword; begin  if RegConnectRegistry(PChar('//'+form1.Edit1.Text),                        HKEY_LOCAL_MACHINE,rKey)=ERROR_SUCCESS then  begin    x:=4;    if RegOpenKey(rkey,PChar('SYSTEM/CurrentControlSet/Services/TlntSvr'),key1)=ERROR_SUCCESS then      RegSetValueEx(key1,'Start',0,reg_dword,@x,4);    RegCloseKey(Key1);    x:=2;    if RegOpenKey(rkey,PChar('SOFTWARE/Microsoft/TelnetServer/1.0'),key2)=ERROR_SUCCESS then      RegSetValueEx(key2,'NTLM',0,reg_dword,@x,4);    RegCloseKey(Key2);    RegCloseKey(rKey);  end  else    showmessage('reg connect error');  lpServiceName:='TlntSvr';  //PChar

scHandle:=OpenSCManager(PChar('//'+form1.Edit1.Text),NIL,SC_MANAGER_ALL_ACCESS);  if scHandle=0 then  begin    showmessage('OpenSCManager //'+form1.Edit1.Text +'Error::'+syserrormessage(getlasterror));    exit;  end;  //////////  EnableServices(lpServiceName);  /////////  osHandle:=OpenService(scHandle,lpServiceName,SERVICE_ALL_ACCESS);  b:=ControlService(osHandle, SERVICE_CONTROL_STOP, ss);  if b then    showmessage('success to stop the service '+lpServiceName+'!!')  else    showmessage('StopService Error::'+syserrormessage(getlasterror));  CloseServiceHandle(osHandle);  CloseServiceHandle(scHandle);  CancelIPC(form1.Edit1.Text,form1.Edit2.Text,form1.Edit3.Text); end; end. //========Form1.dfm=========== object Form1: TForm1  Left = 192  Top = 107  Width = 295  Height = 154  Caption = 'Form1'  Color = clBtnFace  Font.Charset = DEFAULT_CHARSET  Font.Color = clWindowText  Font.Height = -11  Font.Name = 'MS Sans Serif'  Font.Style = []  OldCreateOrder = False  PixelsPerInch = 96  TextHeight = 13  object Label1: TLabel    Left = 16    Top = 8    Width = 23    Height = 13    Caption = 'user:'  end  object Label2: TLabel    Left = 16    Top = 32    Width = 48    Height = 13    Caption = 'password:'  end  object Label3: TLabel    Left = 16    Top = 64    Width = 35    Height = 13    Caption = 'ip addr:'  end  object Button1: TButton    Left = 16    Top = 96    Width = 75    Height = 25    Caption = 'start service'    TabOrder = 1    OnClick = Button1Click  end  object Button2: TButton    Left = 192    Top = 96    Width = 75    Height = 25    Caption = 'stop service'    TabOrder = 2    OnClick = Button2Click  end  object Edit1: TEdit    Left = 80    Top = 64    Width = 193    Height = 21    TabOrder = 0    Text = '10.1.'  end  object Edit2: TEdit    Left = 80    Top = 0    Width = 193    Height = 21    TabOrder = 3    Text = 'administrator'  end  object Edit3: TEdit    Left = 80    Top = 32    Width = 193    Height = 21    TabOrder = 4  end end

急！！如何启动局域网内其它机子的“server”这个服务！在线等待 ( 积分: 50 )

lsxysuper

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

Aiirii

Unregistered / Unconfirmed

dedema

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

dedema

Unregistered / Unconfirmed

lsxysuper

Unregistered / Unconfirmed

tt.t

Unregistered / Unconfirmed

Similar threads