CodeGuru content and product recommendations are editorially independent. We may make money when you click on links to our partners. Learn More.
' Retreives the drive serial number in a Win32 system.
' This is a great example of how to use the WMI scripting library.
'
' The latest version of the library can be downloaded from Microsoft.
'
' The WMI Scripting type library must be referenced to use this routine.
'
' to add the WMI Scripting type library to the project references
'
' 1.Select References from the Project menu.
'
' 2.In the Available References dialog box, select Microsoft WBEM
' Scripting V1.0 Library or Microsoft WMI Scripting V1.1
' Library (whichever appears).
'
' 3.If no suitable option appears in the Available References list,
' add it by using the Browse button in the References dialog
' box. The Browse button opens an Add Reference dialog box
' that enables you to locate the WbemScripting type library.
' The WbemScripting type library resides in the file
' Wbemdisp.tlb in the Wbem installation directory. on
' computers with the Windows 98 operating system, this type
' library is located in the WindowsSystemWbem directory.
' On computers with the Microsoft. Windows NT./Windows 2000
' operating system, this type library is located in the
' WinntSystem32Wbem directory.
'
' 4.Select the file and click Open. Microsoft WBEM Scripting V1.0
' Library or Microsoft WMI Scripting V1.1 Library appears on
' the references list.
' Make sure you select the check the box next to this item in the list.
'
'
Sub main()
'
set objinst = GetObject("WinMgmts::Win32_LogicalDisk='C:'")
MsgBox (GetObject "WinMgmts::Win32_LogicalDisk='C:'").
VolumeSerialNumber)
'
End Sub
