Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Serial number
Message
From
24/12/2012 17:10:55
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turkey
 
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Miscellaneous
Thread ID:
01560527
Message ID:
01560583
Views:
89
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
Next
Reply
Map
View

Click here to load this message in the networking platform