Domain ortamında yararlanılır Ek Etki Alanı Denetleyicisi income bilgisayarınıza herhangi Bir nedenden dolayı erişemiyorsanız Meta veri temizleme işlemini kullanarak Kalan records Ortamdan kaldırabilirsiniz. Metadata Cleanup işlemini DAHA kısa surede tamamlamak for aşağıdaki script'i kullanabilirsiniz. Bu komut Ile Active Directory veritabanında Uygun'un sekilde silinmemiş Domain Controller'ları temizlemek amacıyla kullanabilirsiniz. Script'i kopyala / yöntemini kullanarak Notepad'e kaydedip yapıştırın. Vbs uzantılı Olarak kaydedelim.
Script'in Üzerine Çift işlemi Toplam ulaşamadığınız sunucunun Adını yazıp Tamam Butonuna tıklayalım.
TUM met işlemlerin SONUNDA Kalan kayıtların silinip silinmediğini gereklı Konsolları kullanarak Kontrol edebilirsiniz.
REM ================================================= =========
REM GUI Metadata Cleanup Utility
Kil Perrine Yazan REM
REM Sürüm 2.5
REM ================================================= =========
REM Bu araç "OLDUĞU GİBİ" döşenmiştir. NO garanti ifade ya da ima edilir.
hata özgeçmiş sonraki
karartmak objRoot,oDC,sPath,outval,oDCSelect,objConfiguration,objContainer,errval,ODCPath,ckdcPath,myObj,comparename
rem ======= Bu komut ====== çalıştırılan bilgisayarın adını alır
Set sh = CreateObject (" WScript.Shell ")
key = "HKEY_LOCAL_MACHINE"
computerName = sh.RegRead (anahtar & "\ SYSTEM \ CurrentControlSet Control \ ComputerName \ BilgisayarAdı \ bilgisayarından \")
rem === etki varsayılan adlandırma bağlamını alın ====
objRoot = GetObject set ("LDAP :/ / RootDSE")
Späth = "LDAP :/ / OU = Etki alanı denetleyicileri," & objRoot.Get ("defaultNamingContext ")
rem === etki alanı denetleyicileri listesini alın ====
Set objConfiguration = GetObject (Spath)
ObjConfiguration her objContainer için
outval = outval & vbTab & objContainer.Name & vbCrLf
Sonraki
outval = Değiştir (outval, "CN =", "")
rem == kullanıcıdan kırık DC ismini döndürür ve bu DC değil doğrulayın. ===
oDCSelect = InputBox (outval, "kaldırılacak bilgisayar adını girin", "")
comparename = UCase (oDCSelect)
comparename = computerName sonra eğer
msgbox "Girdiğiniz Domain Controller., bu komut dosyası çalıştıran makine" & vbCrLf & _
"Sen komut dosyası çalıştıran makine için meta verileri temizlemek olamaz!", "Metadata Cleanup Utility hata."
wscript.quit
End If
Späth = "LDAP :/ / OU = Etki alanı denetleyicileri," & objRoot.Get ("defaultNamingContext ")
Set objConfiguration = GetObject (Spath)
ObjConfiguration her objContainer için
Err.Clear
ckdcPath = "LDAP :/ /" & "CN =" & oDCSelect & ", OU = Etki alanı denetleyicileri," & objRoot.Get ("defaultNamingContext ")
set myObj = GetObject (ckdcPath)
Eğer err.number <> 0 Then
errval = 1
End If
Sonraki
Errval = 1 Eğer sonra
msgbox "Girdiğiniz Domain Controller Active Directory bulunamadı", "Metadata Cleanup Utility hata."
wscript.quit
End If
= MsgBox iptal ("Sen sunucu için tüm meta verileri kaldırmak üzeresiniz" & oDCSelect & "! Emin misiniz?", 4404, "UYARI!")
eğer iptal <> 6 sonra
msgbox "Meta veri temizleme iptal edildi.", "Metadata Cleanup Utility hata."
wscript.quit
sonunda eğer
oDCSelect = "CN =" & oDCSelect
ODCPath = "LDAP :/ /" & oDCselect & ", OU = Etki alanı denetleyicileri," & objRoot.Get ("defaultNamingContext ")
sSitelist = "LDAP :/ / CN = Sites, CN = Configuration," & objRoot.Get ("defaultNamingContext ")
Set objConfiguration = GetObject (sSitelist)
ObjConfiguration her objContainer için
Err.Clear
sitePath = "LDAP :/ /" & oDCSelect & ", CN = Sunucular," & objContainer.Name & ", CN = Sites, CN = Configuration," & _
objRoot.Get ("defaultNamingContext ")
set myObj = GetObject (sitePath)
Err.number = 0 ise
siteval = sitePath
End If
Sonraki
sFRSSysvolList = "LDAP :/ / CN = Domain System Volume (SYSVOL share), CN = Dosya Çoğaltma Hizmeti, CN = System," & _
objRoot.Get ("defaultNamingContext ")
Set objConfiguration = GetObject (sFRSSysvolList)
ObjConfiguration her objContainer için
Err.Clear
SYSVOLPath = "LDAP :/ /" & oDCSelect & ", CN = Domain System Volume (SYSVOL share), CN = Dosya Çoğaltma Hizmeti, CN = System," & _
objRoot.Get ("defaultNamingContext ")
set myObj = GetObject (SYSVOLPath)
Err.number = 0 ise
SYSVOLval = SYSVOLPath
End If
Sonraki
Sitelist = Değiştir (sSitelist, "LDAP :/ /", "")
VarSitelist = "LDAP :/ / CN = Sites, CN = Configuration," & objRoot.Get ("defaultNamingContext ")
Set SiteConfiguration = GetObject (VarSitelist)
SiteConfiguration her SiteContainer için
Sitevar = SiteContainer.Name
VarPath = "LDAP :/ / OU = Etki alanı denetleyicileri," & objRoot.Get ("defaultNamingContext ")
DCConfiguration = GetObject Set (VarPath)
DCConfiguration her DomContainer için
DCVar = DomContainer.Name
strFromServer = ""
NTDSPATH = DCVar & ", CN = Sunucular," & SiteVar & "," & sitelist
GuidPath = "LDAP :/ / CN = NTDS Settings," & NTDSPATH
Set objCheck = GetObject (NTDSPATH)
ObjCheck her CheckContainer için
rem ==== ======================= geçerli bir site yolları kontrol
ldapntdspath = "LDAP :/ /" & NTDSPATH
Err.Clear
set var = GetObject (ldapntdspath)
Err.number = 0 ise
Set oGuidGet = GetObject (GuidPath)
OGuidGet her objContainer için
oGuid = objContainer.Name
oGuidPath = "LDAP :/ /" & oGuid & ", CN = NTDS Settings," & NTDSPATH
Set objSitelink = GetObject (oGuidPath)
objSiteLink.GetInfo
strFromServer = objSiteLink.Get ("fromServer ")
süjesine = Instr (1, strFromServer, oDCSelect, 1)
Eğer süjesine <> 0 then
Set objReplLinkVal = GetObject (oGuidPath)
objReplLinkVal.DeleteObject (0)
sonunda eğer
sonraki
sitedelval = "CN =" & comparename & ", CN = Servers =" & SiteVar & "," & sitelist
sitedelval = ntdspath sonra eğer
Set objguidpath = GetObject (guidpath)
objguidpath.DeleteObject (0)
Set objntdspath = GetObject (ldapntdspath)
objntdspath.DeleteObject (0)
sonunda eğer
End If
sonraki
sonraki
sonraki
Set AccountObject = GetObject (ckdcPath)
temp = Accountobject.Get ("userAccountControl")
AccountObject.Put "userAccountControl", "4096"
AccountObject.SetInfo
Set objFRSSysvol = GetObject (SYSVOLval)
objFRSSysvol.DeleteObject (0)
Set objComputer = GetObject (ckdcPath)
objComputer.DeleteObject (0)
Set objConfig = GetObject (siteval)
objConfig.DeleteObject (0)
oDCSelect = Değiştir (oDCSelect, "CN =", "")
& oDCSelect msgval = "Tamamlandı Meta veri temizleme"
msgbox msgval, "dikkat edin."
wscript.quit
Hiç yorum yok:
Yorum Gönder