Member Avatar for asihuay

Hi.
I am looking for vba or vb code to unassign, assign, switch, drive letter.
The hard disc will be identified by its serial number or by its name.
Thanks in advance.
asihuay

  • 2 Contributors
  • 1 Reply
  • 90 Views
  • 13 Hours Discussion Span
  • Latest Post Latest Post by Jx_Man
Member Avatar for Jx_Man

this following code to read name and serial number of HD :

Private Type DRIVEINFO
    HDDModel As String
    HDDIType As String
    HDDSerialNum As String
End Type
   
Dim info As DRIVEINFO
Public Function HDDSerialNumber()
Dim objs As Object
Dim obj As Object
Dim WMI As Object
    
    Set WMI = GetObject("WinMgmts:")
    Set objs = WMI.InstancesOf("Win32_DiskDrive")
    For Each obj In objs
        info.HDDModel = obj.Model
        info.HDDIType = obj.InterfaceType
    Next obj
    
    Set objs = WMI.InstancesOf("Win32_PhysicalMedia")
    For Each obj In objs
        info.HDDSerialNum = obj.SerialNumber
    Next obj
    Text1.Text = info.HDDModel
    Text2.Text = info.HDDIType
    Text3.Text = info.HDDSerialNum
End Function

Private Sub Form_Load()
HDDSerialNumber
End Sub
Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.