none
Ajuda Script - WMIC RRS feed

  • Pergunta

  • 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

  • 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