$strpasswd=" 能加域賬號(hào)的密碼密碼"
$struser="能加域的賬號(hào)"
$strdomain="域名"

$name=InputBox("裝機(jī)一鍵設(shè)置V2.3","請(qǐng)輸入計(jì)算機(jī)名稱","C")
If @error>0 Then Exit
$fso =ObjCreate("Scripting.Filesystemobject")
For??$dr In $fso.Drives
? ?? ???If $dr.DriveType = 2 And $dr.DriveLetter <> "C" Then
? ?? ???RunWait("cacls.exe " & $dr.DriveLetter & ":\??/E /C /G everyone:F")
? ? ? ? ? ? ? ? Sleep(1000)
? ?? ???EndIf
? ? Next
;FileInstall("D:\jd.vbs",@StartupDir & "\jd.vbs")
FileInstall("D:\jd.vbs","C:\ProgramData\Microsoft\Windows\Start Menu\Programs\Startup\jd.vbs")
$strComputer = "."?
$objWMIService = ObjGet("winmgmts:\\localhost\root\CIMV2")
$colcomputers= $objWMIService.ExecQuery("Select * from Win32_ComputerSystem", "WQL", 0x30)
For??$colcomputer in $colcomputers
? ?$colcomputer.UnjoinDomainOrWorkgroup($strpasswd, $strdomain & "\" & $struser, 2)
? ?$colcomputer.rename($name)
Next
Sleep(5000)

Shutdown(2)

加域 改計(jì)算機(jī)名 給其他盤(pán)符 everyone權(quán)限 設(shè)置管理員密碼 的腳本

====================================================================================================

On Error Resume Next
set WshShell = CreateObject("wscript.Shell")
wshshell.Run "net user administrator ****"
wshshell.Popup "正在加域，請(qǐng)稍后！", 1
Const struser="****"
Const strpasswd="*****"
a=0
While a=0
strComputer = "."
Set objPing = GetObject("winmgmts:{impersonationLevel=impersonate}").ExecQuery("select * from Win32_PingStatus where address ='klsz.com'")
For Each objStatus in objPing
If IsNull(objStatus.StatusCode) or objStatus.StatusCode<>0 Then
wshshell.Popup "連不上klsz.com！3秒后重試", 1
wscript.sleep 3000
else
a=1
end if
next
wend
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colcomputers = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each colcomputer In colcomputers
strdomain=colcomputer.domain
colcomputer.joinDomainOrWorkgroup "KLSZ.COM",strpasswd,strdomain & "\" & struser,Null,2+1
next
wscript.sleep 1000
Set fso = CreateObject("scripting.filesystemobject")
fso.DeleteFile"C:\Documents and Settings\Administrator\「開(kāi)始」菜單\程序\啟動(dòng)\jd.vbs"

wshshell.Popup "加域成功，系統(tǒng)即將重啟！", 1
wshshell.Run "shutdown.exe -r -t 0"


--------


這是JD.vbs 部分

轉(zhuǎn)載于:https://blog.51cto.com/692572/1418600

總結(jié)

以上是生活随笔為你收集整理的电脑批量加入域控制器脚本的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問(wèn)題。

如果覺(jué)得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。