acessar uma PC via Ip

[Adalberto]

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:

Código: Selecionar todos

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

[Nascimento]

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

https://pctoledo.org/forum/fileba ... t=s&page=1