Private Function GetDiskSize() Dim diskSize As Double 'Dim oConn As ConnectionOptions = New ConnectionOptions() 'Dim passWord As string 'oConn.Username = InputBox("User Name Please", "Credentials: Username...") 'oConn.Password = InputBox("Password Please", "Credentials: Password...") Dim oMs As New Management.ManagementScope("\\" & computerName & "\root\cimv2") 'Dim oMs As System.Management.ManagementScope = New System.Management.ManagementScope("\\" & computerName & "\root\cimv2", oConn) Dim query As ObjectQuery query = New ObjectQuery("SELECT Size, FROM Win32_LogicalDisk where DriveType=3") Dim searcher As ManagementObjectSearcher searcher = New ManagementObjectSearcher(oMs, query) Dim queryCollection As ManagementObjectCollection queryCollection = searcher.Get() Dim m As ManagementObject For Each m In queryCollection ' Display the remote computer information diskSize = Format(m("size") / 1024 ^ 3, "0.00") 'diskSize= diskSize.ToString() & " Gb" '"Size :" + m("size").ToString ''+ vbCrLf + Label1.Text 'Label2.Text = "FreeSpace :" + m("freespace").ToString ''+ vbCrLf + Label2.Text 'lblRequiredDiskSize.text = "Name : " + m("name") '+ vbCrLf + Label3.Text Next Return diskSize End Function
Win32_PhysicalMemory
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)