none
Versão do Windows RRS feed

  • Pergunta

  • Ba galera

    alguem conhece algum vbs que me informe que o windows que esta instalado na estação ou no servidor é x86 ou x64 ?

    valeu tche.

    terça-feira, 27 de dezembro de 2011 17:57

Respostas

  • Marcelo,

    Acho que o script abaixo resolve, teste e me avise pois não tenho 64 com 32 para testar.

     

    .VBS

    ' ----------------  CPU -----------------------
    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colCPU = objWMIService.ExecQuery ("Select Architecture from Win32_Processor") 
    
    arrArq = array("x86","MIPS","Alpha","PowerPC","","","Itanium-based systems","","","x64")
     
    
    
    For Each obj in colCPU 
    	strArquitetura = arrArq(obj.Architecture)
    Next
    
    wscript.echo "Arquitetura do Processador " & strArquitetura 
     
     
     
    ' ----------------  PROCESSADOR -----------------------
    
    strComputer = "." 
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    
    Set colOS = objWMIService.ExecQuery ("Select OSArchitecture from Win32_OperatingSystem") 
    
    For Each obj in colOS
    	strArquitetura = obj.OSArchitecture
    Next
    
    wscript.echo "Arquitetura do Sistema Operacional " & strArquitetura 
    
    


    Fábio de Paula Junior
    • Marcado como Resposta Marcelo TI quinta-feira, 29 de dezembro de 2011 13:56
    quinta-feira, 29 de dezembro de 2011 11:02
    Moderador

Todas as Respostas

  • Para saber se o computador é 32 ou 64 bits:

    strComputer = "." 
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colCPU = objWMIService.ExecQuery ("Select AddressWidth from Win32_Processor") 
    
    For Each obj in colCPU 
    	strArquitetura = obj.AddressWidth
    Next
    
    wscript.echo "Arquitetura " & strArquitetura & " bits"
    

    Para saber se o Sistema Operacional é 32 ou 64 bits:

    strComputer = "." 
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    
    Set colOS = objWMIService.ExecQuery ("Select OSArchitecture from Win32_OperatingSystem") 
    
    For Each obj in colOS
    	strArquitetura = obj.OSArchitecture
    Next
    
    wscript.echo "Arquitetura do Sistema Operacional " & strArquitetura & " bits"
    

    Não testei, queria testar em um micro 64bits com sistema operacional 32bits.


    Fábio de Paula Junior
    terça-feira, 27 de dezembro de 2011 18:58
    Moderador
  • Ba Fabio bom dia

    show,,, no 64 com software 64 ele mostra mostra 64 nos dois, mais no micro 64 com so 32 instalado ele ta reportando 32 nos dois...

    Fabio

    sera se usarmos estas saidas abaixo nao deve trazer o proc correto, estou tentando mais nao estou conseguindo acertar o ponto.

     

    Set colProcessors = objWMIService.ExecQuery("Select * from Win32_Processor") 

    For Each objProcessor in colProcessors

    wscript.echo objItem.SystemType

    quarta-feira, 28 de dezembro de 2011 09:58
  • Marcelo,

    Acho que o script abaixo resolve, teste e me avise pois não tenho 64 com 32 para testar.

     

    .VBS

    ' ----------------  CPU -----------------------
    strComputer = "."
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    Set colCPU = objWMIService.ExecQuery ("Select Architecture from Win32_Processor") 
    
    arrArq = array("x86","MIPS","Alpha","PowerPC","","","Itanium-based systems","","","x64")
     
    
    
    For Each obj in colCPU 
    	strArquitetura = arrArq(obj.Architecture)
    Next
    
    wscript.echo "Arquitetura do Processador " & strArquitetura 
     
     
     
    ' ----------------  PROCESSADOR -----------------------
    
    strComputer = "." 
    
    Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
    
    Set colOS = objWMIService.ExecQuery ("Select OSArchitecture from Win32_OperatingSystem") 
    
    For Each obj in colOS
    	strArquitetura = obj.OSArchitecture
    Next
    
    wscript.echo "Arquitetura do Sistema Operacional " & strArquitetura 
    
    


    Fábio de Paula Junior
    • Marcado como Resposta Marcelo TI quinta-feira, 29 de dezembro de 2011 13:56
    quinta-feira, 29 de dezembro de 2011 11:02
    Moderador
  • Fabio

    Ba tche, trilegal funcionou na estação x64 com so x64, e na estação x64 com so x86.

    valeu um maravilhoso ano para vc e familia e para a grande equipe de amigos que contribuem nesta grande comunidade.

     

    quinta-feira, 29 de dezembro de 2011 13:56