iT邦幫忙

0

(VBS) 問題請教,於AD的使用中

作業目標:
使用AD的情況下,想要讓使用者登入時,自動鏈結網路磁碟機與自動更新通訊錄

做法:
登入時會呼叫設定檔NETWORK.VBS,切除網路磁碟>>鏈結網路磁碟>>執行.BAT檔更新通訊錄。
除特定人員單獨鏈結特別的磁碟機,多數人只須連基本的4個。

(正確)下方設定中在WIN7,都可以正確執行,開機以後自動切斷網路磁碟機、自動連結磁碟機、自動更新通訊錄

(問題)在WIN10,此VBS就不會執行,所以通訊錄也不會更新。

小弟編程底子淺,請各位幫忙看看,謝謝

在AD的使用者帳戶>>設定檔>>登入指令檔,放入以下路徑 C:\Windows\SYSVOL\domain\scripts\NETWORK.vbs
https://ithelp.ithome.com.tw/upload/images/20190712/20118460GI3PpYuvZX.png

###NETWORK.VBS設定如下###

Dim WSHNetwork
Dim objSh
Dim User
Dim CRLF
Dim ComputerName

Set WSHNetwork = WScript.CreateObject("WScript.Network")
Set objSh = WScript.CreateObject("WScript.Shell")

ComputerName=Ucase(wshnetwork.ComputerName)
do while ComputerName=""
WScript.Sleep 500
ComputerName=Ucase(wshnetwork.ComputerName)
loop

User=Ucase(wshnetwork.username)
do while User=""
WScript.Sleep 500
User=Ucase(wshnetwork.username)
loop

'WSHNetwork.RemoveNetworkDrive "I:"

objSh.Run "NET USE * /DELETE /YES " , 1
WScript.Sleep 2000

SELECT CASE UCASE(ComputerName)
CASE "PF-GUIDEVELOP" 'AAA
WSHNetwork.MapNetworkDrive "X:", "\SERVER2\Source"
WSHNetwork.MapNetworkDrive "P:", "\PF-GUIDEVELOP\FAX"
WSHNetwork.MapNetworkDrive "Z:", "\vmware-host\Shared Folders"

    CASE "PF2019051501" 'BBB
	WSHNetwork.MapNetworkDrive "P:", "\\server1\efax"
	WSHNetwork.MapNetworkDrive "V:", "\\server1\gilink"
	WSHNetwork.MapNetworkDrive "S:", "\\server2\scan"
	WSHNetwork.MapNetworkDrive "Y:", "\\server2\共用目錄"    		
	WSHNetwork.MapNetworkDrive "X:", "\\SERVER2\Source" 

    CASE ELSE
	WSHNetwork.MapNetworkDrive "P:", "\\server1\efax"
	WSHNetwork.MapNetworkDrive "V:", "\\server1\gilink"
	WSHNetwork.MapNetworkDrive "S:", "\\server2\scan"
	WSHNetwork.MapNetworkDrive "Y:", "\\server2\共用目錄"    
	

END SELECT

WScript.Sleep 2000

objSh.Run "自動(60)更新通訊錄.bat"

###通訊錄.BAT寫法如下###

MD C:\OUTLOOK

XCOPY \SERVER2\共用目錄\共用文件區\資訊\OutLook\XXX.pst C:\OUTLOOK /C /Y

PAUSE

看更多先前的討論...收起先前的討論...
既然都有AD了,怎不讓用戶使用LDAP來查詢最新最正確的通訊錄就好了?只要設定一次,之後就免再BAT啊VBS了
因為目前ad的使用者資料有300多筆,可是名稱都是直接打"王xx",在outlook的顯示時,沒有辦法依照部門與級職下去排序,所以才做一個pst的通訊錄。
讓顯示名稱變成"資訊-王xx、財務-陳xx"
froce iT邦大師 4 級 ‧ 2019-07-12 14:13:25 檢舉
ㄜ...
AD可以設定OU好嗎?也有部門欄位好嗎?
建議先去整理好AD的資訊,AD只拿來管帳號太浪費了。
我們公司沒有exchange,使用LDAP的方式同步通訊錄,新同仁的資料沒有辦法立刻派送到使用者電腦上,都要等一天才會同步。所以我主管才決定使用PST的作法
現在最大的問題是,VBS的異常,只能使用於WIN7,WIN10無反應。
請各位大大幫忙 Orz
froce iT邦大師 4 級 ‧ 2019-07-12 15:22:55 檢舉
https://blog.51cto.com/318787/2321209

另外建議重寫成Powershell。

1 個回答

0
dscwferp
iT邦好手 1 級 ‧ 2019-07-14 15:30:23
最佳解答

將 ad上的顯示名稱 "王xx" 改成 "資訊-王xx"
就可以讓用戶使用LDAP來查詢最新最正確的通訊錄
不需要 exchange 喔!
試試看結果啦!

參考:https://ithelp.ithome.com.tw/questions/10155361

我要發表回答

立即登入回答