Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Serial number
Message
De
24/12/2012 17:10:55
Metin Emre
Ozcom Bilgisayar Ltd.
Istanbul, Turquie
 
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Divers
Thread ID:
01560527
Message ID:
01560583
Vues:
90
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
Précédent
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform