Clipper On Line • Ver Tópico - acessar uma PC via Ip

acessar uma PC via Ip

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

acessar uma PC via Ip

Mensagempor Adalberto » 27 Set 2019 10:21

Caros amoigos, bom dia.

Peço sua ajuda para o seguinte:
Preciso acessar vários PCs via IP, para saber quantos discos rígidos possui esse PC, o número de série dessas unidades, etc.

O que eu não sei é acessar o outro PC via IP.

Exemplo:

LOCAL acIp:= {'192.168.1.1', '192.168.1.2', '192.168.1.3'}
LOCAL nLen:= LEN(acIp), nI
//
FOR nI:= 1 TO nLen
       * Eu não sei é acessar o outro PC via IP.
       PhysicalMediaInfo()
       // Obtem a lista de discos rígidos nesse PC
NEXT nI
RETURN NIL
//
FUNCTION PhysicalMediaInfo()
LOCAL oWmi, oDrive, cInfo:= "", acSeries:= {}
//
oWmi:= WmiService()
FOR EACH oDrive IN oWmi:ExecQuery("SELECT * FROM Win32_PhysicalMedia")
   cInfo:= IfNotChar(oDrive:SerialNumber, "N/A")
   AADD(acSeries, cInfo)
   MsgInfo(cInfo)
NEXT
RETURN(acSeries)
//
STATIC FUNCTION WMIService()
STATIC oWMI
LOCAL oLocator
//
IF (oWMI == NIL)
      oLocator:= CreateObject("wbemScripting.SwbemLocator")
      oWMI:= oLocator:ConnectServer()
ENDIF
RETURN(oWMI)


Eu realmente aprecio sua ajuda, muito obrigado a todos.

Um grande abraço.

Adalberto
Adalberto
Usuário Nível 3

Usuário Nível 3
 
Mensagens: 343
Data de registro: 01 Set 2007 01:09
Cidade/Estado: Santa Cruz de la Sierra - Bolivia
Curtiu: 0 vez
Mens.Curtidas: 12 vezes

acessar uma PC via Ip

Mensagempor Nascimento » 22 Out 2019 22:45

amigo dá uma olhada na sessão de dowload
veja se este exemplo lhe serve

http://www.pctoledo.com.br/forum/filebase.php?d=1&id=149&ctg=2&searchword=&what=s&page=1
A arte de programar é simplesmente fazer seus pensamentos serem interpretados por uma maquina :) clipper 5.3 /harbour/minigui
Avatar de usuário

Nascimento
Usuário Nível 4

Usuário Nível 4
 
Mensagens: 711
Data de registro: 19 Jul 2008 12:11
Cidade/Estado: OLINDA-PE
Curtiu: 110 vezes
Mens.Curtidas: 76 vezes




Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro