H hjmaasc Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-09 #1 偶公司有一个老机器,上面运行一个老的软件系统,需要做定时备份,偶想在备份服务器上运行一个定时程序到客户机里拷贝文件,但不知道如何登录这个客户机,这个客户机装的是NT客户端软件,挺牛的,偶不想在客户机上安装FTP服务器,这样太麻烦,内存也不够了。<br>请问各位是怎么解决的啊?<br><br>谢谢!!
偶公司有一个老机器,上面运行一个老的软件系统,需要做定时备份,偶想在备份服务器上运行一个定时程序到客户机里拷贝文件,但不知道如何登录这个客户机,这个客户机装的是NT客户端软件,挺牛的,偶不想在客户机上安装FTP服务器,这样太麻烦,内存也不够了。<br>请问各位是怎么解决的啊?<br><br>谢谢!!
H hjmaasc Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-10 #4 对不起,由于不希望在用户在机器上还进行一次登录机器的操作来进行文件拷贝,所以希望可以编程来实现这个功能。
H Highpeak Unregistered / Unconfirmed GUEST, unregistred user! 2004-05-14 #5 {=================================================================<br>功 能 : 指定用户名和密码连接到指定主机<br>参 数 : 用户名称,密码,主机名称<br>返回值: 连接成功: True;连接不成功: False<br>作者: Highpeak<br>版 本 : 1.0 2003/7/22/ 15:42<br>=================================================================}<br>function ConnectToHost(const user:string;const password:string;const Host:string):boolean;<br>var<br> netresource:Tnetresource;<br> re:dword;<br>begin<br> netresource.dwScope:=RESOURCE_GLOBALNET;<br> netresource.dwUsage:=RESOURCEUSAGE_CONNECTABLE;<br> netresource.dwType:=RESOURCETYPE_DISK;<br> netresource.dwDisplayType:=RESOURCEDISPLAYTYPE_SERVER;<br> netresource.lpLocalName:='';<br> netresource.lpRemoteName:=pchar('//'+Host); //远程主机名称。<br> netresource.lpProvider:='';<br> re:=WNetAddConnection3(<br> 0,<br> netresource,<br> pchar(password),//密码<br> pchar(user), //用户名称<br> CONNECT_UPDATE_PROFILE<br> <br> result:= re = NO_ERROR;<br>end;
{=================================================================<br>功 能 : 指定用户名和密码连接到指定主机<br>参 数 : 用户名称,密码,主机名称<br>返回值: 连接成功: True;连接不成功: False<br>作者: Highpeak<br>版 本 : 1.0 2003/7/22/ 15:42<br>=================================================================}<br>function ConnectToHost(const user:string;const password:string;const Host:string):boolean;<br>var<br> netresource:Tnetresource;<br> re:dword;<br>begin<br> netresource.dwScope:=RESOURCE_GLOBALNET;<br> netresource.dwUsage:=RESOURCEUSAGE_CONNECTABLE;<br> netresource.dwType:=RESOURCETYPE_DISK;<br> netresource.dwDisplayType:=RESOURCEDISPLAYTYPE_SERVER;<br> netresource.lpLocalName:='';<br> netresource.lpRemoteName:=pchar('//'+Host); //远程主机名称。<br> netresource.lpProvider:='';<br> re:=WNetAddConnection3(<br> 0,<br> netresource,<br> pchar(password),//密码<br> pchar(user), //用户名称<br> CONNECT_UPDATE_PROFILE<br> <br> result:= re = NO_ERROR;<br>end;