匿名用户
1级
2015-06-27 回答
将文件服务器的共享模式,改成帐户权限登陆访问,不要开启everyyone权限,和guest来宾帐户访问。
这样有帐户权限的,即可访问,明白吗?
追问:
现在是ereryone ,需要怎么设置呢
追答:
删除everyone权限。
在文件服务器上,创建这5台计算机的访问帐户和密码。同时将帐户添加到设置共享文件夹的安装选项卡中。
同时将访问vbs脚本文件,写到登陆配置文件中。
vbs脚本范例如下:
Set objNet = CreateObject("Wscript.Network")
Set objNetdrv = objnet.EnumNetworkDrives
'第一步删除所有映射网络驱动器
For i = 0 to objNetdrv.Count - 1 Step 2
objnet.RemoveNetworkDrive objNetdrv.Item(i),True,True
Next
'等待1秒
WScript.Sleep 1000
Private Function NetworkDrivesName(NetworkPath, DrivesName, NewNetworkName)
Set objNetwork = CreateObject("Wscript.Network")
Set objShell = CreateObject("Shell.Application")
Set colDrives = objNetwork.EnumNetworkDrives
'第二步映射网络驱动器
objNetwork.MapNetworkDrive DrivesName, NetworkPath
'重新命名
objShell.NameSpace(DrivesName).Self.Name = NewNetworkName
End Function
NetworkDrivesName "\\192.168.1.243\H$","S:","资料盘"
on error resume next '遇到错误继续执行脚本
NetworkDrivesName "\\mail\share\T","P:","公共盘"
on error resume next '遇到错误继续执行脚本