Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
New security issues with XP home edition
Message
 
To
15/07/2004 14:22:30
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Miscellaneous
Thread ID:
00924836
Message ID:
00925121
Views:
15
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
Previous
Reply
Map
View

Click here to load this message in the networking platform