Get remote pc hard disk size using vb.net 2010

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