Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Some doubts about your code...
Message
From
25/02/2003 11:20:05
Cetin Basoz
Engineerica Inc.
Izmir, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00757137
Message ID:
00757590
Views:
20
>Hi Again Cetin,
>
>1) It works fine in Win 95 and later, NT3.51 and later
>
>a) I tested it using WinXP Prof and Win 98SE with network card presents. It works great!
>b) I just pull the network card from Win98SE and I noticed that each login the number has been updated.
>c) And I install the program at a customer, that works with WinME and he have a network card, but in this case, the value is different each time that I start the program... I don't know why.... and if I test IPCONFIG, there is the network card...
>
>I think I have to configure something, because you told me that you uses it a lot, on many computers around the wolrd...
>
>Regards,

Rodolfo,
Might be that none of my users use winMe. I don't know all the versions they have. According to docs this should work on winME too.
If you can test with this on winMe and works w/o error pls inform me too :
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

return substr( iif( ;
	IIF(llWinMe2K, ;
	UuidCreateSequential(@pGUID), CoCreateGuid(@pGUID)) = 0 ;
	and StringFromGUID2(pGUID,@rGUID,40) # 0, ;
    StrConv(left(rGUID,76),6), "" ), 26,12)
According to docs winMe shouldn't support this and error out.
Cetin
Çetin Basöz

The way to Go
Flutter - For mobile, web and desktop.
World's most advanced open source relational database.
.Net for foxheads - Blog (main)
FoxSharp - Blog (mirror)
Welcome to FoxyClasses

LinqPad - C#,VB,F#,SQL,eSQL ... scratchpad
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform