AutoIT - 加域工具

关注

原创最新推荐文章于 2026-04-29 12:15:00 发布 4.2k 阅读 AI 写同款· GEO 优化 ›

【Windows】使用Profwiz工具进行加域及账户配置文件迁移用户配置文件是Windows存储您个人文件的地方。您的桌面、文档、图片和音乐文件都保存在用户配置文件中。随着Windows操作系统的发展，用户配置文件变得越来越重要，并成为Windows组织数据的一个重要部分。然而，在某些情况下，将数据与单个用户帐户绑定在一起可能会成为一个问题。随着企业的发展，IT需求也在变化。您可能需要将多个Windows域对账到一个Active Directory中；可能需要将独立计算机首次连接到域；或者可能需要迁移到像Azure AD和Office 365这样的基于云服务。阅读详情

制作了一款加域工具，可以实现的功能如下，源代码供参考：

调用的是AD.au3
根据地域不同，生成不同的计算机名前缀
根据地域不同，分配到不同的OU
在生成的计算机名后增加2位数字，且在域内进行查找，确保没有重复的计算机名
将计算机加域，且更换计算机名

源码：

#include <AD.au3>
#include <Network.au3>
#include <WinAPIFiles.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
Global $sComputerName = @YEAR & @MON & @MDAY
Global $sUser = "***"
Global $sPassd = "***"
Global $sDomain = "***"
Global $sDNSDomain = 'DC=***'
Global $sConfig = 'CN=Configuration,DC=***'
Global $dDNSSuffix[1] = [$sDomain]

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("计算机加域工具 1.0", 280, 180)
GUICtrlCreateGroup("PC所在区域", 24, 16, 97, 145)
$Radio1 = GUICtrlCreateRadio("北京", 50, 40, 50, 17)
$Radio2 = GUICtrlCreateRadio("廊坊", 50, 64, 50, 17)
$Radio3 = GUICtrlCreateRadio("长沙", 50, 88, 50, 17)
$Radio4 = GUICtrlCreateRadio("苏州", 50, 112, 50, 17)
$Radio5 = GUICtrlCreateRadio("远程", 50, 136, 50, 17)
$Input1 = GUICtrlCreateInput("", 136, 56, 121, 21)
$Label1 = GUICtrlCreateLabel("计算机名", 136, 32, 52, 17)
$Button1 = GUICtrlCreateButton("确定", 160, 120, 75, 25)
Dim $Form1_AccelTable[1][2] = [["{ENTER}", $Button1]]
GUISetAccelerators($Form1_AccelTable)
GUICtrlSetState(-1, $GUI_DISABLE)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
		Case $Radio1
			GUICtrlSetData($Input1, 'PC' & $sComputerName)
			GUICtrlSetState($Button1, $GUI_ENABLE)
			$sOU = 'OU=Beijing Computers,DC=***,DC=co'
		Case $Radio2
			GUICtrlSetData($Input1, 'LF' & $sComputerName)
			GUICtrlSetState($Button1, $GUI_ENABLE)
			$sOU = 'OU=Langfang Computers,DC=***,DC=co'
		Case $Radio3
			GUICtrlSetData($Input1, 'CS' & $sComputerName)
			GUICtrlSetState($Button1, $GUI_ENABLE)
			$sOU = 'OU=Changsha Computers,DC=***,DC=co'
		Case $Radio4
			GUICtrlSetData($Input1, 'SZ' & $sComputerName)
			GUICtrlSetState($Button1, $GUI_ENABLE)
			$sOU = 'OU=Suzhou Computers,DC=***,DC=co'
		Case $Radio5
			GUICtrlSetData($Input1, 'RS' & $sComputerName)
			GUICtrlSetState($Button1, $GUI_ENABLE)
			$sOU = 'OU=Remote Computers,DC=***,DC=co'
		Case $Button1
			GUICtrlSetState($Button1, $GUI_DISABLE)
			$sComputerName = _ComputerNameCheck(GUICtrlRead($Input1))
			GUICtrlSetData($Input1, $sComputerName)
			GUICtrlSetState($Input1, $GUI_DISABLE)
			$Check = _JoinDomain($sComputerName, $sOU)
			SplashTextOn('提示', '计算机' & $sComputerName & '已完成加域，系统将立即重启！', 400, 50)
			Sleep(5000)
			SplashOff()
			Shutdown(2)
			Exit
	EndSwitch
WEnd

Func _ComputerNameCheck($Name)
	$i = 0
	_AD_Open($sUser, $sPassd, $sDNSDomain, $sDomain, $sConfig)
	Do
		$i = $i + 1
		$CName = $Name & '0' & String($i)
		$Check = _AD_ObjectExists($CName & '$')
	Until $Check = 0
	Return $CName
EndFunc   ;==>_ComputerNameCheck

Func _JoinDomain($Name, $OU)
	_SetDNSSuffixSearchOrder($dDNSSuffix) ; Add DNS suffix

	$i = _AD_JoinDomain(@ComputerName, '', '', $OU, 3, $Name)
	If $i = 0 Then
		MsgBox(16, '加域失败！', '错误编码' & @error & '-' & @extended)
		Exit
	EndIf
	_AD_Close()
EndFunc   ;==>_JoinDomain