AD域&自动映射网络文件,打印共享,并改名---vbs脚本
提醒------
脚本放在用户策略的&开机启动脚本中
,计算机策略会有点问题&&
AD域自动映射网络文件,打印共享,并改名重命名网络磁盘，---vbs脚本
Set objNetwork =
WScript.CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
objNetwork.RemoveNetworkDrive& colDrives.Item(i),
true, true
Set objNetwork = Nothing
set netdrive = CreateObject("wscript.network")
netdrive.MapNetworkDrive "x:","\\ADDC\scool$\manager"
netdrive.MapNetworkDrive "y:","\\ADDC\scool$\project"
netdrive.MapNetworkDrive "z:","\\ADDC\scool$\public"
set netdrive=nothing
set netrename = CreateObject("Shell.Application")
netrename.NameSpace("x:").Self.Name = "Manager"
netrename.NameSpace("y:").Self.Name = "Project"
netrename.NameSpace("z:").Self.Name = "Public"
set netrename=nothing
netprinter
Set netprinter = CreateObject("WScript.Network")
netprinter.AddWindowsPrinterConnection "\\pdc\receptionist"
netprinter.AddWindowsPrinterConnection "\\pdc\ajpaul"
netprinter.AddWindowsPrinterConnection "\\pdc\accounting"
netprinter.AddWindowsPrinterConnection "\\pdc\upstairs"
netprinter.AddWindowsPrinterConnection "\\pdc\logistics"
netprinter.AddwindowsPrinterConnection "\\pdc\canonps"
set netprinter=nothing
如果 你服务器上的共享文件夹中, 有用户名的文件夹, 要给他们做映射,可以这样设置:
mynet,myuser
mynet=createobject("wscript.network")
myuser=mynet.username&
mynet.mapnetworkdrive
"z:","\\服务器名"&myuser&
set mynet=nothing
set myuser=nothing
通过变量来取得username,然后再映射.
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。他的最新文章
他的热门文章
您举报文章：
举报原因：
原文地址：
原因补充：
(最多只允许输入30个字)