标题: (已结)求VBS ，自动映射网络磁盘，并改名为 DATA [打印本页]
作者: beyoungse 时间: 2007-9-2 02:15 标题: (已结)求VBS ，自动映射网络磁盘，并改名为 DATA
我用的是无盘winxp sp2 我想把用户配置文件放到网络文件夹中（开机把网络文件夹映射成本地的D：）我用批处理
net use d: \\server\%computername%$ %computername% /user:%computername%
可是批处理是用户登录后才运行的，就会出现出错。
请各位帮我写个脚本文件，用做启动脚本
我描述不清楚，我就案例子说一下
数据服务器计算机名 server
共享名 A001$、A002$、A003$ ……A040$
客户机计算机名是 001、002、003……040
访问用户名称 A001、A002、A003……A040
共享密码 A001、A002、A003……A040
最后再把映射的盘名称改一下为：DATA
谢谢
[ Last edited by beyoungse on 2007-9-3 at 12:14 PM ]
作者: beyoungse 时间: 2007-9-2 02:16
我在服务器上建立的共享文件名称和密码都是对应下面的工作站的计算机名称
作者: beyoungse 时间: 2007-9-2 02:25
还有有什么更好的办法让无盘用户实现个性化，桌面配置环境及外观、快捷方式、开始菜单……
我用的是工作组
作者: beyoungse 时间: 2007-9-2 02:46
我现在没有办法试，不知这样可不可以
我刚看到的
把批处理放在C:\WINDOWS\SYSTEM32\GROUPOLICY\MACHINE\SCRIPTS\下面，并在此编辑SCRIPTS.INI
内容如下：
[startup]
0cmdline=批处理文件名
0parameters=
作者: beyoungse 时间: 2007-9-2 10:43
有没有人帮我写个脚本来的，
在这先谢谢了
作者: beyoungse 时间: 2007-9-2 13:33
我刚才试 第 4 楼 是不可行的
作者: beyoungse 时间: 2007-9-2 14:00
路过的老大，帮我一下
作者: beyoungse 时间: 2007-9-2 14:25
能不能说一下，如何指定用户名称和密码
下面是我用别人写的脚本
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
lng_timeout=8
Wscript.Sleep lng_timeout*1000
WshNetwork.MapNetworkDrive "D:", "\\server\%computername%$"
作者: wudixin96 时间: 2007-9-2 14:26
将共享网络驱动器添加到计算机系统中。
object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])
参数
object
WshNetwork 对象。
strLocalName
表示映射驱动器的本地名的字符串值。
strRemoteName
表示共享的 UNC 名称 (\\xxx\yyy) 的字符串值。
bUpdateProfile
可选。表示映射信息是否存储在当前的用户配置文件中的布尔值。如果提供的 bUpdateProfile 的值为 true，则该映射存储在用户的配置文件中（默认值为 false）。
strUser
可选。表示用户名的字符串值。如果使用当前用户以外的其他用户的凭据来映射网络驱动器，则必须提供该参数。
strPassword
可选。表示用户密码的字符串值。如果使用当前用户以外的其他用户的凭据来映射网络驱动器，则必须提供该参数。
作者: beyoungse 时间: 2007-9-2 14:45
我运行时，提示 编译器错误……
还有如何改映射磁盘的卷标
作者: beyoungse 时间: 2007-9-2 16:03
改一下 8楼的VBS 还是不行的
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
lng_timeout=8
Wscript.Sleep lng_timeout*1000
WshNetwork.MapNetworkDrive "D:", "\\server\%computername%$"，“%computername%”，“%computername%”
作者: beyoungse 时间: 2007-9-2 16:03
运行后没有映射成功
作者: wudixin96 时间: 2007-9-2 16:51
WshNetwork.MapNetworkDrive "D:", "\\server\%computername%$",,“%computername%”,“%computername%”
对了，那几个%computername%变量在vbs不适用吧？
[ Last edited by wudixin96 on 2007-9-2 at 04:53 PM ]
作者: beyoungse 时间: 2007-9-2 17:07
VBS 中怎么用变量？
作者: wudixin96 时间: 2007-9-2 17:30
Set objComputer = CreateObject("Shell.LocalMachine")
Wscript.Echo "Computer name: " & objComputer.MachineName
作者: beyoungse 时间: 2007-9-2 17:44
| Quote: | |
|
会提示 Computer name: XXX （还要点一下确定）
我不能实现 这行批处理所要的结果（NET USE D: \\SERVER\%COMPUTERNAME% %COMPUTERNAME% /USER:%COMPUTERNAME%），能不能帮我写一个VBS
作者: beyoungse 时间: 2007-9-2 21:00
在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
作者: slore 时间: 2007-9-2 21:02
"d:","\\server\A"strCompName"$","A"strCompName"","A"strCompName""
你看看……
字符串相当混乱！
作者: beyoungse 时间: 2007-9-2 21:46
老大，帮帮我看看下面代码的第十三行
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
作者: slore 时间: 2007-9-2 23:41
objNetwork.MapNetworkDrive "d:","\\server\A" & strCompName & "$","A" & strCompName, "A" & strCompName,
第3个参数好像不对吧？最后为什么还有,?
第13行……看来是最后一行。
如果你用"D"字符串看看还出错不？不的话应该对的。
作者: beyoungse 时间: 2007-9-3 10:52
' #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
' #完
作者: wudixin96 时间: 2007-9-3 11:00
object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])
看清楚这行，如果想要用户名和密码，而不需要UpdateProfile的话，也要把位置给让出来的。
strLocalName, strRemoteName,, strUser, strPassword
中间有两逗号
作者: slore 时间: 2007-9-3 11:12
只设置strLocalName, strRemoteName就可以啦
作者: beyoungse 时间: 2007-9-3 11:16
再试试
作者: beyoungse 时间: 2007-9-3 11:24
是可以啦，谢谢 22F ，但是不能改变此盘的名称
作者: wudixin96 时间: 2007-9-3 11:40
谢谢slore了，人老了，眼睛都不好使了
[ Last edited by wudixin96 on 2007-9-3 at 11:55 AM ]
作者: slore 时间: 2007-9-3 11:48
| Quote: | |
|
他前面定义了……貌似是d
作者: beyoungse 时间: 2007-9-3 12:13
问题解决
strDriveLetter = "d:"
作者: beyoungse 时间: 2007-9-3 12:25
#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