'use this code in ur project Private Sub Command1_Click() Dim root As String Dim volume_name As String Dim serial_number As Long Dim max_component_length As Long Dim file_system_flags As Long Dim file_system_name As String Dim pos As Integer root = Text1.Text volume_name = Space$(1024) file_system_name = Space$(1024) If GetVolumeInformation(root, volume_name, _ Len(volume_name), serial_number, _ max_component_length, file_system_flags, _ file_system_name, Len(file_system_name)) = 0 _ Then MsgBox('Error getting volume information.' ') Exit Sub End If pos = InStr(volume_name, Chr$(0)) volume_name = Left$(volume_name, pos - 1) lblVolumeName.Caption = volume_name lblSerialNumber.Caption = Format$(serial_number) lblMaxComponentLength.Caption = _ Format$(max_component_length) pos = InStr(file_system_name, Chr$(0)) file_system_name = Left$(file_system_name, pos - 1) lblFileSystem.Caption = file_system_name lblFlags.Caption = '&&H' & Hex$(file_system_flags) End Sub On Fri, Apr 30, 2010 at 5:15 PM, JRAN123 via visualbasic-l wrote: > Posted by JRAN123 > on Apr 30 at 7:47 AM > Close visual basic.

Oct 14, 2009 - Net, c#, vb.net, asp.net and ms SQL. I found that this code gives you the serial number of the physical board and not. If you change the Win32_BaseBoard to Win32_BIOS you can pull the system's serial as set in the BIOS.

Turn off the computer. Open the computer casing and > look for the alpha-numeric code next to the words 'serial number' on the > label attached to the hard disk.

Sometime this may be abbreviated to 'S/N'. Hello You can try following code. Dim fso As Object, Drv As Object 'Create a FileSystemObject object Set fso = CreateObject('Scripting.FileSystemObject') 'Assign the current drive letter if not specified If DriveLetter ' Then Set Drv = fso.GetDrive(DriveLetter) Else Set Drv = fso.GetDrive(fso.GetDriveName(App.Path)) End If With Drv If.IsReady Then DriveSerial = Abs(.SerialNumber) Else 'Drive Not Ready!' DriveSerial = -1 End If End With 'Clean up Set Drv = Nothing Set fso = Nothing GetDriveSerialNumber = DriveSerial Sandeep Chadha. Rajeev, This is a perenniel question (it gets asked a lot). The best answer is to use Windows Management Instrumentation to retrieve the serial number from the physical disk(s) in the computer:. Public Sub GetDiskSerialNumber().Dim wmiObject As Object.Dim obj As Object.Set wmiObject = GetObject('WinMgmts:').For Each obj In wmiObject.InstancesOf('Win32_PhysicalMedia').Debug.Print obj.SerialNumber.Next obj End Sub.

This is NOT the same as the Logical Volume serial number (which is created when the partition is formatted); you can retrieve THAT value by using 'Win32_LogicalDisk' and the VolumeSerialNumber property. Have you never searched the list archive? John Warner From: AggInn via visualbasic-l [mailto:visualbasic-l@Groups.ITtoolbox.com] Sent: Friday, April 30, 2010 2:24 PM To: john Subject: RE:[visualbasic-l] How can i get serial number of Hard Disk Posted by AggInn (President) on Apr 30 at 2:22 PM Mark as helpful What do you mean that you have filed all these examples off line? What do you mean that you won't have to post the same question in 2 months?

Does that mean that the next time someone asks about hard drive serial numbers that the question simply is ignored? Are these examples that are stored off line availible for me to search and retrieve? Louis Vanderwiilt.

Ručni radovi (vezenje,pleteje,heklanje) What others are saying 'DIY bracelet diy crafts easy crafts crafty easy diy diy jewelry diy bracelet craft bracelet Except with aqua ribbon and silver beads'. Russkie runi tatischev serial. The Ural Mountains extend about 2,500 km (1,600 mi) from the Kara Sea to the Kazakh Steppe along the northern border of Kazakhstan. Vaygach Island and the island of Novaya Zemlya form a further continuation of the chain on the north.

I assume that you asked me that question, so I will respond. No, I have never searched the archive before. I do know that there is a search feature at the top of the web page and that is where I would start to research my problem. If you will re-read my question, it was with respect to 'off line' which would be beyond the search capiblity of the search engine.

When I find an interesting response to a question, I save it in a directory for future reference. I assume everyone does that. Therefore, when Ron said that this comes up periodically so he was going to store off line, I assumed that he was making a comment in an official capacity of the web site. I could not understand why the site would do what Ron was talking about; therefore, I asked 'What's Up!' Louis Vanderwilt.

The software/ Application is capable of ruing consoles games on pc which are more effective in graphics and some games that we wish to play on our pc are now easy to play on pc. Free download game ps 2 for pc tanpa emulator for pc download. Free Download Full Version PC Game Fullypcgamez.net Download PS2 Emulator For PC.

Hi Mike, I am Godwin of Ghana and want to display the result of the date input in a textBox in a label. Ie when the user enter the date in the textBox, it will be display in the AgeLabel. Using VB 6 Thank you.

From: Michael Meyers-Jouan via visualbasic-l To: gnbns Sent: Fri, April 30, 2010 6:33:53 AM Subject: RE:[visualbasic-l] How can i get serial number of Hard Disk Posted by Michael Meyers-Jouan (Software Developer) on Apr 30 at 9:32 AM Mark as helpful Rajeev, This is a perenniel question (it gets asked a lot). The best answer is to use Windows Management Instrumentation to retrieve the serial number from the physical disk(s) in the computer:. Public Sub GetDiskSerialNumber().Dim wmiObject As Object.Dim obj As Object.Set wmiObject = GetObject('WinMgmts:').For Each obj In wmiObject.InstancesOf('Win32_PhysicalMedia').Debug.Print obj.SerialNumber.Next obj End Sub. This is NOT the same as the Logical Volume serial number (which is created when the partition is formatted); you can retrieve THAT value by using 'Win32_LogicalDisk' and the VolumeSerialNumber property.