Get Drive Serial : Management « Windows System « VB.Net

Home
VB.Net
1.2D
2.Application
3.Class
4.Data Structure
5.Data Types
6.Database ADO.net
7.Development
8.Event
9.File Directory
10.Generics
11.GUI
12.Language Basics
13.LINQ
14.Network Remote
15.Security
16.Thread
17.Windows Presentation Foundation
18.Windows System
19.XML
20.XML LINQ
VB.Net Tutorial
VB.Net by API
VB.Net » Windows System » ManagementScreenshots 
Get Drive Serial
  
Public Class MainClass
    Public Shared Function GetDriveSerial(ByVal DriveLetter As StringAs String
        Dim strSelectText As String = "Win32_logicaldisk='" & DriveLetter & "'"
        Dim objMO As New System.Management.ManagementObject(strSelectText)
        objMO.Get()
        Return CType(objMO.Properties("VolumeSerialNumber").Value, String)
    End Function
    Public Shared Sub Main
        System.Console.WriteLine(GetDriveSerial("C:"))
    End Sub
End Class

   
    
  
Related examples in the same category
www.java2java.com | Contact Us
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.