acessar uma PC via Ip
Enviado: 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:
Eu realmente aprecio sua ajuda, muito obrigado a todos.
Um grande abraço.
Adalberto
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)
Um grande abraço.
Adalberto