自動加域腳本，bat和vbs配合使用，使加域操作更簡單

我的實驗：編寫自動加域腳本（總結）
1、自動加域腳本的目的。
A、減少重復繁雜的必要操作，提高工作效率。
B、使加域操作更簡單，更有樂趣。

2、自動加域的實現方式，分為三個步驟。
A、使用bat和vbs相互配合。（因為本人編程水平不高）
B、更改電腦名字。（不需要重啟電腦）
C、更改電腦IP地址及DSN。（選擇自動獲取還使手動配置）
D、調用Vbs文件完成自動加域操作。（不解釋為什么要調用vbs，而不直接用bat完成）

3、相關文件。
A、鏈接：https://pan.baidu.com/s/1sZmCisS1QEDu3E12_Ko4FA
提取碼：bmfr

4、腳本解釋及使用注意事項。
A、修改計算機名字+修改IP地址.bat

注意：
1、下面內容加粗部分可以自行修改，如：電腦名字格式；手動DNS我寫死了，自己根據實際環境更改。
2、調用vbs的方法是c盤根目錄下的“自動加域腳本.vbs”文件，您也可以放在共享服務器上，將路徑寫好，這樣就一個bat文件在客戶端就行了。各位也根據實際環境更改。

@ECHO off

color 4E

mode con: cols=75 lines=35

title ⅸ Auto Join Domain @neal ⅷ

ECHO

ECHO 自動加域批處理

ECHO

ECHO

ECHO 啟動相關系統服務中..........

sc config LmHosts start= AUTO

net start "TCP/IP NetBIOS Helper"

sc config Browser start= AUTO

net start "Computer Browser"

sc config Winmgmt start= AUTO

net start "Windows Management Instrumentation"

sc config LanmanServer start= AUTO

net start "Server"

sc config LanmanWorkstation start= AUTO

net start "Workstation"

ECHO.

ECHO 服務啟動完成......

pause>nul

cls

ECHO.

ECHO

ECHO 修改機器名稱

ECHO

ECHO

ECHO.

ECHO 機器名類似此格式(ipt-000000-zida)

ECHO.

ECHO

ECHO.

set /p name=請輸入機器名稱：

reg add "HKEY_LOCAL_MACHINE\System\ControlSet001\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\ControlSet001\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\ControlSet001\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\ControlSet001\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\ControlSet002\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\ControlSet002\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\ControlSet002\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\ControlSet002\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ActiveComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Control\ComputerName\ComputerName" /v ComputerName /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v "NV Hostname" /t reg_sz /d %name% /f >nul 2>nul

reg add "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\Tcpip\Parameters" /v Hostname /t reg_sz /d %name% /f >nul 2>nul

ECHO.

ECHO 機器名修改完畢......

echo.
echo ===修改 [本地連接] ip地址===
echo.
echo 1:自動獲取
echo.
echo 2:重通ip地址
echo.
echo.
set/p sel=請選擇修改方式：
if "%sel%"=="1" goto auto
if "%sel%"=="2" goto zt
echo 您沒有選擇修改方式。
goto end

:auto
netsh interface ip set address name="本地連接" source=dhcp
netsh interface ip delete dns "本地連接" all
ipconfig /flushdns
ipconfig /all
goto end

:zt
echo 正在更改IP地址，請稍等......
netsh interface ip set address name="本地連接" source=dhcp
netsh interface ip set dns name="本地連接" source=static addr=10.211.55.55
netsh interface ip add dns name="本地連接" addr=8.8.8.8 index=2
ipconfig /flushdns
ipconfig /all
echo 更改IP地址完成！
goto end

:end
pause

@echo off
c:\自動加域腳本.vbs
echo aaa

B、自動加域腳本.vbs

注意：
1、我的實驗中的域名是：yft.com 域管理員是：administrator 密碼是：abcd#1324 各位根據實際環境更改。

On Error Resume Next
dim domain
set domain =createobject("wscript.shell")
Const JOIN_DOMAIN = 1
Const ACCT_CREATE = 2
Const ACCT_DELETE = 4
Const WIN9X_UPGRADE = 16
Const DOMAIN_JOIN_IF_JOINED = 32
Const JOIN_UNSECURE = 64
Const MACHINE_PASSWORD_PASSED = 128
Const DEFERRED_SPN_SET = 256
Const INSTALLINVOCATION = 262144
'Domain Name
strDomain = "yft.com"
'administrator member password
strPassword = "abcd#1234"
'administrator member
strUser = "administrator"
Set objNetwork =CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\"&
strComputer &"\root\cimv2:Win32ComputerSystem.Name='" &
strComputer & "'")
ReturnValue =objComputer.JoinDomainOrWorkGroup(strDomain,
strPassword, strDomain & "\"& strUser, NULL,
JOIN_DOMAIN + ACCT_CREATE)
wscript.echo "Join Domain Success!"