国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

為管理員應(yīng)該主動(dòng)的部署服務(wù)，將可用資源送至客戶端而不要讓用戶自己去找，因?yàn)檫@樣做，一需要對(duì)用戶進(jìn)行額外的培訓(xùn)，二用戶需要更多的權(quán)限，三可能導(dǎo)致安全性的問題。
在ad中發(fā)布共享資源，只是將已經(jīng)存在的共享資源發(fā)布到ad中，便于用戶搜索，這是一個(gè)邏輯的再組織，這個(gè)動(dòng)作并不會(huì)對(duì)物理資源造成影響。
所以一般對(duì)于ad中的共享文件夾的部署，可以使用用戶登陸腳本為客戶端直接作映射，這個(gè)映射可以直接映射共享文件夾，也可以映射dfsnode，這樣用戶就可以像使用本地資源一樣使用它們，而不用自己去尋找，從而提高了用戶體驗(yàn)。

代碼來自winos.cn,這段腳本很強(qiáng)大，實(shí)現(xiàn)了盤符智能化分配，解決了盤符沖突的問題。不得不感慨，腳本的力量就是強(qiáng)大阿，得好好學(xué)學(xué)了

On errorresume next
strRemotePath = "\\win2003pdc\vbsedit"
strNewName ="網(wǎng)絡(luò)硬盤"

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

可以帶上用戶名和密碼參數(shù)的……,如果要求帳戶密碼的話
MapNetworkDrive(strLocalName,strRemoteName, [bUpdateProfile], [strUser], [strPassword])
---------------------------------------------------------
---------------------------------------------------------
修改這一句objNetwork.MapNetworkDrive strDriveLetter,strRemotePath,,strUser,strPassword

然后在最開始賦值給

strUser 比如strUser = User1
strPassword 比如 strPassword = pass@word1

----------------------------

----------------------------

打印機(jī)腳本

SetWshNetwork = CreateObject("WScript.Network")
WshNetwork.AddWindowsPrinterConnection"\??.168.0.1\print1"
WshNetwork.AddWindowsPrinterConnection"\??.168.0.1\print2"
WshNetwork.SetDefaultPrinter"\??.168.0.6\print1"