VBScript：登录脚本
生活随笔
收集整理的這篇文章主要介紹了
VBScript：登录脚本
小編覺得挺不錯的,現在分享給大家,幫大家做個參考.
今日與一些朋友調侃起各自的部門名稱，有的IT部已經被用戶公認為“挨踢”部，甚至有的IT部的分機號碼都已被設置為119,??不知有多少ITPro被淪落為“救火員”，成就了傳說中的“挨踢”， 業務與IT部門之間的哪些微秒之外到底在哪里？ 今天要與大家分享的是AD用戶在登入時執行的腳本，設置的位置位于AD用戶屬性的Logon Script處。因為該功能涉及到部分注冊表的寫入，因此根據條件判斷通過Runasspc工具來分別運行兩個輔助腳本，這兩個腳本，明天與大家分享。 有關Runasspc的用法，請參考官方網站（德國工藝，五星保證）。 該腳本指在為多家分支機構的用戶提供通用的基本設置功能，包括自動增加和設置默認打印機，Citrix ICA快捷鍵、基本的截屏、USB和VNC等等的安全控制。 腳本存儲位置：\\Domain\Netlogon '************************************************* ? '?Script?:?Users?Logon?Script? ? '?Last?Modified?:?2010-07-27? ? '?Version?:?2.0? ? '************************************************** ? On?Error?Resume?Next???? ? ? '?CN?Branch?Printer???? ? Const?nBranch??=?10? ? Const?nPRN????=?5? ? Const?nDept????=?5? ? ? Const?HZ????=?0? ? Const?SH????=?1? ? Const?NJ????=?2? ? Const?FZ????=?3? ? Const?XM????=?4? ? Const?JN????=?5???? ? Const?SZ????=?6? ? Const?CQ????=?7???? ? ? ? Const?CR????=?0? ? Const?HR????=?1? ? Const?IT????=?2? ? Const?AC????=?3? ? Const?OM????=?4? ? ? ? ReDim?arrBranch(nBranch?-?1)? ? ??arrBranch(0)????=?"HZ"? ? ??arrBranch(1)????=?"SH"? ? ??arrBranch(2)????=?"NJ"? ? ??arrBranch(3)????=?"FZ"? ? ??arrBranch(4)????=?"XM"? ? ??arrBranch(5)????=?"JN"? ? ??arrBranch(6)????=?"SZ"? ? ??arrBranch(7)????=?"CQ"? ? ? ? ReDim?arrBWPRN(nBranch?-?1?,?nDept?-?1)? ? ReDim?arrCOPRN(nBranch?-?1?,?nDept?-?1)? ? ReDim?arrDePRN(nBranch?-?1?,?nDept?-?1)? ? ? arrBWPRN(HZ,0)??????=?"\\hz2k3dc01\BWPrn1"? ? arrBWPRN(HZ,1)??????=?"\\hz2k3dc01\BWPrn2"? ? arrCOPRN(HZ,0)??????=?""? ? arrDePRN(HZ,CR)????=?1? ? arrDePRN(HZ,HR)????=?1? ? arrDePRN(HZ,IT)????=?1? ? arrDePRN(HZ,AC)????=?""? ? arrDePRN(HZ,OM)????=?""? ? ? arrBWPRN(SH,0)??????=?"\\SH2k3dc01\BWPrn1"? ? arrBWPRN(SH,1)??????=?"\\SH2k3dc01\BWPrn2"? ? arrCOPRN(SH,0)??????=?"\\SHPUB235\BWPrn3"? ? arrDePRN(SH,CR)????=?""? ? arrDePRN(SH,HR)????=?""? ? arrDePRN(SH,IT)????=?""? ? arrDePRN(SH,AC)????=?""? ? arrDePRN(SH,OM)????=?""? ? ? arrBWPRN(NJ,0)??????=?"\\NJ2k3dc01\BWPrn1"? ? arrBWPRN(NJ,1)??????=?"\\NJ2k3dc01\BWPrn2"? ? arrCOPRN(NJ,0)??????=?""? ? arrDePRN(NJ,CR)????=?""? ? arrDePRN(NJ,HR)????=?""? ? arrDePRN(NJ,IT)????=?""? ? arrDePRN(NJ,AC)????=?""? ? arrDePRN(NJ,OM)????=?""? ? ? arrBWPRN(FZ,0)??????=?"\\FZ2k3dc01\BWPrn1"? ? arrBWPRN(FZ,1)??????=?"\\FZ2k3dc01\BWPrn2"? ? arrBWPRN(FZ,2)??????=?"\\FZPUB235\BWPrn3"? ? arrCOPRN(FZ,0)??????=?"\\FZPUB235\COPrn1"? ? arrDePRN(FZ,CR)????=?""? ? arrDePRN(FZ,HR)????=?""? ? arrDePRN(FZ,IT)????=?""? ? arrDePRN(FZ,AC)????=?""? ? arrDePRN(FZ,OM)????=?""? ? ? arrBWPRN(XM,0)??????=?"\\XM2k3dc01\BWPrn1"? ? arrBWPRN(XM,1)??????=?"\\XM2k3dc01\BWPrn2"? ? arrBWPRN(XM,2)??????=?"\\XMPUB235\BWPrn3"? ? arrCOPRN(XM,0)??????=?""? ? arrDePRN(XM,CR)????=?""? ? arrDePRN(XM,HR)????=?""? ? arrDePRN(XM,IT)????=?""? ? arrDePRN(XM,AC)????=?""? ? arrDePRN(XM,OM)????=?""? ? ? arrBWPRN(JN,0)??????=?"\\JN2k3dc01\BWPrn1"? ? arrBWPRN(JN,1)??????=?"\\JN2k3dc01\BWPrn2"? ? arrCOPRN(JN,0)??????=?"\\JNPUB235\BWPrn3"? ? arrDePRN(JN,CR)????=?""? ? arrDePRN(JN,HR)????=?""? ? arrDePRN(JN,IT)????=?""? ? arrDePRN(JN,AC)????=?""? ? arrDePRN(JN,OM)????=?""? ? ? arrBWPRN(SZ,0)??????=?"\\SZ2k3dc01\BWPrn1"? ? arrBWPRN(SZ,1)??????=?"\\SZ2k3dc01\BWPrn2"? ? arrBWPRN(SZ,2)??????=?"\\SZPUB235\BWPrn1"? ? arrCOPRN(SZ,0)??????=?"\\SZPUB235\coPrn1"? ? arrDePRN(SZ,CR)????=?1? ? arrDePRN(SZ,HR)????=?""? ? arrDePRN(SZ,IT)????=?""? ? arrDePRN(SZ,AC)????=?1? ? arrDePRN(SZ,OM)????=?1? ? ? arrBWPRN(CQ,0)??????=?"\\CQ2k3dc01\BWPrn1"? ? arrBWPRN(CQ,1)??????=?"\\CQ2k3dc01\BWPrn2"? ? arrCOPRN(CQ,0)??????=?"\\CQPUB235\BWPrn3"? ? arrDePRN(CQ,CR)????=?""? ? arrDePRN(CQ,HR)????=?""? ? arrDePRN(CQ,IT)????=?""? ? arrDePRN(CQ,AC)????=?""? ? arrDePRN(CQ,OM)????=?""? ? ? ? '---------------------------------------------------------------- ? ? Set?WShell?=?CreateObject("wscript.shell")???? ? Set?objNetwork?=?CreateObject("wscript.network")???? ? Set?objFSO?=?CreateObject("scripting.FileSystemObject")???? ? Set?objSysInfo??=?CreateObject("ADSystemInfo")? ? ? strComputer?=?objNetwork.ComputerName???? ? UserName?=?objNetwork.UserName???? ? VCsite??=?Left(strComputer,2)? ? RegInfo?=?0? ? ???? ? If?InStr(1,strComputer,"2K3",1)?>?0????Then? ? ????????????????WScript.Quit???? ? Else???? ? ??? ?'Add?Printer?and?set?defualt?Printer???? ? ????????strUserPath?=?"LDAP://"?&?objSysInfo.UserName???? ? ????????Set?objUser?=?GetObject(strUserPath)???? ? ????????For?Each?strGroup?In?objUser.Memberof???? ? ???????????????strGroupPath?=?"LDAP://"?&?strGroup???? ? ????????????????Set?objGroup?=?GetObject(strGroupPath)???? ? ????????????????strGroupName?=?objGroup.CN???? ? ??????? ?nSiteCode?=?GetSiteCode(VCSite)? ? ? ????? ?Select?Case?strGroupName????? ? ???????? 'Add????Black?and?White?Printer???? ? ???????? Case?VCSite?&?"-Printer?Users"???? ? ?????????? For?lngIndex?=?0?to?nBranch?-1? ? ???????????? If?arrBWPRN(nSiteCode,?lngIndex)?<>?""?then? ? ?????????? ???? objNetwork.AddWindowsPrinterConnection?arrBWPRN(nSiteCode,lngIndex)? ? ???????????? End?If? ? ?????????? Next? ? ? ?????????????'Add?Color?Printer???? ? ???????? Case?VCSite?&?"-Colour?Printer?Users"???? ? ?????????? For?lngIndex?=?0?to?nBranch?-1? ? ???????????? If?arrCOPRN(nSiteCode,?lngIndex)?<>?""?then? ? ?????????????? objNetwork.AddWindowsPrinterConnection?arrCOPRN(nSiteCode,lngIndex)? ? ???????????? End?If? ? ????????? Next? ? ???????????? ? ??????? ?Case?"Print-Screen-User"? ? ?????????? RegInfo?=?1? ? ???????????????????? ? ?????? End?Select???????? ? ???? Next? ? ? ??? 'set?defualt?Printer???? ? ???????? strDept?????=?Left(objUser.DisplayName,4)? ? ?????????nDeptCode?=?GetDeptCode(strDept)? ? ???????????? ? ???? If?nDeptCode?<?99?and?arrDePRN(nSiteCode,?nDeptCode)?<>?""?Then? ? ?????? objNetwork.SetDefaultPrinter?arrBWPRN(nSiteCode,?arrDePRN(nSiteCode,?nDeptCode))? ? ???? ElseIf?arrDePRN(nSiteCode,?nDeptCode)?=?""?Then? ? ?????? objNetwork.SetDefaultPrinter?arrBWPRN(nSiteCode,?0)? ? ???? End?If? ? ????????????? ? ?????????'Map?Network?Drive???? ? ??????????objFSO.CreateFolder?"\\"?&?Vcsite?&?"2k3dc01\Personal_Folder$\"?&?UserName???? ? ??????????objNetwork.MapNetworkDrive?"P:","\\"?&?Vcsite?&?"2k3dc01\Personal_Folder$\"?&?UserName???? ? ??????????objNetwork.MapNetworkDrive?"R:","\\"?&?VCsite?&?"2k3dc01\dept$"???? ? ??????????objNetwork.MapNetworkDrive?"S:","\\"?&?VCsite?&?"2k3dc01\scan$"???? ? ???????????? ? ? ??????????'Set?&?Delete?Regsitry?Key?Value???????????? ? ??????????If?RegInfo?=?1?Then???? ? ????????? ???wshell.Run("\\"?&?VCsite?&?"2k3dc01\netlogon\runasspc.exe?/cryptfile:"?&?"\\"?&?VCSite?&?"2k3dc01\netlogon\Admin_Program\Special_Admin_Program.spc?/quiet")? ? ??????????Else? ? ?????????????wshell.Run("\\"?&?VCsite?&?"2k3dc01\netlogon\runasspc.exe?/cryptfile:"?&?"\\"?&?VCSite?&?"2k3dc01\netlogon\Admin_Program\Default_Admin_Program.spc?/quiet")? ? ??????????End?If???????????????????? ? End?If? ? ? GetSiteCode()?GetSiteCode(strSite)? ? ??For?lngIndex?=?0?To?nBranch?-1? ? ????if?strSite?=?arrBranch(lngIndex)?then? ? ??????GetSiteCode?=?lngIndex? ? ????End?if? ? ??Next? ? End?Function? ? ? GetDeptCode()?GetDeptCode(strDept)? ? ??Select?Case?Mid(strDept,3,2)? ? ???? ? ??Case?"CR"? ? ????GetDeptCode?=?0? ? ??Case?"HR"? ? ????GetDeptCode?=?1? ? ??Case?"IT"? ? ????GetDeptCode?=?2? ? ??Case?"AC"? ? ????GetDeptCode?=?3? ? ??Case?"OM"? ? ????GetDeptCode?=?4? ? ??Case?Else? ? ????GetDeptCode?=?99? ? ????? ? ??End?Select? ? End?Function?
總結
以上是生活随笔為你收集整理的VBScript：登录脚本的全部內容，希望文章能夠幫你解決所遇到的問題。
- 上一篇： oracle 日志 LogMiner
- 下一篇： 2010年终人生的思考