User Login Script in AD – VBScript
在有 windows AD 網域的情況下, 可以利用 VBScript 撰寫 login script 讓每個使用者有自己的家目錄(Home Directory)
'========================================================================== ' VBScript Source File ' ' Writer : Polin WEI ' Last Update : 2019/08/22 '========================================================================== ' 有問題時, 執行下一個指令 On Error Resume Next Dim objSysInfo, objUser, objNetwork, oShell Set objSysInfo = CreateObject("ADSystemInfo") ' Currently logged in User 取得登入者資訊 Set objUser = GetObject("LDAP://" & objSysInfo.UserName) ' or specific user: 若要指定用戶時 'Set objUser = GetObject("LDAP://CN=polin,OU=Users,DC=demo,DC=com") Set objNetwork = CreateObject("WScript.Network") Set oShell = WScript.CreateObject ("WScript.Shell") '********************************* Begin ********************************** '=========================== MAP Network Drivers ========================== ' Remove OLD Maping Drivers Call RemoveDriver("M:") Call RemoveDriver("P:") Call RemoveDriver("Z:") ' Mount Default Maping Drivers 共同網路磁碟 Call MapDriver("M:","\\fs01.demo.com\DEPARTDATA") Call MapDriver("P:","\\fs01.demo.com\PROJECTDATA") ' Map Network Driver for User Home Directory Call MapDriver("Z:","\\fs01.demo.com\UserData\" & objUser.displayName) '********************************* Sub Code ******************************* '-------------------------- Map Driver sub code --------------------------- Sub MapDriver (Drivers,FullUNC) ' Connect to public area objNetwork.MapNetworkDrive Drivers , FullUNC , True End Sub '------------------------ Remove Driver sub code -------------------------- Sub RemoveDriver (Drivers) objNetwork.RemoveNetworkDrive Drivers, True, True End Sub
你必須 登入 才能發表評論。