Windows自動改計算機名和加入域工具

單位最近要換一批電腦，沒錢買高大上的軟件，也不準用三方工具。

先寫個自動設置計算機名和加域的小工具，壓壓驚。

完成系統設置的最后一步，改計算機名，和加入域。

工作方式：

?

半自動，中途需要手動輸入計算機名。

待改進：可以通過MAC與計算機名的映射表，自動獲取當前計算機名，就是全自動了！

Readme：

注意：
修改setdoman.bat，設置域名和域管理員賬號和密碼

1、首次運行initial-config進行配置，如果沒有輸入系統當前用戶名和密碼，系統不會自動登陸。
2、如果是母盤，選擇關閉計算機，重啟進入U盤備份系統
3、如果是單個電腦選擇重啟
4、第一次啟動提示計算機名，輸入計算機名
5、第二次啟動加入域，腳本運行完成自動關機
6、完成

------------
ver1
增加了防止單獨運行setdomain誤刪腳本
增加了沒有修改默認domain信息會提示手動輸入。

文件結構：

└─joindomain-ver1

?????└─readme.txt?????????????????????????? # 使用方法

?????└─initial-config.bat?????????????????? # 初始化設置文件

???? └─start.bat???????????????????????????????# 開機調用的文件，通過start再調用改名和加域

?????└─modifyhostname.bat???????????# 修改計算機名文件
?????└─setdomain.bat???????????????????? # 加入域文件，還負責清理產生的臨時文件

每個腳本都要以管理員身份運行，所以都需要在開頭加上下面的代碼

@echo?off
>nul?2>&1?"%SYSTEMROOT%\system32\cacls.exe"?"%SYSTEMROOT%\system32\config\system"
if?'%errorlevel%'?NEQ?'0'?(
goto?UACPrompt
)?else?(?goto?gotAdmin?)
:UACPrompt
echo?Set?UAC?=?CreateObject^("Shell.Application"^)?>?"%temp%\getadmin.vbs"
echo?UAC.ShellExecute?"%~s0",?"",?"",?"runas",?1?>>?"%temp%\getadmin.vbs"
"%temp%\getadmin.vbs"
exit?/B
:gotAdmin
if?exist?"%temp%\getadmin.vbs"?(?del?"%temp%\getadmin.vbs"?)

上腳本代碼：

initial-config.bat?

::--------------inilazition-----------
::當前的賬號和密碼，重啟自動進系統
set?/p?account-name=當前賬戶名：
set?/p?account-pw=密碼：
::修改注冊表，開機自動進入系統
reg?add?"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows?NT\CurrentVersion\Winlogon"?/v?AutoAdminLogon?/t?REG_SZ?/d?1?/f
reg?add?"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows?NT\CurrentVersion\Winlogon"?/v?DefaultPassword?/t?REG_SZ?/d?%account-pw%?/f
reg?add?"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows?NT\CurrentVersion\Winlogon"?/v?DefaultUserName?/t?REG_SZ?/d?%account-name%?/f
::復制改計算機名和加域程序到臨時路徑
set?source=%~dp0%
set?dest="C:\Users\%username%\AppData\Roaming\Microsoft\Windows\Start?Menu\Programs\Startup\"
copy?%source%modifyhostname.bat?%temp%\modifyhostname.bat
copy?%source%setdomain.bat?%temp%\setdomain.bat
copy?%source%start.bat?%dest%"start.bat"
echo?程序初始化完成
echo?制作母盤請輸入【y】，系統自動關機。
echo?單臺電腦輸入【n】，系統自動重啟。
set?/p?input-type=y/n：
if?%input-type%==y?(?
echo?系統正在關機，請勿操作。
shutdown?/s?/f?/t?2
goto?end
?)
echo?系統正在重啟，請誤操作。
shutdown?/r?/f?/t?2

start.bat

echo?IT自動化工具運行中
if?not?exist?"%temp%\set-temp-flag.flag"?(
::運行修改計算機名腳本
%temp%\modifyhostname.bat
)?else?(
::重啟后，運行加入域腳本
%temp%\setdomain.bat
)
pause

modifyhostname.bat

rem?修改電腦名
set?cmscdomain=cmsc.local
set?/p?computer-name=Input?computer?name:
wmic?computersystem?where?"caption='%computername%'"?call?Rename?name='%computer-name%'
echo?1>>"%temp%\set-temp-flag.flag"
echo?%computer-name%修改完成！系統2秒后重啟。。。
shutdown?/f?/r?/t?2
pause

setdomain.bat

rem?此工具一閃而過，說明出錯了
::?判斷標記文件是否存在，不存在則結束。
set?cmscdomain=default
set?domainuser=default
set?userpw=default
if?exist?"%temp%\set-temp-flag.flag"?(
echo?本名上三行不修改，提示輸入域信息。
if?%cmscdomain%==default?(?set?/p?cmscdomain="Domain?Name:"?)
if?%domainuser%==default?(?set?/p?domainuser="User?Name:"?)
if?%userpw%==default?(?set?/p?userpw="Password:"?)
wmic?computersystem?where?"caption='%computername%'"?call?JoinDomainOrWorkgroup?name="%cmscdomain%"?username="%domainuser%"?password="%userpw%"?Fjoinoptions=1

reg?delete?"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows?NT\CurrentVersion\Winlogon"?/v?AutoAdminLogon??/f
reg?delete?"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows?NT\CurrentVersion\Winlogon"?/v?DefaultPassword??/f
reg?delete?"HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows?NT\CurrentVersion\Winlogon"?/v?DefaultUserName??/f
del?"C:\Users\%username%\AppData\Roaming\Microsoft\Windows\Start?Menu\Programs\Startup\start.bat"
del?"%temp%\set-temp-flag.flag"
del?"%~dp0%\modifyhostname.bat"

echo?done,Please?wait?shutdown!
shutdown?/s?/f?/t?10
del?"%~dp0%\setdomain.bat"
)
echo?沒有找到標記文件，請按步驟運行
pause