如何访问局域网服务器？(20分)

L

li_cj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #1

想问一个简单的问题：
现在通过网上邻居访问它（WIN2000服务器），需用户名和口令，
我想用程序实现此功能。再访问时，就不用再验证了。

如何访问局域网服务器？

 

L

li_cj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #2

WinExec(Pchar('net use //computername password /user:username',sw_Hide);
我希望如上面那样，但我的返回值总是33.

 

L

li_cj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #3

还有，我在WIN200机器里可以，但98里这个命令有问题！

 

Y

yaliguo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #4

当然了， net.exe只有NT才有。其实你只需客户机登录到Win2000的域中就可以了，不一定要在程序中做。

 

B

bianlx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-24

• #5

利用WnetAddConnection2函数实现

 

L

li_cj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #6

to bianlx
用WnetaddConnection2,是映射用的，我不想让客户端映射出一驱动器。
怎么办，我想早点把这个问题结束。
分不够再加！

 

L

li_cj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-05-27

• #7

悟出来了!结束它！
procedure xxx();
var
NetSource : TNetResource;
Myresult:longword;
begin
with NetSource do
begin
dwType := RESOURCETYPE_DISK;
lpLocalName := '';
lpRemoteName := '//ntserver';
lpProvider := ''; // 必须赋值如为空则使用lpRemoteName的值。
end;
myresult:=WnetAddConnection2(NetSource,'licjlicj','licj',CONNECT_UPDATE_PROFILE);//用户名为Guest，口令为Password
if myresult=NO_ERROR then
showmessage('OK!')
else
showmessage('Error!');
end;

 

L

li_cj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-06-07

• #8

多人接受答案了。