中国DOS联盟

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

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

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

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

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

2楼的能具体点吗

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

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

'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都不行

请教一下高手们

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

Set objNetwork = CreateObject("WScript.Network")

strCompName = objNetwork.ComputerName

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

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

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, , , )
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

这样还是不行！！！

'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
这样也不行

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

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

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

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

试试LABEL 命令