怎么编程实现像net use //192.168.0.1/ipc$ "PASSWORD" /user:"administrator"功能(100分)

怎么编程实现程序连接IPC$，检验输入的密码和用户名登录服务器的IPC$。
高手们快来帮帮忙呀，先谢了！

有空件，邮箱地址？

用wnetaddConnect2函数

映射网络驱动器



用此方法让你可以映射网络驱动器和断开映射网络驱动器，用本机来试通不过，如果你在网络上也通不过，请告知建立映射网络驱动器

procedure TForm1.Button1Click(Sender: Tobject);


var NetR :NETRESOURCE;ErrInfo : Longint;


begin


NetR.dwScope := RESOURCE_GLOBALNET;


NetR.dwType := RESOURCETYPE_DISK;


NetR.dwDisplayType := RESOURCEDISPLAYTYPE_SHARE;


NetR.dwUsage := RESOURCEUSAGE_CONNECTABLE;


NetR.lpLocalName := 'j:';


NetR.lpRemoteName := '//Lifang/c';


ErrInfo := WNetAddConnection2(NetR

''

''

CONNECT_UPDATE_PROFILE);


If ErrInfo = NO_ERROR Then


messagebox(0

'Net connection successful!'

''

0)


Else


messagebox(0

'ERROR: '

''

0);


end;


断开映射网络驱动器

procedure TForm1.Button2Click(Sender: Tobject);


var ErrInfo : Longint;


strLocalName : pchar;


begin


strLocalName:='j:';


ErrInfo := WNetCancelConnection2(strLocalName

CONNECT_UPDATE_PROFILE

False);


If ErrInfo = NO_ERROR Then


messagebox(0

'Net disconnection successful!'

''

0)


Else


messagebox(0

'ERROR'

''

0);


end;

我的一段代码
var
netRes: TNetResource;
begin
sServer := '//192.168.0.124' + '/C$';
netRes.dwDisplayType := RESOURCEDISPLAYTYPE_SERVER;
netRes.dwScope := RESOURCE_CONNECTED;
netRes.dwType := RESOURCETYPE_ANY;
netRes.lpRemoteName := pchar(sServer);
netRes.dwUsage := RESOURCEUSAGE_CONNECTABLE;
netRes.lpLocalName := 'z:';
netRes.lpProvider := nil;
iError := WNetAddConnection2(netRes,'',pchar(edtuser.Text),CONNECT_UPDATE_PROFILE);
end;

在软件中组合出所需要的命令字符串，然后直接调用SHELL运行就可以了。

shellexecute

您可以参考下面的方法试试：
登录计算机的方法
WinExec(Pchar('net use //computername/shareneme password /user:username',sw_Hide);
注销计算机的方法
WinExec(Pchar('net use //computername /delete',sw_Hide);
记得要在Uses里加上ShellAPI哦。

多人接受答案了。