#bas
On Error Resume Next
Set objService = GetObject("winmgmts:{impersonationLevel=impersonate}!\.ootCIMV2")
If Err.Number <> 0 Then
	WScript.Echo Err.Number & ": " & Err.Description
	WScript.Quit
End If
For Each objDP In objService.ExecQuery("SELECT * FROM  Win32_LogicalDisk")
	

WScript.Echo objDP.Name + ";" + objDP.VolumeName
 	
Next