On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" + _
  strComputer + "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk", , 48)
For Each objItem In colItems
    temp = objItem.Size / 1024 / 1024 / 1024
    temp1 = Round(temp, 2)
    lblPath(0).Caption = temp1