2022年自动加域脚本改计算机名加域加用户到本地管理员组文件 .pdf

《2022年自动加域脚本改计算机名加域加用户到本地管理员组文件 .pdf》由会员分享，可在线阅读，更多相关《2022年自动加域脚本改计算机名加域加用户到本地管理员组文件 .pdf（6页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

1、一共有三个脚本。第一个是改计算机名然后重启。第二个是加域和加用户账号到本地管理员组。第三个是删除痕迹和重启这里计算机名的命名方法是：cis+domainaccount+00(site 简写+用户账号+用户第几台计算机，可以根据需要调整计算机名你只需要运行第一个脚本changename.vbs 然后会弹出一个窗口叫你输入计算机名。余下的就有脚本帮你完成了。changename.vbs*Description:Change computer name reboot the system and auto login system with administrator author:Btime :0

2、8/30/2010 *Option Explicit On Error Resume Next Const HKEY_LOCAL_MACHINE=&H80000002 Dim strComputer Dim newComputerName Dim strKeyPath Dim strKeyPathTCPIP Dim objReg Dim objSysInfo Dim computerPath Dim arrDirectoryLocation()Dim i Dim strLocation Dim ouPath strComputer=.strKeyPath=SYSTEMCurrentContro

3、lSetControlComputerName strKeyPathTCPIP=SYSTEMCurrentControlSetServicesTcpipParameters Set objReg=GetObject(WinMgmts:impersonationLevel=Impersonate!&_ strComputer&rootdefault:StdRegProv)Set ShellObj=WScript.CreateObject(WScript.Shell)名师资料总结-精品资料欢迎下载-名师精心整理-第 1 页，共 6 页 -*make the script run one when

4、system start ShellObj.RegWrite HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindowsCurrentVersionRunOnceaddtodomain,c:windowsaddtodomain.vbs Set FSO=WScript.CreateObject(Scripting.FilesystemObject)*copy files to local FSO.CopyFile addtodomain.vbs,c:windowsaddtodomain.vbs Set NetObj =WScript.CreateObject(WScri

5、pt.Network)WinDir=FSO.GetSpecialFolder(0)SysDir =FSO.GetSpecialFolder(1)On Error Resume Next WinPass=HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon Call changeRegInfo(newComputerName)Call AutoLogon Call shutdown*FUNCTIONS*Function changeRegInfo(newComputerName)newComputerName=In

6、putBox(inpute your computer name)objReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPathTCP,Hostname objReg.DeleteValue HKEY_LOCAL_MACHINE,strKeyPathTCP,NV Hostname objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath&ComputerName,_ ComputerName,UCase(newComputerName)objReg.SetStringValue HKEY_LOCAL_MACHINE

7、,strKeyPath&ActiveComputerName,_ ComputerName,UCase(newComputerName)objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPathTCPIP,Hostname,LCase(newComputerName)objReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPathTCPIP,NV Hostname,LCase(newComputerName)End Function*Dim objFso Set objFso=WScript.CreateObje

8、ct(Scripting.FileSystemObject)objFso.CopyFile addtodomain.*,c:windows 名师资料总结-精品资料欢迎下载-名师精心整理-第 2 页，共 6 页 -*Function AutoLogon Dim sUser,sPass sUser=InputBox(Enter Username to Autologin)sPass=InputBox(Enter Password)sUser=administrator sPass=LSI1AdMiN ShellObj.RegWrite WinPass&AutoAdminLogon,1,REG_SZ

9、 ShellObj.RegWrite WinPass&DefaultPassword,sPass,REG_SZ ShellObj.RegWrite WinPass&DefaultUserName,sUser,REG_SZ Set ShellObj=WScript.CreateObject(WScript.Shell)shellobj.Run 0 WScript.QUIT Function *Set ShellObj=WScript.CreateObject(WScript.Shell)shellobj.Run shutdown-r-t 0*第二个脚本你需要在红色部分根据需要添加你公司的域和你的

10、加入域时用的账号和密码*Description:Join domian and add user account to local administrators group and reboot the system author:B Date:08/30/2010*名师资料总结-精品资料欢迎下载-名师精心整理-第 3 页，共 6 页 -Const JOIN_DOMAIN =1 Const ACCT_CREATE =2 Const ACCT_DELETE =4 Const WIN9X_UPGRADE =16 Const DOMAIN_JOIN_IF_JOINED =32 Const JOIN_

11、UNSECURE =64 Const MACHINE_PASSWORD_PASSED=128 Const DEFERRED_SPN_SET =256 Const INSTALL_INVOCATION =262144 strDomain =yourdomain strPassword=*strUser =your account Set objNetwork=CreateObject(WScript.Network)strComputer=objNetwork.ComputerName Set objComputer=GetObject(winmgmts:impersonationLevel=I

12、mpersonate!&_ strComputer&rootcimv2:Win32_ComputerSystem.Name=&_ strComputer&)ReturnValue=objComputer.JoinDomainOrWorkGroup(strDomain,_ strPassword,_ strDomain&strUser,_ NULL,_ JOIN_DOMAIN+ACCT_CREATE)*add useraccount to local admin group*Dim useraccount Set net=WScript.CreateObject(WScript.Network)

13、local=net.ComputerName useraccount=Left(local,Len(local)-2)useraccount=Right(useraccount,Len(useraccount)-3)MsgBox useraccount DomainName=lsi set group=GetObject(WinNT:/&local&/Administrators)on error resume next group.Add WinNT:/&DomainName&/&UserAccount&CheckError 名师资料总结-精品资料欢迎下载-名师精心整理-第 4 页，共 6

14、页 -sub CheckError if not err.number=0 then set ole=CreateObject(ole.err)MsgBox ole.oleError(err.Number),vbCritical err.clear else MsgBox Done.end if end sub*disable admin auto logon and reboot the system the system*WinPass=HKEY_LOCAL_MACHINESOFTWAREMicrosoftWindows NTCurrentVersionWinlogon Set Shell

15、Obj=WScript.CreateObject(WScript.Shell)ShellObj.RegWrite WinPass&AutoAdminLogon,0,REG_SZ*delete teh addtodomain in c:windows*ShellObj.Run(c:windowsaddtodomain.bat),0,True shellobj.Run shutdown-r-t 0 第三部分是重启删去在用户计算机里的脚本*addtodomain.bat(起这个名字跟第二个相同时应为我再用vbs copy 时 我图省事，把addtodomain.*都拷贝到本地。自然addtodomain.bat 也 copy 过来的）（Dim objFso Set objFso=WScript.CreateObject(Scripting.FileSystemObject)objFso.CopyFile addtodomain.*,c:windows）*名师资料总结-精品资料欢迎下载-名师精心整理-第 5 页，共 6 页 -del/q c:windowsaddtodomain.vbs shutdown-r-t 0名师资料总结-精品资料欢迎下载-名师精心整理-第 6 页，共 6 页 -