Re: How to change volume ID with VB6?

Ok Darko,

 Do either of these help?
1) Code to query Win32_LogicalDisk for VolumeSerialNumber. This returns eight digit hex strings on my machine. 

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
   "SELECT * FROM Win32_LogicalDisk",,48)
For Each objItem in colItems
   Wscript.Echo "-----------------------------------"
   Wscript.Echo "Win32_LogicalDisk instance"
   Wscript.Echo "-----------------------------------"
   Wscript.Echo "VolumeSerialNumber: " & objItem.VolumeSerialNumber
Next

2) Another web page:

http://www.computerperformance.co.uk/vbscript/wmi_disks_physical.htm

Regards, Martin
----- Original Message ----- From: "Darko Pogačić" <darko.pogacic@xxxxxxxxx> 
To: <programmingblind@xxxxxxxxxxxxx>
Sent: Sunday, July 26, 2009 11:54 AM
Subject: Re: How to change volume ID with VB6?



Hello Martin!
I do not want to change my volume label, or letter, I would like to change
my volume ID number, ID number usually has numeric value, example: 3235-5333 
The best regards
Darko Pogačić
Croatia

__________
View the list's information and change your settings at
http://www.freelists.org/list/programmingblind




--------------------------------------------------------------------------------



No virus found in this incoming message.
Checked by AVG - www.avg.com
Version: 8.5.392 / Virus Database: 270.13.30/2262 - Release Date: 07/25/09 18:01:00 

__________
View the list's information and change your settings at http://www.freelists.org/list/programmingblind

Other related posts: