none
Ajuda Script - WMIC RRS feed

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    Boa tarde,

    Desde já gostaria de agradecer, pelo espaço e respostas as quais vierem a ser repassadas. Peço desculpas se esse não for o local ideal para que eu possa questionar minha dúvida.

    Todos os dias tenho a necessidade de rodar um controle de inventário, e me deparo com inconformidades relacionadas o nº de série das máquinas, normalmente são máquinas novas as quais ainda não tiveram o seu nº de série inserido. Hoje para inserir a informação do nº de série se faz necessário acessar a máquina do usuário, acessar o prompt de comando e digitar o seguinte comando: wmic bios get serialnumber. Eu pego a saída do comando e insiro no software de inventário.

    Localizei a chave registro do software de inventário a qual fica no seguinte caminho: HKLM\Software\Agentinv\BS , a chave é um registro de "valor de sequência" com o nome de: NR_Série, a mesma recebe o valor do numero de série.

    É possível criar um script que permita que de modo remoto eu consiga rodar o comando WMIC e inserir a informação gerada pelo comando na chave de registro infomada? Sem ter que entrar em contato com o usuário!

    Se for possível será que alguém poderia me dar uma luz de como fazer!?

    Mais uma vez, muito obrigado!

    Abs
    Welliton Cardoso

    sexta-feira, 18 de janeiro de 2013 16:10
    |

Respostas

  • Question
    Entrar para Votar
    1
    Entrar para Votar

    Boa Noite Wncardoso,

    faça um teste com esse script, salve com a extensão .vbs (Ex.: Serial.vbs)

    Lembre-se que deve ser executado com perfil de administrador,

    no Windows 7 o ideal é abrir um prompt do DOS elevado e executar o script..

    Faça o teste e post o resultado

    strComputer = inputbox("Digite o Nome ou IP da estação","Coleta Serial")
				If strComputer= "" Then
				wscript.quit
				end if
Set objWMIService = GetObject("winmgmts:{ImpersonationLevel=impersonate}\\" & strComputer & "\root\cimv2")
    Set colSMBIOS = objWMIService.ExecQuery ("Select * from Win32_SystemEnclosure")
    For Each objSMBIOS in colSMBIOS
        Snumber = objSMBIOS.SerialNumber
Next
const HKEY_LOCAL_MACHINE = &H80000002
Set objReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SOFTWARE\Agentinv\BS"
StrSn = Snumber
strChave = "NR_Série"
objReg.CreateKey HKEY_LOCAL_MACHINE,strKeyPath
objReg.SetExpandedStringValue HKEY_LOCAL_MACHINE,strKeyPath,strChave,StrSn

WScript.Echo  "Chave Criada com Sucesso"

    att, Aparecido Deveza


    sábado, 19 de janeiro de 2013 04:56
    |