Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
New security issues with XP home edition
Message
 
À
15/07/2004 14:22:30
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Divers
Thread ID:
00924836
Message ID:
00925121
Vues:
14
Steve,

I don't know if this problem began before yesterday or not. I tried this at home before downloading the newest patches without a problem. Unfortunately, due to the size of the download (and the speed of [ expletive deleted ] dialup), I couldn't complete the download to test.

Nevertheless, I due have one suggestion, tested under VFP 7.0 SP1, 8.0 SP1, and the public beta of 9.0. Here it is:
lcserial = TRANSFORM(oFSO.Drives("C").SerialNumber, '@0x')
This will return a hex string.

JIC you can't resolve this with the WSH, this maybe a workaround.
DECLARE SHORT GetVolumeInformation IN Win32API;
  STRING @lpRootPathName,;
  STRING @lpVolumeNameBuffer,;
  INTEGER nVolumeNameSize,;
  INTEGER @lpVolumeSerialNumber,;
  INTEGER @lpMaximumComponentLength,;
  INTEGER @lpFileSystemFlags,;
  STRING @lpFileSystemNameBuffer,;
  INTEGER nFileSystemNameSize
lproot = 'C:\'
lpVolName = SPACE(260)
lpVolSize = LEN(lpVolname)
lpVolSerial = 0
lpMaxComp = 0
lpFlags = 0
lpSysName = lpVolName
? GetVolumeInformation(@lproot, @lpVolName,;
    lpVolSize, @lpVolSerial, @lpMaxComp,;
    @lpFlags, @lpSysName, lpVolSize)
? lpVolSerial
? TRANSFORM(lpVolSerial, '@0x')
If the value of the API call is non-zero, it means that it worked.
George

Ubi caritas et amor, deus ibi est
Précédent
Répondre
Fil
Voir

Click here to load this message in the networking platform