Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Some doubts about your code...
Message
 
To
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Some doubts about your code...
Miscellaneous
Thread ID:
00757137
Message ID:
00757137
Views:
47
Hi Cetin,

Looking for some solution to tie my application with some computers, I found one answer at UT.
*Function SomethingUniqueEnoughForYou :)
Local pGUID,rGUID,lnSize
Declare integer CoCreateGuid in 'OLE32.dll' ;
  string @pguid
Declare integer StringFromGUID2 in 'OLE32.dll' ;
  string rguid, string @lpsz, integer cchMax
pGUID=replicate(chr(0),16)
rGUID=replicate(chr(0),80)
If "5." $ OS() && 2000/XP
  Declare integer UuidCreateSequential in 'RPCRT4.dll'  string @ Uuid
  Return substr( iif( UuidCreateSequential(@pGUID) = 0 ;
    and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
    StrConv(left(rGUID,76),6), "" ), 26,12)
Else
  Return substr( iif( CoCreateGuid(@pGUID) = 0 ;
    and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
    StrConv(left(rGUID,76),6), "" ), 26,12)
Endif
If I understand it correctly, this return the network card ID, doesn't it?

So, my questions:

1) It works fine in Win 95, 98, 98SE, ME, NT, 2000 and XP ?
2) Have you had some kind of problem with this routine?
3) And, if the computer doesn't have a network card?

TIA!
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Rodolfo Duarte
Next
Reply
Map
View

Click here to load this message in the networking platform