- 1、本文档共3页,可阅读全部内容。
- 2、原创力文档(book118)网站文档一经付费(服务费),不意味着购买了该文档的版权,仅供个人/单位学习、研究之用,不得用于商业用途,未经授权,严禁复制、发行、汇编、翻译或者网络传播等,侵权必究。
- 3、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。如您付费,意味着您自己接受本站规则且自行承担风险,本站不退款、不进行额外附加服务;查看《如何避免下载的几个坑》。如果您已付费下载过本站文档,您可以点击 这里二次下载。
- 4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等,请点击“版权申诉”(推荐),也可以打举报电话:400-050-0827(电话支持时间:9:00-18:30)。
新装的电脑,我喜欢用VBS,来实现,计算机名、IP、子网、网关、DNS、WINS及域的自动加入。因为楼主的方法需要先装SUPPOT工具。感觉很麻烦。感觉脚本很方便:下面是我的脚本内容。不过各有各的好处。看大家选择。首先的脚本有两个VBS文件,一个是renamecomputer.vbs,用于计算机名称;二是joindomain.vbs,用于IP、子网、网关、DNS、WINS及域的加入.第一个脚本执行后,再执行第二个,脚本内容如下:
1、renamecomputer.vbs
strComputerName=InputBox(Pleasetypeyournewcomputername,Input)strComputer=.
SetobjWMIService=GetObject(winmgmts:_
{impersonationLevel=impersonate}!\\strComputer\root\cimv2)
SetcolComputers=objWMIService.ExecQuery_(Select*fromWin32_ComputerSystem)
ForEachobjComputerincolComputers
strErr=objComputer.Rename(strComputername)
Next
IfstrErr=0Then
SetobjShell=CreateObject(Wscript.shell)
Setfso=CreateObject(Scripting.FileSystemObject)fso.CopyFilejoindomain.vbs,c:\windows\system32\objshell.RegWrite
HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\RunOnce\joindomain,c:\windows\system32\joindomain.vbs,REG_SZ
return=MsgBox(Yes for reboot,no forcancel.,vbYesNo+vbInformation,Information)
Ifreturn=6Thenobjshell.Run(cmd/cshutdown.exe-r-t0)
EndIf
2、joindomain.vbsConstJOIN_DOMAIN=1ConstACCT_CREATE=2ConstACCT_DELETE=4
ConstWIN9X_UPGRADE=16
ConstDOMAIN_JOIN_IF_JOINED=32ConstJOIN_UNSECURE=64
ConstMACHINE_PASSWORD_PASSED=128ConstDEFERRED_SPN_SET=256
ConstINSTALL_INVOCATION=262144
strIPAddress=array(0)
strIPAddress=array(InputBox(PleasetypeyourIPaddress,Input))strSubnetMask=array()
strGateway=array(53)
strGatewayMetric=array(1)strwinsOne=
strwinsTwo=
strdnsOne=InputBox(PleasetypeyourfirstDNSaddress,Input)strdnsOne=
strdnsTwo=InputBox(PleasetypeyoursecondDNSaddress,Input)strdnsTwo=
strDomain=InputBox(Pleasetypeyourdomainname,Input)strDomain=
strUser=InputBox(Pleasetypeyourdomainusername,Input)strUser=lafferli
strPassword=InputBox(Pleasetypeyoudomainuserspassword,Input)strComputer=.
SetobjShell=CreateObject(Wscript.shell)
SetobjWMIService=GetObject(winmgmts:_
{impersonationLevel=imper
您可能关注的文档
- 冀美 版三年级书法上册《第1课 横》教学设计.docx
- 加班登记表格模板(新).docx
- 加班管控方案.docx
- 加臭作业记录燃气公司.docx
- 加德纳的多元智力理论及其对我教育改革的积极意义(一).docx
- 加工厂托辊焊接作业指导书.docx
- 加工制作合同样本-加工合同范本.docx
- 加工中心程序的编制和操作.docx
- 加工中心作业指导书.docx
- 加固改造项目施工方案.docx
- 标准一致性研究——以2023_年全国高考数学甲卷试题为例 .pdf
- 无人机AOPA驾照考试理论试题(二).pdf
- 新教科版三年级上册科学全册全套知识点清单(可直接打印) .pdf
- 江苏开放大学《会2021中级计实务(上)》第1次任务第一单元总论第二单元存.pdf
- 最新2018年浙美版(浙江人民美术出版社)小学美术四年级下册教案(完整.pdf
- 肺错构瘤摘除术的手术步骤.pdf
- 模拟生物试题分项版解析——专题13 种群和群落-(学生版) 缺完整版720960909.pdf
- 最新国家开放大学电大《混凝土结构设计原理》形考任务1试题及答案国 .pdf
- 智慧树知到药理学山东联盟 济宁医学院版章节测试答案.pdf
- 最新国家开放大学电大《计算机网络(本)》形考任务4试题及答案.pdf
文档评论(0)