实现远程登陆 请各位高手指点(229分)

实现远程登陆 请各位高手指点


有两台计算机 A,B　相互连接
已经A计算机上Win2000的一个帐号 Administrator 和 密码 ABCD　怎样在计算机B上做一个程序来 向计算机A来发送连接
验证这个Win2000帐号和密码　

我想做一个函数　FRemotLogin(sName,sPassword:String):Boolean; 如何正确　返回为　True

怎样用程序实现

///|///
// - - //
( @ @ )
+---------------------oOOoo-(?)ooOOo---------------------+
| |
| 严重关注 |
| E-MAIL: you@xu.com.cn |
| OICQ : 4529818 |
| URL : http://www.yousoft.net/ |
| Ooooo 徐长友 2000.04.01 |
+-----------------------ooooO--( )---------------------+
( ) )|/
/|( (_/
/_)

function FRemotLogin(sComputerName,sName,sPassword:String):Boolean;
var NetSource:TNetResource;
d, d1: DWord;
sPW : PChar;
begin
try
with NetSource do
begin
dwType:=RESOURCETYPE_ANY;
lpLocalName:=nil;
lpRemoteName:=Pchar(sComputerName);
lpProvider:='';
end;
sPW := pchar(sPassword);

d:=WnetAddConnection2(netSource,sPW,Pchar(sName),
CONNECT_INTERACTIVE);
if d <> NO_ERROR then
begin
d1 := GetLastError;
result := false;
end;
result := true;
except
result := false;
end;
end;

to dlink
有这个TSocketConnection类吧
能实现你的要求

学习

[]关注

Aiirii

你这个函数是 错的 我已经测试过了

还有其他办法没有

函数本身没错，是用错了，

WnetAddConnection2是用来映射网络资源的，
sComputerName后边应加上SHAREFILE
比如，传入的参数应该是 //10.168.0.1/share
光送个名字进去当然错了

接受答案了.