none
Versão do Windows RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |