自動(dòng)加域腳本，bat和vbs配合使用，使加域操作更簡單

我的實(shí)驗(yàn)：編寫自動(dòng)加域腳本（總結(jié)）
1、自動(dòng)加域腳本的目的。
A、減少重復(fù)繁雜的必要操作，提高工作效率。
B、使加域操作更簡單，更有樂趣。

2、自動(dòng)加域的實(shí)現(xiàn)方式，分為三個(gè)步驟。
A、使用bat和vbs相互配合。（因?yàn)楸救司幊趟讲桓撸?br/>B、更改電腦名字。（不需要重啟電腦）
C、更改電腦IP地址及DSN。（選擇自動(dòng)獲取還使手動(dòng)配置）
D、調(diào)用Vbs文件完成自動(dòng)加域操作。（不解釋為什么要調(diào)用vbs，而不直接用bat完成）

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

4、腳本解釋及使用注意事項(xiàng)。
A、修改計(jì)算機(jī)名字+修改IP地址.bat

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

@ECHO off

color 4E

mode con: cols=75 lines=35

title ⅸ Auto Join Domain @neal ⅷ

ECHO

ECHO 自動(dòng)加域批處理

ECHO

ECHO

ECHO 啟動(dòng)相關(guān)系統(tǒng)服務(wù)中..........

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 服務(wù)啟動(dòng)完成......

pause>nul

cls

ECHO.

ECHO

ECHO 修改機(jī)器名稱

ECHO

ECHO

ECHO.

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

ECHO.

ECHO

ECHO.

set /p name=請(qǐng)輸入機(jī)器名稱：

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 機(jī)器名修改完畢......

echo.
echo ===修改 [本地連接] ip地址===
echo.
echo 1:自動(dòng)獲取
echo.
echo 2:重通ip地址
echo.
echo.
set/p sel=請(qǐng)選擇修改方式：
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地址，請(qǐng)稍等......
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:\自動(dòng)加域腳本.vbs
echo aaa

B、自動(dòng)加域腳本.vbs

注意：
1、我的實(shí)驗(yàn)中的域名是：yft.com 域管理員是：administrator 密碼是：abcd#1324 各位根據(jù)實(shí)際環(huán)境更改。

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!"