ib选课:方便用户共享资源,在域内通过脚本给域内计算机映射网络驱动器-微软技术-Cnfan.net中国网络
来源:百度文库 编辑:中财网 时间:2024/10/05 10:49:40
为管理员应该主动的部署服务,将可用资源送至客户端而不要让用户自己去找,因为这样做,一需要对用户进行额外的培训,二用户需要更多的权限,三可能导致安全性的问题。
在ad中发布共享资源,只是将已经存在的共享资源发布到ad中,便于用户搜索,这是一个逻辑的再组织,这个动作并不会对物理资源造成影响。
所以一般对于ad中的共享文件夹的部署,可以使用用户登陆脚本为客户端直接作映射,这个映射可以直接映射共享文件夹,也可以映射dfsnode,这样用户就可以像使用本地资源一样使用它们,而不用自己去寻找,从而提高了用户体验。
代码来自winos.cn,这段脚本很强大,实现了盘符智能化分配,解决了盘符冲突的问题。不得不感慨,脚本的力量就是强大阿,得好好学学了
On errorresume next
strRemotePath = "\\win2003pdc\vbsedit"
strNewName ="网络硬盘"
Set objNetwork = CreateObject("Wscript.Network")
SetcolDrives = objNetwork.EnumNetworkDrives
For i = 0 tocolDrives.Count-1 Step 2
strDriveLetter =Chr(Asc(Left(colDrives.Item(i),1))-1) & ":"
Next
IfstrDriveLetter= "" Then strDriveLetter="Z:"
' Section to map thenetwork drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrivestrDriveLetter, strRemotePath
' Section which actually(re)names the Mapped Drive
Set objShell =CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name= strNewName
可以带上用户名和密码参数的……,如果要求帐户密码的话
MapNetworkDrive(strLocalName,strRemoteName, [bUpdateProfile], [strUser], [strPassword])
---------------------------------------------------------
---------------------------------------------------------
修改这一句objNetwork.MapNetworkDrive strDriveLetter,strRemotePath,,strUser,strPassword
然后在最开始赋值给
strUser 比如strUser = User1
strPassword 比如 strPassword = pass@word1
----------------------------
----------------------------
打印机脚本
SetWshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection"\??.168.0.1\print1"
WshNetwork.AddWindowsPrinterConnection"\??.168.0.1\print2"
WshNetwork.SetDefaultPrinter"\??.168.0.6\print1"
在ad中发布共享资源,只是将已经存在的共享资源发布到ad中,便于用户搜索,这是一个逻辑的再组织,这个动作并不会对物理资源造成影响。
所以一般对于ad中的共享文件夹的部署,可以使用用户登陆脚本为客户端直接作映射,这个映射可以直接映射共享文件夹,也可以映射dfsnode,这样用户就可以像使用本地资源一样使用它们,而不用自己去寻找,从而提高了用户体验。
代码来自winos.cn,这段脚本很强大,实现了盘符智能化分配,解决了盘符冲突的问题。不得不感慨,脚本的力量就是强大阿,得好好学学了
On errorresume next
strRemotePath = "\\win2003pdc\vbsedit"
strNewName ="网络硬盘"
Set objNetwork = CreateObject("Wscript.Network")
SetcolDrives = objNetwork.EnumNetworkDrives
For i = 0 tocolDrives.Count-1 Step 2
strDriveLetter =Chr(Asc(Left(colDrives.Item(i),1))-1) & ":"
Next
IfstrDriveLetter= "" Then strDriveLetter="Z:"
' Section to map thenetwork drive
Set objNetwork = CreateObject("WScript.Network")
objNetwork.MapNetworkDrivestrDriveLetter, strRemotePath
' Section which actually(re)names the Mapped Drive
Set objShell =CreateObject("Shell.Application")
objShell.NameSpace(strDriveLetter).Self.Name= strNewName
可以带上用户名和密码参数的……,如果要求帐户密码的话
MapNetworkDrive(strLocalName,strRemoteName, [bUpdateProfile], [strUser], [strPassword])
---------------------------------------------------------
---------------------------------------------------------
修改这一句objNetwork.MapNetworkDrive strDriveLetter,strRemotePath,,strUser,strPassword
然后在最开始赋值给
strUser 比如strUser = User1
strPassword 比如 strPassword = pass@word1
----------------------------
----------------------------
打印机脚本
SetWshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection"\??.168.0.1\print1"
WshNetwork.AddWindowsPrinterConnection"\??.168.0.1\print2"
WshNetwork.SetDefaultPrinter"\??.168.0.6\print1"
怎样防止域外计算机访问域内的共享资源
为什么域内的用户访问服务器文件夹还要密码?
跪求魔域内测账号,哪位老兄有的给个小弟~
魔域内侧号
在生活区域内,有多少种广告形式及类型
如何在同一域内访问其他人的未共享文件?
在一个网域内怎样能知道对方的IP ?????
组策略问题:开机时未登录域的用户,在访问域内部资源时,系统不弹出登录提示是哪里的设置问题
如何解决域内用户名出错?
域内软件使用的问题
域内的电脑无法访问域!
魔域内挂。谁晓得???
在域内计算机 使用一段时间后 自动和域服务器脱离
在一个域内有两个域控制器时,他们的作用是什么?
在一个域内有两个以上的域控制器时,它们的作用是什么?
并且初等函数在其定义域内应该处处可导?
二阶导数存在和在临域内二阶可导有什么区别吗?
域内帐户被锁,如何查看是在那台电脑上输错的。
求魔域内测激活号
域内用户名出错或被停用问题!
域内用户名出错或被停用问题!
同域内DNS与web连接方法
同域内DNS与WEB连接方法
同一局域内应用软件共享问题??