Get drive information of Remote Server using WMI

To use this code you need to add reference to System.Management namespace.

Imports System.Management

Public Class Form1

Dim strFreespace As String
Dim D_Freespace As Double
Dim strTotalspace As String
Dim D_Totalspace As Double

Private Sub Button1_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArgs _
) Handles Button1.Click

End Sub

Private Sub CalculateFreeUsed(ByVal srvname As String)
Dim msg As String

' Connection credentials to the remote computer -
' not needed if the logged in account has access
Dim oConn As New ConnectionOptions()

oConn.Username = "mum-users\dsakpal"
oConn.Password = "*****"
Dim strNameSpace As String = "\\"

If srvname <> "" Then
strNameSpace += srvname
strNameSpace += "."
End If

strNameSpace += "\root\cimv2"

Dim oMs As New System.Management.ManagementScope(strNameSpace, oConn)

'get Fixed disk stats
Dim oQuery As New System.Management.ObjectQuery("select FreeSpace,Size,Name from Win32_LogicalDisk where DriveType=3")

'Execute the query
Dim oSearcher As New ManagementObjectSearcher(oMs, oQuery)

'Get the results
Dim oReturnCollection As ManagementObjectCollection = oSearcher.[Get]()

'loop through found drives and write out info
For Each oReturn As ManagementObject In oReturnCollection
' Free Space in bytes
D_Freespace = System.Convert.ToDouble(oReturn("FreeSpace"))
' Free Space in GB
strFreespace = (((D_Freespace / 1024) / 1024) / 1024).ToString("0.00")
' Size in bytes
D_Totalspace = System.Convert.ToDouble(oReturn("Size"))
' Size in GB
strTotalspace = (((D_Totalspace / 1024) / 1024) / 1024).ToString("0.00")

msg = "Drive: {0}" & ControlChars.NewLine
msg = msg & "Total space: {1} GB" & ControlChars.NewLine
msg = msg & "Free Space: {2} GB" & ControlChars.NewLine
msg = String.Format(msg, oReturn("Name").ToString(), strTotalspace, strFreespace)
msg = "Failed to obtain Server Information."
MessageBox.Show(msg, "Server Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
End Try
End Sub

End Class

No comments: