none
Recuperar la Collection All System en SCCM2007R3 RRS feed

Respuestas

Todas las respuestas

  • Hola como estas

    Puedes realizar la restauración atreves de un VBS script, te dejo el link en el cual encuentras el correspondiente script para recuperar esta Collection

    http://sccm2o12.blogspot.com/2010/04/restoring-deleted-all-systems.html

    Espero te sea de utilidad

    miércoles, 20 de marzo de 2013 1:23
  • Tambien puedes reinstalar un service pack, ejemplo Service Pack 2 de 2007 y esto recreara la colleccion.


    Santos Martinez Premier Field Engineer Blog: http://aka.ms/ConfigNinja Facebook: http://facebook.com/ConfigNinjaFan LinkedIn: http://linkedin.com/in/ConfigNinja Twitter: http://twitter.com/ConfigNinja

    jueves, 21 de marzo de 2013 17:48
  • Gracias Santos ya empecé a descargar el SP de SCCM si llegase a funcionar ya te estaré escribiendo nuevamente.

    Saludos!

    viernes, 22 de marzo de 2013 15:19
  • Hola

    se me complica realizar el script ya que no teng mucho conociemin intentare reinstalar el SP y verempos gracias!

    viernes, 22 de marzo de 2013 15:21
  • gracias les adjunto el script completo.....saludos!!!

    trSMSServer = "."
    strParentCollID = "COLLROOT"
    strCollectionName = "All Systems"
    strCollectionComment = "This is the All Systems Collection."
     
    Set objLoc = CreateObject("WbemScripting.SWbemLocator")
    Set objSMS = objloc.ConnectServer(strSMSServer, "root\sms")
    Set Results = objSMS.ExecQuery ("SELECT * From SMS_ProviderLocation WHERE ProviderForLocalSite = true")
     
    For each Loc in Results
     If Loc.ProviderForLocalSite = True Then
      Set objSMS = objLoc.ConnectServer(Loc.Machine, "root\sms\site_" & Loc.SiteCode)
     End if
    Next
     
    Set newCollection = objSMS.Get("SMS_Collection").SpawnInstance_()
     
    'Create new "All Systems" collection
    newCollection.Name = "All Systems"
    newCollection.OwnedByThisSite = True
    newCollection.Comment = strCollectionComment
    newCollection.CollectionID = "SMS00001"
    newCollection.Put_
     
    'Set the Relationship
    Set newCollectionRelation = objSMS.Get("SMS_CollectToSubCollect").SpawnInstance_()
    newCollectionRelation.parentCollectionID = strParentCollID
    newCollectionRelation.subCollectionID = ("SMS00001")
    newCollectionRelation.Put_
     
    'Add the Query Rule
    Query = "SELECT * FROM SMS_R_SYSTEM"
    Set objQueryRule = objSMS.Get("SMS_CollectionRuleQuery").SpawnInstance_
    objQueryRule.QueryExpression = Query
    objQueryRule.RuleName = "All Systems"
    newCollection.AddMembershipRule objQueryRule
     
    'Add the Schedule
    Set Token = objSMS.Get("SMS_ST_RecurInterval")
    Token.DaySpan = 1
    newCollection.RefreshSchedule = Array(Token)
    newCollection.RefreshType = 2
    newCollection.Put_
     
    'Refresh Collection Membership
    newCollection.RequestRefresh False

    miércoles, 3 de abril de 2013 16:03