中国DOS联盟论坛

中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net  论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客:  注册 | 登录 | 命令行 | 会员 | 搜索 | 上传 | 帮助 »
中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 如何为工作站映射不同的文件夹？
作者:
标题: 如何为工作站映射不同的文件夹？ 上一主题 | 下一主题
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『楼 主』:  如何为工作站映射不同的文件夹？

如何为工作站映射不同的文件夹？
我的网络环境是：

服务器：windows 2003+锐起2.5  名称：fwq（有用户名和密码）
工作站：无盘windows xp sp3

在服务器上建有wks001,wks002,......wks030共享文件夹对应30台工作站，我想让工作站开机时自动按工作站的计算机名影射到相应的文件夹上，名称为E盘，好让用户在工作站上工作时，保存在E盘上的东西保存在服务器相应的共享文件夹里！

比如说，wks001这台机，开机时自动连到服务器fwq的wks001这个共享文夹件上，把它影射成wks001这台机的E盘！用批处理乍么做呢，我查了论坛上的，都没法实现！高手指点一下！

2009-3-4 06:39
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 2 楼』:  

应该就一行net use 命令能搞定
%COMPUTERNAME% 表示计算机名




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2009-3-4 08:46
查看资料  发短消息 网志   编辑帖子  回复  引用回复
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『第 3 楼』:  

2楼的能具体点吗

2009-3-4 10:16
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 4 楼』:  

我没用过无盘系统
我自己的电脑系统有问题不能访问共享，懒得改设置，没法测试
所以不写了

如果你说的wks001是指计算名的话，应该就一行代码能搞定：
net use e: \\fwq\%COMPUTERNAME% ....................




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2009-3-4 15:21
查看资料  发短消息 网志   编辑帖子  回复  引用回复
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『第 5 楼』:  

'Map Network Drive
' By UIOPUIOP 9/3/2008

On Error Resume Next
' Please modify below parameter
strCompName = "fwq"
strShareName ="dnsjsj"
strUserName = "xie989"
strPassword = "12345678"
strDriveLetter = "S:"
strNetworkDrive_LabelName = "E盘"

' map the network drive
Set objNetwork = CreateObject("WScript.Network")
'object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])
objNetwork.MapNetworkDrive strDriveLetter,"\\" & strCompName & "\" & strShareName,,strUserName,strPassword
' actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNetworkDrive_LabelName

这个可以，问题是strShareName乍能计算机名字的变量来表示呢
我用strShareName＝%COMPUTERNAME%
strShareName＝“%COMPUTERNAME%”
或直接用%COMPUTERNAME%代替strShareName都不行

请教一下高手们

2009-3-5 06:52
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 6 楼』:  

。。。。。。。。
我说的是批处理




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2009-3-5 07:05
查看资料  发短消息 网志   编辑帖子  回复  引用回复
zh159
金牌会员




积分 3687
发帖 1467
注册 2005-8-8
状态 离线
『第 7 楼』:  


Set objNetwork = CreateObject("WScript.Network")
strCompName = objNetwork.ComputerName




2009-3-5 07:15
查看资料  发短消息 网志   编辑帖子  回复  引用回复
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『第 8 楼』:  



  Quote:
Originally posted by yishanju at 2009-3-5 07:05:
。。。。。。。。
我说的是批处理

批处理乍样重命名影射盘？

2009-3-5 09:32
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『第 9 楼』:  



  Quote:
Originally posted by zh159 at 2009-3-5 07:15:
Set objNetwork = CreateObject("WScript.Network")
strCompName = objNetwork.ComputerName

'Map Network Drive
' By UIOPUIOP 9/3/2008

On Error Resume Next
' Please modify below parameter
Set objNetworke = CreateObject("WScript.Network")
strCompName = objNetworke.ComputerName
strCompName = "fwq"
strUserName = "xie989"
strPassword = "12345678"
strDriveLetter = "S:"
strNetworkDrive_LabelName = "E盘"

' map the network drive
Set objNetwork = CreateObject("WScript.Network")
'object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])
objNetwork.MapNetworkDrive strDriveLetter,"\\" & strCompName & "\" & strShareName,,strUserName,strPassword
' actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNetworkDrive_LabelName

这样还是不行！！！

2009-3-5 09:40
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『第 10 楼』:  

'Map Network Drive
' By UIOPUIOP 9/3/2008

On Error Resume Next
' Please modify below parameter
Set objNetwork = CreateObject("WScript.Network")
strCompName = objNetwork.ComputerName
strCompName = "fwq"
strUserName = "xie989"
strPassword = "12345678"
strDriveLetter = "S:"
strNetworkDrive_LabelName = "E盘"

' map the network drive
Set objNetwork = CreateObject("WScript.Network")
'object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])
objNetwork.MapNetworkDrive strDriveLetter,"\\" & strCompName & "\" & strShareName,,strUserName,strPassword
' actually (re)names the Mapped Drive
Set objShell = CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name = strNetworkDrive_LabelName
这样也不行

2009-3-5 09:41
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『第 11 楼』:  

strCompName = objNetwork.ComputerName
我搞错了，应是
strShareName＝objNetwork.ComputerName
才对，谢谢楼上的了，如果是批处理的话应乍样来呢？

2009-3-5 09:49
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
xie989
新手上路





积分 12
发帖 12
注册 2009-2-23
状态 离线
『第 12 楼』:  

晕，我要开机就运行这个VBS文件，应乍样搞呢，我放在启动文件夹里不行

2009-3-5 10:35
查看资料  发送邮件  发短消息 网志   编辑帖子  回复  引用回复
yishanju
银牌会员

[b]看你妹啊[/b]


积分 1488
发帖 1357
注册 2006-5-20
状态 离线
『第 13 楼』:  



  Quote:
Originally posted by xie989 at 2009-3-5 09:32:

批处理乍样重命名影射盘？

试试LABEL 命令




有问题请发论坛或者自行搜索,再短消息问我的统统是SB
2009-3-5 14:15
查看资料  发短消息 网志   编辑帖子  回复  引用回复

请注意：您目前尚未注册或登录，请您注册或登录以使用论坛的各项功能，例如发表和回复帖子等。


可打印版本 | 推荐给朋友 | 订阅主题 | 收藏主题



论坛跳转:  



[ 联系联盟系统管理团队 - 中国DOS联盟 ]

Sponsored by ifanr Inc | © 2001-2023