Alow pessoal...

Estou fazendo uns testes com esta rotina - que serve para capturar o ID da placa de rede - que dizem ser único no mundo... O objetivo é criar uma rotina anti-cópia.

Set Talk off
Local pGUID,rGUID,lpVersionInfo
Declare integer CoCreateGuid in 'OLE32.dll' string @pguid
Declare integer StringFromGUID2 in 'OLE32.dll' ;
  string rguid, string @lpsz, integer cchMax
declare short GetVersionEx in win32API ;
  string @ lpVersionInfo 

lpVersionInfo = chr(128+5*4)+replicate(chr(0),128+5*4-1)
GetVersionEx(@lpVersionInfo)

pGUID=replicate(chr(0),16)
rGUID=replicate(chr(0),80)

llWinMe2K = ASC(substr(lpVersionInfo, 5))>4 ;
 or ( ASC(substr(lpVersionInfo, 5)) = 4 ;
 and ASC(substr(lpVersionInfo, 9)) = 90 ) && 2000/XP or later, winMe
If llWinMe2K
  Declare integer UuidCreateSequential in 'RPCRT4.dll'  string @ Uuid
ENDIF

MessageBox(substr( iif( ;
 IIF(llWinMe2K, ;
 UuidCreateSequential(@pGUID), CoCreateGuid(@pGUID)) = 0 ;
 and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
    StrConv(left(rGUID,76),6), "" ), 26,12))

Estou precisando de fazer um grande número de testes, em computadores com os diversos Sistemas Operacionais... Inclusive naqueles que não possuem placa de rede...

Gostaria que quem pudesse, pegasse o código, copiasse no VFP e executasse umas 5 vezes, anotando os resultados obtidos em cada execução.
O resultado, mandem para rodolfo@foxbrasil.com.br que eu vou compilar em uma mensagem e mando novamente para o grupo. - ou REPLAY aqui...

Ah, não se esqueçam de me informar o resultado obtido em cada execução (5 vezes), qual o Sistema Operacional e quantas placas de rede o computador possui.

Se isso funcionar bem, teremos uma rotina um pouco melhor do que o número do HD! ;-)

PS: A rotina foi fornecida pelo Çetin aqui mesmo no UT (Fórum VFP)...

[]s