GUID de un servidor
Posted: Fri Jan 08, 2016 2:27 am
Hola amigos, mis mejores deseos para este 2016
Gracias a Pavlo Vidal, con la siguiente funcion me da el GUID de una maquina:
Sin embargo, si en una red se corre el sistema desde una terminal, me da el GUID de la terminal y no del servidor. Existe alguna forma que me diera la del servidor?
De antemano, 'chas gracias.
Gracias a Pavlo Vidal, con la siguiente funcion me da el GUID de una maquina:
Code: Select all
FUNCTION PE_GUID() //Extrae el Identificador Unico Global (GUID) del equipo (SerialProtect() de Pablo Vidal en el foro)
local oLoc := CreateObject( "wbemScripting.SwbemLocator" )
local oSrv := oLoc:ConnectServer(,"root\cimv2")
local aDrives := oSrv:ExecQuery( "SELECT * FROM Win32_ComputerSystemProduct" )
local oDrive, cSerial := ""
Local aData := {}
Local nAt
for each oDrive in aDrives
AADD( aData, oDrive:UUID )
Next
For nAt := 1 to Len( aData )
cSerial += Upper( AllTrim( cStr( aData[nAt] ) ) )
Next nAt
Return( cSerial )
De antemano, 'chas gracias.