中国DOS联盟
-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum
|
中国DOS联盟-- 联合DOS 推动DOS 发展DOS --联盟域名：www.cn-dos.net 论坛域名：www.cn-dos.net/forum |
| 游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟 |
|
中国DOS联盟论坛 现在时间是 2026-08-05 17:57 |
共 48,039 主题排行 / 350,124 发帖 / 今日 2 篇 / 48,251 会员排行 |
| DOS批处理 & 脚本技术（批处理室） » (已结)求VBS ，自动映射网络磁盘，并改名为 DATA |
| 可打印版本 3,498 / 28 |
| 第16楼 beyoungse | 发表于 2007-09-02 17:44 |
| 中级用户 发帖 112 积分 253 | |
Originally posted by wudixin96 at 2007-9-2 17:30: 会提示 Computer name: XXX （还要点一下确定） 我不能实现 这行批处理所要的结果（NET USE D: \\SERVER\%COMPUTERNAME% %COMPUTERNAME% /USER:%COMPUTERNAME%），能不能帮我写一个VBS |
|
| 第17楼 beyoungse | 发表于 2007-09-02 21:00 |
| 中级用户 发帖 112 积分 253 | |
|
在windows 中文站得到如下代码（加上自己套） 不能正常运行
On error resume next Set objNet = CreateObject("Wscript.Network") strCompName = objnet.ComputerName Set objNetwork = CreateObject("Wscript.Network") strNewName = "data" ' Section to map the network drive Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "d:","\\server\A"strCompName"$","A"strCompName"","A"strCompName"" ' Section which actually (re)names the Mapped Drive Set objShell = CreateObject("Shell.Application") objShell.NameSpace(strDriveLetter).Self.Name = strNewName |
|
| 第18楼 slore | 发表于 2007-09-02 21:02 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
"d:","\\server\A"strCompName"$","A"strCompName"","A"strCompName""
你看看…… 字符串相当混乱！ |
|
| 第19楼 beyoungse | 发表于 2007-09-02 21:46 |
| 中级用户 发帖 112 积分 253 | |
|
老大，帮帮我看看下面代码的第十三行
On error resume next Set objNet = CreateObject("Wscript.Network") strCompName = objnet.ComputerName strNewName = "data" strDriveLetter = "d" ' Section to map the network drive Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$","A" & strCompName, "A" & strCompName, ' Section which actually (re)names the Mapped Drive Set objShell = CreateObject("Shell.Application") objShell.NameSpace(strDriveLetter).Self.Name = strNewName |
|
| 第20楼 slore | 发表于 2007-09-02 23:41 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$","A" & strCompName, "A" & strCompName,
第3个参数好像不对吧？最后为什么还有,? 第13行……看来是最后一行。 如果你用"D"字符串看看还出错不？不的话应该对的。 |
|
| 第21楼 beyoungse | 发表于 2007-09-03 10:52 |
| 中级用户 发帖 112 积分 253 | |
|
' #test.vbs
Set objNet = CreateObject("Wscript.Network") strCompName = objnet.ComputerName strNewName = "data" strDriveLetter = "d" ' Section to map the network drive Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$","A" & strCompName, "A" & strCompName ' Section which actually (re)names the Mapped Drive Set objShell = CreateObject("Shell.Application") objShell.NameSpace(strDriveLetter).Self.Name = strNewName ' #完  |
|
| 第22楼 wudixin96 | 发表于 2007-09-03 11:00 |
| 银牌会员 发帖 931 积分 1,928 | |
|
object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])
看清楚这行，如果想要用户名和密码，而不需要UpdateProfile的话，也要把位置给让出来的。 strLocalName, strRemoteName,, strUser, strPassword 中间有两逗号 |
|
| 第23楼 slore | 发表于 2007-09-03 11:12 |
| 铂金会员 发帖 2,478 积分 5,212 | |
|
只设置strLocalName, strRemoteName就可以啦
|
|
| 第24楼 beyoungse | 发表于 2007-09-03 11:16 |
| 中级用户 发帖 112 积分 253 | |
|
再试试
|
|
| 第25楼 beyoungse | 发表于 2007-09-03 11:24 |
| 中级用户 发帖 112 积分 253 | |
|
是可以啦，谢谢 22F ，但是不能改变此盘的名称
 |
|
| 第26楼 wudixin96 | 发表于 2007-09-03 11:40 |
| 银牌会员 发帖 931 积分 1,928 | |
|
谢谢slore了，人老了，眼睛都不好使了
[ Last edited by wudixin96 on 2007-9-3 at 11:55 AM ] |
|
| 第27楼 slore | 发表于 2007-09-03 11:48 |
| 铂金会员 发帖 2,478 积分 5,212 | |
Originally posted by wudixin96 at 2007-9-3 11:40: 他前面定义了……貌似是d |
|
| 第28楼 beyoungse | 发表于 2007-09-03 12:13 |
| 中级用户 发帖 112 积分 253 | |
|
问题解决
strDriveLetter = "d:" |
|
| 第29楼 beyoungse | 发表于 2007-09-03 12:25 |
| 中级用户 发帖 112 积分 253 | |
|
#OK.VBS
On error resume next Set objNet = CreateObject("Wscript.Network") strCompName = objnet.ComputerName strNewName = "data" strDriveLetter = "d:" ' Section to map the network drive Set objNetwork = CreateObject("WScript.Network") objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$",,"A" & strCompName, "A" & strCompName ' Section which actually (re)names the Mapped Drive Set objShell = CreateObject("Shell.Application") objShell.NameSpace(strDriveLetter).Self.Name = strNewName |
|
| 上一页 1 2 |
|
[ 联系联盟系统管理团队 -
中国DOS联盟 -
标准版 ] Sponsored by ifanr Inc | © 2001–2023 |