Re: How to change volume ID with VB6?
- From: "Martin Slack" <m.g.slack@xxxxxxxxxxxx>
- To: <programmingblind@xxxxxxxxxxxxx>
- Date: Sun, 26 Jul 2009 14:44:04 +0100
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
//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
//www.freelists.org/list/programmingblind
Other related posts:
