标题: 如何为工作站映射不同的文件夹？ [打印本页]
作者: xie989 时间: 2009-3-4 06:39 标题: 如何为工作站映射不同的文件夹？
如何为工作站映射不同的文件夹？
我的网络环境是：
服务器：windows 2003+锐起2.5 名称：fwq（有用户名和密码）
工作站：无盘windows xp sp3
在服务器上建有wks001,wks002,......wks030共享文件夹对应30台工作站，我想让工作站开机时自动按工作站的计算机名影射到相应的文件夹上，名称为E盘，好让用户在工作站上工作时，保存在E盘上的东西保存在服务器相应的共享文件夹里！
比如说，wks001这台机，开机时自动连到服务器fwq的wks001这个共享文夹件上，把它影射成wks001这台机的E盘！用批处理乍么做呢，我查了论坛上的，都没法实现！高手指点一下！
作者: yishanju 时间: 2009-3-4 08:46
应该就一行net use 命令能搞定
%COMPUTERNAME% 表示计算机名
作者: xie989 时间: 2009-3-4 10:16
2楼的能具体点吗
作者: yishanju 时间: 2009-3-4 15:21
我没用过无盘系统
我自己的电脑系统有问题不能访问共享，懒得改设置，没法测试
所以不写了
如果你说的wks001是指计算名的话，应该就一行代码能搞定：
net use e: \\fwq\%COMPUTERNAME% ....................
作者: xie989 时间: 2009-3-5 06:52
'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都不行
请教一下高手们
作者: yishanju 时间: 2009-3-5 07:05
。。。。。。。。
我说的是批处理
作者: zh159 时间: 2009-3-5 07:15
Set objNetwork = CreateObject("WScript.Network")
strCompName = objNetwork.ComputerName
strCompName = objNetwork.ComputerName
作者: xie989 时间: 2009-3-5 09:32
| Quote: | |
|
批处理乍样重命名影射盘？
作者: xie989 时间: 2009-3-5 09:40
| Quote: | |
|
'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
这样还是不行！！！
作者: xie989 时间: 2009-3-5 09:41
'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
这样也不行
作者: xie989 时间: 2009-3-5 09:49
strCompName = objNetwork.ComputerName
我搞错了，应是
strShareName＝objNetwork.ComputerName
才对，谢谢楼上的了，如果是批处理的话应乍样来呢？
作者: xie989 时间: 2009-3-5 10:35
晕，我要开机就运行这个VBS文件，应乍样搞呢，我放在启动文件夹里不行
作者: yishanju 时间: 2009-3-5 14:15
| Quote: | |
|
试试LABEL 命令