中国DOS联盟

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

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

中国DOS联盟论坛
现在时间是 2026-08-05 18:36
中国DOS联盟论坛 » DOS批处理 & 脚本技术(批处理室) » (已结)求VBS ,自动映射网络磁盘,并改名为 DATA 查看 3,506 回复 28
楼 主 (已结)求VBS ,自动映射网络磁盘,并改名为 DATA 发表于 2007-09-02 02:15 ·  中国 广东 深圳 福田区 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
我用的是无盘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 ]
2 发表于 2007-09-02 02:16 ·  中国 广东 深圳 福田区 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
我在服务器上建立的共享文件名称和密码都是对应下面的工作站的计算机名称
3 发表于 2007-09-02 02:25 ·  中国 广东 深圳 福田区 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
还有有什么更好的办法让无盘用户实现个性化,桌面配置环境及外观、快捷方式、开始菜单……

我用的是工作组
4 发表于 2007-09-02 02:46 ·  中国 广东 深圳 福田区 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
我现在没有办法试,不知这样可不可以

我刚看到的
把批处理放在C:\WINDOWS\SYSTEM32\GROUPOLICY\MACHINE\SCRIPTS\下面,并在此编辑SCRIPTS.INI
内容如下:
[startup]
0cmdline=批处理文件名
0parameters=
5 发表于 2007-09-02 10:43 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
有没有人帮我写个脚本来的,
在这先谢谢了
6 发表于 2007-09-02 13:33 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
我刚才试 第 4 楼 是不可行的
7 发表于 2007-09-02 14:00 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
路过的老大,帮我一下
8 发表于 2007-09-02 14:25 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
能不能说一下,如何指定用户名称和密码

下面是我用别人写的脚本

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%$"
9 发表于 2007-09-02 14:26 ·  中国 香港 腾讯云
银牌会员
★★★
积分 1,928
发帖 931
注册 2007-01-06 11:46
19年会员
UID 75624
性别 男
状态 离线
将共享网络驱动器添加到计算机系统中。

object.MapNetworkDrive(strLocalName, strRemoteName, [bUpdateProfile], [strUser], [strPassword])
参数
object
WshNetwork 对象。
strLocalName
表示映射驱动器的本地名的字符串值。
strRemoteName
表示共享的 UNC 名称 (\\xxx\yyy) 的字符串值。
bUpdateProfile
可选。表示映射信息是否存储在当前的用户配置文件中的布尔值。如果提供的 bUpdateProfile 的值为 true,则该映射存储在用户的配置文件中(默认值为 false)。
strUser
可选。表示用户名的字符串值。如果使用当前用户以外的其他用户的凭据来映射网络驱动器,则必须提供该参数。
strPassword
可选。表示用户密码的字符串值。如果使用当前用户以外的其他用户的凭据来映射网络驱动器,则必须提供该参数。
10 发表于 2007-09-02 14:45 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
我运行时,提示 编译器错误……

还有如何改映射磁盘的卷标
11 发表于 2007-09-02 16:03 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
改一下 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%”
12 发表于 2007-09-02 16:03 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
运行后没有映射成功
13 发表于 2007-09-02 16:51 ·  中国 香港 腾讯云
银牌会员
★★★
积分 1,928
发帖 931
注册 2007-01-06 11:46
19年会员
UID 75624
性别 男
状态 离线
WshNetwork.MapNetworkDrive "D:", "\\server\%computername%$",,“%computername%”,“%computername%”

对了,那几个%computername%变量在vbs不适用吧?

[ Last edited by wudixin96 on 2007-9-2 at 04:53 PM ]
14 发表于 2007-09-02 17:07 ·  中国 广东 深圳 电信
中级用户
★★
积分 253
发帖 112
注册 2005-12-20 00:31
20年会员
UID 47500
状态 离线
VBS 中怎么用变量?
15 发表于 2007-09-02 17:30 ·  中国 香港 腾讯云
银牌会员
★★★
积分 1,928
发帖 931
注册 2007-01-06 11:46
19年会员
UID 75624
性别 男
状态 离线
Set objComputer = CreateObject("Shell.LocalMachine")

Wscript.Echo "Computer name: " & objComputer.MachineName
论坛跳转: