none
Service Pack RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Ba galera.

    O que posso colocar nesse codigo abaixo que meu grande amigo Jesiel me passou para que o mesmo colha tb o service pack da maquina.

    Set objNetwork = CreateObject("Wscript.Network")
    strUserName = objNetwork.Username

    Set objDSE = GetObject("LDAP://rootDSE")

    strDominio = objDSE.Get("defaultNamingContext")

    strArray = Split(strDominio, ",")
    GetDNSDomain = ""

    For n = 0 To UBound(strArray)
       GetDNSDomain = GetDNSDomain & Mid(strArray(n), 4) & "."
    Next

    wscript.echo "usuario: " & strUsername & " - dominio: " & GetDNSDomain

    Abraço galera.
    quinta-feira, 17 de dezembro de 2009 00:43
    |

Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Marcelo... para o Service pack..  é outro código:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     
    Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objOS in colOSes
      Wscript.Echo "Computador: " & objOS.CSName & " - Service Pack : " & objOS.ServicePackMajorVersion & "." & _
       objOS.ServicePackMinorVersion

    Next


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI quinta-feira, 17 de dezembro de 2009 14:08
    quinta-feira, 17 de dezembro de 2009 10:36
    |

Todas as Respostas

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Olá,

    Marcelo... para o Service pack..  é outro código:

    strComputer = "."
    Set objWMIService = GetObject("winmgmts:" _
     & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
     
    Set colOSes = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
    For Each objOS in colOSes
      Wscript.Echo "Computador: " & objOS.CSName & " - Service Pack : " & objOS.ServicePackMajorVersion & "." & _
       objOS.ServicePackMinorVersion

    Next


    Até mais,

    Jesiel

    Obs.: Se útil, classifique


    • Marcado como Resposta Marcelo TI quinta-feira, 17 de dezembro de 2009 14:08
    quinta-feira, 17 de dezembro de 2009 10:36
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Obrigado Jesiel.

    quinta-feira, 17 de dezembro de 2009 14:08
    |