none
software metering RRS feed

  • Pregunta

  • como puedo ver las licencias de las aplicaciones que tengo instaladas a traves de SMS 2003.

    se pueden ver pero a traves de un producto llamado Berlac advirsor de BelManage pero en SMS tenia entendido que si se pueden ver el licenciamiento y aquellas maquinas que tienen software ilegal

    saludos y gracias por su ayuda

    nlemus@casystem.com.mx
    noelemus@hotmail.com
    C&A Systems
    Microsoft Gold Parthner
    martes, 15 de agosto de 2006 23:01

Todas las respuestas

  • Saludos,

     

    Hay muchas maneras de realizar esto en sms pero la mas importante es la de SW metering Rlz, creas las reglas y con el software agent vas a collectar la informacion  y luego obtendras los reportes.

     

    aqui un ejemplo de como debes de tener el SW Meterin Rlz.

    Dim objSWbemLocator
    Dim objSWbemServices
    Dim objNewSWbemObject
    Dim objSWbemObject
    Dim ProviderLoc
    Dim Location
    Dim strClass
    Dim strSiteCode


    strClass="SMS_MeteredProductRule"
    set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator")
     
    set objSWbemServices= objSWbemLocator.ConnectServer _
        (".", "root\sms")
     
    Set ProviderLoc = objSWbemServices.InstancesOf("SMS_ProviderLocation")
     
    For Each Location In ProviderLoc
            If Location.ProviderForLocalSite = True Then
                Set objSWbemServices = objSWbemLocator.ConnectServer _
                     (Location.Machine, "root\sms\site_" + Location.SiteCode)
                     strSiteCode=Location.SiteCode
            End If
    Next
     
    Set objSWbemObject = objSWbemServices.Get(strClass)
    Set objNewSWbemObject = objSWbemObject.SpawnInstance_()

    objNewSWbemObject.Properties_.Item("ProductName")="Microsoft Visio"
    objNewSWbemObject.Properties_.Item("FileName")="visio.exe"
    objNewSWbemObject.Properties_.Item("OriginalFileName")="visio.exe"
    objNewSWbemObject.Properties_.Item("FileVersion")="*"
    objNewSWbemObject.Properties_.Item("LanguageID")="65535"
    objNewSWbemObject.Properties_.Item("SiteCode")= strSiteCode
    objNewSWbemObject.Properties_.Item("ApplyToChildSites")="true"
     
    objNewSWbemObject.Put_

    esto lo salvas en un VBs y lo corres en tu SMS Server.

     

    Suerte,

     

    Santos

    miércoles, 16 de agosto de 2006 15:21