Imports
WbemScriptingPublic
Class wmiPublic Function RetrieveDiscInfo(ByVal strServerName As String, ByRef str_ar As Array)
Dim objSWSet As SWbemObjectSet
objSWService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strServerName & "\Root\CimV2")
objSWSet = objSWService.InstancesOf("Win32_LogicalDisk")
For Each objSWObject In objSWSetNext End FunctionDebug.Write(objSWObject.description)
Debug.Write(objSWObject.FileSystem)
End
Class