Ol\u00e1 pessoal, tal como a hist\u00f3ria, s\u00e3o as nossas experiencias e viv\u00eancias. Eu comecei minha carreira no suporte, basico, depois infra, hoje ocupo uma fun\u00e7\u00e3o gerencial mas sou apaixonado pelo Hand’s On. Trago a voc\u00eas um script de despromo\u00e7\u00e3o manual e remo\u00e7\u00e3o de metadados que por muitas vezes j\u00e1 utilizei, em particular, apliquei cen\u00e1rios de recupera\u00e7\u00e3o de desastres. N\u00e3o \u00e9 de minha autoria mas \u00e9 uma verdadeira m\u00e3o na roda. Cr\u00e9ditos ao autor Clay Perrine.<\/p>\n\n\n\n
REM ==========================================================\nREM GUI Metadata Cleanup Utility\nREM Written By Clay Perrine\nREM Version 2.5\nREM ==========================================================\nREM This tool is furnished \"AS IS\". NO warranty is expressed or Implied.\n\non error resume next\ndim objRoot,oDC,sPath,outval,oDCSelect,objConfiguration,objContainer,errval,ODCPath,ckdcPath,myObj,comparename\n\nrem =======This gets the name of the computer that the script is run on ======\n\nSet sh = CreateObject(\"WScript.Shell\")\nkey= \"HKEY_LOCAL_MACHINE\"\ncomputerName = sh.RegRead(key & \"\\SYSTEM\\CurrentControlSet\\Control\\ComputerName\\ComputerName\\ComputerName\")\n\nrem === Get the default naming context of the domain====\n\nset objRoot=GetObject(\"LDAP:\/\/RootDSE\")\nsPath = \"LDAP:\/\/OU=Domain Controllers,\" & objRoot.Get(\"defaultNamingContext\")\n\nrem === Get the list of domain controllers====\n\nSet objConfiguration = GetObject(sPath)\nFor Each objContainer in objConfiguration\noutval = outval & vbtab & objContainer.Name & VBCRLF\nNext\noutval = Replace(outval, \"CN=\", \"\")\n\nrem ==Retrieve the name of the broken DC from the user and verify it\u2019s not this DC.===\n\noDCSelect= InputBox (outval,\" Enter the computer name to be removed\",\"\")\ncomparename = UCase(oDCSelect)\n\nif comparename = computerName then\nmsgbox \"The Domain Controller you entered is the machine that is running this script.\" & vbcrlf & _\n\"You cannot clean up the metadata for the machine that is running the script!\",,\"Metadata Cleanup Utility Error.\"\nwscript.quit\nEnd If\n\nsPath = \"LDAP:\/\/OU=Domain Controllers,\" & objRoot.Get(\"defaultNamingContext\")\nSet objConfiguration = GetObject(sPath)\n\nFor Each objContainer in objConfiguration\nErr.Clear\nckdcPath = \"LDAP:\/\/\" & \"CN=\" & oDCSelect & \",OU=Domain Controllers,\" & objRoot.Get(\"defaultNamingContext\")\nset myObj=GetObject(ckdcPath)\nIf err.number <>0 Then\nerrval= 1\nEnd If\nNext\n\nIf errval = 1 then\nmsgbox \"The Domain Controller you entered was not found in the Active Directory\",,\"Metadata Cleanup Utility Error.\"\nwscript.quit\nEnd If\n\nabort = msgbox (\"You are about to remove all metadata for the server \" & oDCSelect & \"! Are you sure?\",4404,\"WARNING!!\")\nif abort <> 6 then\nmsgbox \"Metadata Cleanup Aborted.\",,\"Metadata Cleanup Utility Error.\"\nwscript.quit\nend if\n\noDCSelect = \"CN=\" & oDCSelect\nODCPath =\"LDAP:\/\/\" & oDCselect & \",OU=Domain Controllers,\" & objRoot.Get(\"defaultNamingContext\")\nsSitelist = \"LDAP:\/\/CN=Sites,CN=Configuration,\" & objRoot.Get(\"defaultNamingContext\")\nSet objConfiguration = GetObject(sSitelist)\nFor Each objContainer in objConfiguration\nErr.Clear\nsitePath = \"LDAP:\/\/\" & oDCSelect & \",CN=Servers,\" & objContainer.Name & \",CN=Sites,CN=Configuration,\" & _\nobjRoot.Get(\"defaultNamingContext\")\nset myObj=GetObject(sitePath)\nIf err.number = 0 Then\nsiteval = sitePath\nEnd If\nNext\n\nsFRSSysvolList = \"LDAP:\/\/CN=Domain System Volume (SYSVOL share),CN=File Replication Service,CN=System,\" & _\nobjRoot.Get(\"defaultNamingContext\")\nSet objConfiguration = GetObject(sFRSSysvolList)\n\nFor Each objContainer in objConfiguration\nErr.Clear\nSYSVOLPath = \"LDAP:\/\/\" & oDCSelect & \",CN=Domain System Volume (SYSVOL share),CN=File Replication Service,CN=System,\" & _\nobjRoot.Get(\"defaultNamingContext\")\nset myObj=GetObject(SYSVOLPath)\nIf err.number = 0 Then\nSYSVOLval = SYSVOLPath\nEnd If\nNext\n\nSiteList = Replace(sSitelist, \"LDAP:\/\/\", \"\")\nVarSitelist = \"LDAP:\/\/CN=Sites,CN=Configuration,\" & objRoot.Get(\"defaultNamingContext\")\nSet SiteConfiguration = GetObject(VarSitelist)\n\nFor Each SiteContainer in SiteConfiguration\nSitevar = SiteContainer.Name\nVarPath =\"LDAP:\/\/OU=Domain Controllers,\" & objRoot.Get(\"defaultNamingContext\")\nSet DCConfiguration = GetObject(VarPath)\nFor Each DomContainer in DCConfiguration\nDCVar = DomContainer.Name\nstrFromServer = \"\"\nNTDSPATH = DCVar & \",CN=Servers,\" & SiteVar & \",\" & SiteList\nGuidPath = \"LDAP:\/\/CN=NTDS Settings,\"& NTDSPATH\nSet objCheck = GetObject(NTDSPATH)\nFor Each CheckContainer in objCheck\nrem ====check for valid site paths =======================\nldapntdspath = \"LDAP:\/\/\" & NTDSPATH\nErr.Clear\nset exists=GetObject(ldapntdspath)\nIf err.number = 0 Then\nSet oGuidGet = GetObject(GuidPath)\nFor Each objContainer in oGuidGet\noGuid = objContainer.Name\noGuidPath = \"LDAP:\/\/\" & oGuid & \",CN=NTDS Settings,\" & NTDSPATH\nSet objSitelink = GetObject(oGuidPath)\nobjSiteLink.GetInfo\nstrFromServer = objSiteLink.Get(\"fromServer\")\nispresent = Instr(1,strFromServer,oDCSelect,1)\n\nif ispresent <> 0 then\nSet objReplLinkVal = GetObject(oGuidPath)\nobjReplLinkVal.DeleteObject(0)\nend if\nnext\n\nsitedelval = \"CN=\" & comparename & \",CN=Servers,\" & SiteVar & \",\" & SiteList\nif sitedelval = ntdspath then\nSet objguidpath = GetObject(guidpath)\nobjguidpath.DeleteObject(0)\nSet objntdspath = GetObject(ldapntdspath)\nobjntdspath.DeleteObject(0)\nend if\nEnd If\nnext\nnext\nnext\nSet AccountObject = GetObject(ckdcPath)\ntemp=Accountobject.Get (\"userAccountControl\")\nAccountObject.Put \"userAccountControl\", \"4096\"\nAccountObject.SetInfo\nSet objFRSSysvol = GetObject(SYSVOLval)\nobjFRSSysvol.DeleteObject(0)\nSet objComputer = GetObject(ckdcPath)\nobjComputer.DeleteObject(0)\nSet objConfig = GetObject(siteval)\nobjConfig.DeleteObject(0)\noDCSelect = Replace(oDCSelect, \"CN=\", \"\")\nmsgval = \"Metadata Cleanup Completed for \" & oDCSelect\nmsgbox msgval,,\"Notice.\"\nwscript.quit<\/code><\/pre>\n\n\n\nCopiar o texto, salvar em um controlador de dom\u00ednio com a extens\u00e3o .vbs e executar. Bom trabalho e boa divers\u00e3o…<\/p>\n","protected":false},"excerpt":{"rendered":"
Ol\u00e1 pessoal, tal como a hist\u00f3ria, s\u00e3o as nossas experiencias e viv\u00eancias. Eu comecei minha carreira no suporte, basico, depois infra, hoje ocupo uma fun\u00e7\u00e3o gerencial mas sou apaixonado pelo Hand’s On. Trago a voc\u00eas um script de despromo\u00e7\u00e3o manual e remo\u00e7\u00e3o<\/p>\n