Jump to content
Sign in to follow this  
Willazuie

Informação Remoto

Recommended Posts

Boa tarde pessoal, tudo bem com vocês?
Sou novo aqui no Fórum e na liguagem de Autoit, tentei aprender algumas ocoisas por conta e até consegui, porem como trabalho com T.I, estou tentando desenvolver um programinha
que busca informações de outros computadores remoto.
Porem estou tentando obter informações porem não consigo enviar o nome do computador quando aperto o botão para o comando $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2").

 

Por favor, peço muito a ajuda de vocês, pois estou fritando minha cabeça a dois dias e não consigo fazer outra coisa com Autoit sem antes passar por esse problema.

Esse é o codigo que deveria pegar o numero de serie do computador remoto.

#include <Constants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ColorConstants.au3>
#include <FontConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIListView.au3>

Const $wbemFlagReturnImmediately = 0x10
Const $wbemFlagForwardOnly = 0x20

Local $strComputer = @ComputerName
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
Local $colItems = ""
$colItems = $objWMIService.ExecQuery("Select * from Win32_BIOS")

For $objItem In $colItems
   Local $item = $objItem.SerialNumber
Next

exemplo()

Func exemplo()
   Local $Form1 = GUICreate("Janela", 360, 190, 192, 124)
   Local $infoset = GUICtrlCreateLabel("Insira o IP ou Hostname", 10, 10, 140, 100)
   Local $infsn = GUICtrlCreateLabel("Resultado da Busca", 10, 31, 140, 100)
   Local $inserir = GUICtrlCreateInput("Insira o hostname ou IP", 200, 10, 150, 20, 0x00020000)
   Local $result = GUICtrlCreateInput("", 200, 31, 150, 20, 0x00020000)
   Local $botao = GUICtrlCreateButton("ENVIAR", 200, 100, -1, -1)
   GUISetState(@SW_SHOW)
   While 1
      $saida = GUIGetMsg()
      Switch $saida
         Case $GUI_EVENT_CLOSE ;$botao_1, $botao_2
            ExitLoop
         Case $botao
            $ler = GUICtrlRead($inserir)
            GUICtrlSetData($strComputer, $ler)

      EndSwitch
   WEnd
EndFunc

Obrigado desde já.

 

Share this post


Link to post
Share on other sites

Embora o post ja tem um tempo segue um ajuste que vi necessário

Toda a instrução que vai ser processada após clicar no botão enviar deve ficar na case do botão

 

#include <Constants.au3>
#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ColorConstants.au3>
#include <FontConstants.au3>
#include <MsgBoxConstants.au3>
#include <GUIListView.au3>

Const $wbemFlagReturnImmediately = 0x10
Const $wbemFlagForwardOnly = 0x20


exemplo()

Func exemplo()
    Local $Form1 = GUICreate("Janela", 360, 190, 192, 124)
    Local $infoset = GUICtrlCreateLabel("Insira o IP ou Hostname", 10, 10, 140, 100)
    Local $infsn = GUICtrlCreateLabel("Resultado da Busca", 10, 31, 140, 100)
    Local $inserir = GUICtrlCreateInput("Insira o hostname ou IP", 200, 10, 150, 20, 0x00020000)
    Local $result = GUICtrlCreateInput("", 200, 31, 150, 20, 0x00020000)
    Local $botao = GUICtrlCreateButton("ENVIAR", 200, 100, -1, -1)
    GUISetState(@SW_SHOW)
    While 1
        $saida = GUIGetMsg()
        Switch $saida
            Case $GUI_EVENT_CLOSE ;$botao_1, $botao_2
                ExitLoop
            Case $botao
                $ler = GUICtrlRead($inserir)
                Local $strComputer = @ComputerName
                $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
                Local $colItems = ""
                $colItems = $objWMIService.ExecQuery("Select * from Win32_BIOS")

                For $objItem In $colItems
                    Local $item = $objItem.SerialNumber
                Next
                GUICtrlSetData($result, $item)

        EndSwitch
    WEnd
EndFunc   ;==>exemplo

Mas não sei se a lógica está correta pois não testei o código

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

Sign in to follow this  

×