您好,登錄后才能下訂單哦!
Windows借助腳本實(shí)現(xiàn)自動(dòng)化加域
說到自動(dòng)加域,我們作為一個(gè)運(yùn)維管理員來說,是必須要掌握了的 ,通過腳本提高管理員的工作效率,一般可以將自動(dòng)加域腳本(前提是需要將腳本加密,內(nèi)部有明文賬戶及密碼)通過共享的方式然后用戶手動(dòng)執(zhí)行,前一段時(shí)間領(lǐng)導(dǎo)也有這個(gè)需求,所以就總了一些,分享給有需要的。
一般分為兩步,首先是計(jì)算更改計(jì)算機(jī)名,其次就是加域了;最后是需要將用戶增加到管理員組中,保證用戶有足夠的權(quán)限進(jìn)行操作。
首先是修改計(jì)算機(jī)名:執(zhí)行會(huì)提示當(dāng)前的計(jì)算機(jī)名,然后輸入新的計(jì)算機(jī)名,單擊確認(rèn)即可;
Dim reval
Set objnet = CreateObject ("WScript.Network")
Set R = CreateObject("WScript.Shell")
reval = InputBox ("Your ComputerName is:" & objnet.ComputerName,"Input Your new ComputerName")
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
errReturn = ObjComputer.Rename (reval)
If reval <> "" Then
return=MsgBox ("Reboot Computer?",vbokcancel+vbexclamation,"tips!")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if
End If
Next
修改計(jì)算機(jī)名后,然后就是加域:
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 INSTALL_INVOCATION = 262144
'Domain Name
strDomain = "ixmsoft.com"
'administrator member password
strPassword = "123"
'administrator member
strUser = "gavin"
Set objNetwork =CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"& _
strComputer &"\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue =objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\"& strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
wscript.echo "Join Domain Success!"
最后就是將用戶增加到管理員組中;
dmain_user="ixmsoft\zhangsan"
Set objShell=wscript.createObject("wscript.shell")
objshell.Run "net localgroup Administrators " & domain_user & " /add",0,true
以上腳本需要執(zhí)行三次,但是比較麻煩,我們最終將三個(gè)腳本的功能合成一個(gè),
執(zhí)行后,會(huì)提示修改計(jì)算機(jī)名,然后提交后,系統(tǒng)會(huì)重啟,重啟后,會(huì)將計(jì)算機(jī)自動(dòng)加域。
On Error Resume Next
Err.Clear
Set oWsh = CreateObject("WScript.Shell")
sRegValue = oWsh.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Run\rr.vbs")
If sRegValue = "" Then
Dim reval_all
Set objnet = CreateObject ("WScript.Network")
Set R = CreateObject("WScript.Shell")
reval_all = InputBox ("當(dāng)前計(jì)算機(jī)名稱:" & objnet.ComputerName & chr(10)&chr(13) & "當(dāng)前登錄名:" & objnet.username & chr(10)&chr(13) &"請輸入新的計(jì)算機(jī)名和登錄賬戶,用”,“分開.(例子:zhangsan-pc,zhangsan)" & chr(10)&chr(13) & "注:登陸賬戶為登陸此計(jì)算機(jī)的域賬戶。" ,"請輸入計(jì)算名和登錄名")
arr1 = split(reval_all,",")
reval = arr1(0)
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" _
& strComputer & "\root\cimv2")
Set colComputers = objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")
For Each objComputer in colComputers
errReturn = ObjComputer.Rename (reval)
If reval <> "" Then
Dim AutoRunProgram
Set AutoRunProgram = WScript.CreateObject("WScript.shell")
RegPath ="HKLM\Software\Microsoft\Windows\CurrentVersion\Run\"
Type_Name = "REG_SZ"
Key_Name = "rr.vbs"
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * From Win32_Process Where Name = 'wscript.exe' OR Name = 'cscript.exe'")
For Each objItem in colItems
lmq= objItem.CommandLine
lmq= replace(lmq,Chr(34),",")
arr = split(lmq,",")
Next
Key_data = arr(3)
AutorunProgram.RegWrite regpath&Key_Name,Key_data,Type_Name
AutorunProgram.RegWrite "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Policies\loginName",arr1(1),Type_Name
return=MsgBox ("Please Reboot Computer?",vbokcancel+vbexclamation,"tips!")
If return=vbok Then
R.run("Shutdown.exe -r -t 0")
End if
End If
Next
End If
if sRegValue <> "" then
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 INSTALL_INVOCATION = 262144
'Domain Name
strDomain = "ixmsoft.com"
'administrator member password
strPassword = "Bey0d101"
'administrator member
strUser = "addtodomain"
Set objNetwork =CreateObject("WScript.Network")
strComputer = objNetwork.ComputerName
Set objComputer = GetObject("winmgmts:{impersonationLevel=Impersonate}!\\"& _
strComputer &"\root\cimv2:Win32_ComputerSystem.Name='" & _
strComputer & "'")
ReturnValue =objComputer.JoinDomainOrWorkGroup(strDomain, _
strPassword, strDomain & "\"& strUser, NULL, _
JOIN_DOMAIN + ACCT_CREATE)
dim wsh
set wsh=wscript.createobject("wscript.shell")
wsh.regdelete "HKLM\Software\Microsoft\Windows\CurrentVersion\Run\rr.vbs"
wscript.echo "Join Domain Success!"
Dim oWshNetwork
Set oWshNetwork = WScript.CreateObject("WScript.Network")
strComputer = oWshNetwork.ComputerName
sFlag=0
On Error Resume Next
'Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")
'For Each objUser In colGroups.Members
'Next
strTestString = "/" & strComputer & "/"
Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser In colGroups.Members
If InStr(objUser.AdsPath, strTestString) Then
'Wscript.Echo "Local user: " & objUser.Name
'msgbox(objUser.ADsPath)
Else
IF objuser.Name = "DomainUser" Then
sFlag=1
end if
End If
Next
if sFlag=0 then
'Set objGroup = GetObject("WinNT://" & strComputer & "/Administrators")
'
Set oWsh = CreateObject("WScript.Shell")
reval = oWsh.RegRead("HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\loginName")
wsh.regdelete "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\policies\loginName"
adspath = "WinNT://ixmsoft/" & reval
'msgbox(adspath)
Set objUser = GetObject(adspath)
colGroups.Add(objUser.ADsPath)
end if
wscript.echo "Added Finish"
end if
免責(zé)聲明:本站發(fā)布的內(nèi)容(圖片、視頻和文字)以原創(chuàng)、轉(zhuǎn)載和分享為主,文章觀點(diǎn)不代表本網(wǎng)站立場,如果涉及侵權(quán)請聯(lián)系站長郵箱:is@yisu.com進(jìn)行舉報(bào),并提供相關(guān)證據(jù),一經(jīng)查實(shí),將立刻刪除涉嫌侵權(quán)內(nèi)容。