Dim strConstr As String = "winmgmts://" & strServer & "/root/cimv2"
        wmiObj = GetObject(strConstr)
 
        queryObj = wmiObj.ExecQuery("Select * from Win32_LogicalDisk")
        arrServerData(0).strName = strServer
        For Each itemObj In queryObj
            Try
                arrServerData(i).strCaption = itemObj.Caption
                arrServerData(i).lngDriveTypeVal = itemObj.DriveType
                arrServerData(i).lngFreeSpaceVal = itemObj.FreeSpace
                arrServerData(i).lngSizeVal = itemObj.Size
                i = i + 1
            Catch ex As Exception
 
            End Try
        Next