Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Serial number
Message
From
02/01/2013 07:12:57
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01560527
Message ID:
01561036
Views:
99
There is a developer talked about that at this forum. Of course that date can be change but if you don't say maybe pirates don't know this secret. Of course this cannot be use alone.

>I am not sure if you are serious or not. Foxtouch() will change that date anyways (or could) so I would not trust that.
>I never recommend to apply a copy protection of any kind, If there is a concern, consider changing your market.
>
>>I see you know system very well. I remembered there is a developer talked about "Reading create date of recylcle bin is good for copy protecting". I have two questions for you:
>>1-Do you think like him?
>>2-If you contribute him how can I read recycle bin's create date?
>>
>>>>i would like the bios serial number ?
>>>
lcComputer = "."
>>>loWMIService = Getobject("winmgmts:" ;
>>>	+ "{impersonationLevel=impersonate}!\\" + lcComputer + "\root\cimv2")
>>>colBIOS = loWMIService.ExecQuery ;
>>>	("Select * from Win32_BIOS")
>>>For Each loBIOS In colBIOS
>>>	?"Build Number: " + loBIOS.BuildNumber
>>>	?"Current Language: " + loBIOS.CurrentLanguage
>>>	?"Installable Languages: " + TRANSFORM(loBIOS.InstallableLanguages)
>>>	?"Manufacturer: " + loBIOS.Manufacturer
>>>	?"Name: " + loBIOS.Name
>>>	?"Primary BIOS: " + TRANSFORM(loBIOS.PrimaryBIOS)
>>>	?"Release Date: " + TRANSFORM(loBIOS.ReleaseDate)
>>>	?"Serial Number: " + loBIOS.SerialNumber
>>>	?"SMBIOS Version: " + loBIOS.SMBIOSBIOSVersion
>>>	?"SMBIOS Major Version: " + transf(loBIOS.SMBIOSMajorVersion)
>>>	?"SMBIOS Minor Version: " + TRANSFORM((loBIOS.SMBIOSMinorVersion))
>>>	?"SMBIOS Present: " + TRANSFORM(loBIOS.SMBIOSPresent)
>>>	?"Status: " + loBIOS.Status
>>>	?"Version: " + loBIOS.Version
>>>	For i = 0 To 100
>>>		?"BIOS Characteristics: " + ;
>>>			TRANSFORM(loBIOS.BiosCharacteristics(i))
>>>	Next
>>>Next
Previous
Reply
Map
View

Click here to load this message in the networking platform