Переписать скрипт *.vbs в проект Visual Basic 6.0

[muadib]

Есть скрипт на vbs:
-------------------------

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDiskQuotas = objWMIService.ExecQuery("Select * from Win32_DiskQuota")

For each objQuota in colDiskQuotas
Wscript.Echo "Disk Space Used: " & vbTab & objQuota.DiskSpaceUsed
Wscript.Echo "Limit: " & vbTab & objQuota.Limit
Wscript.Echo "Quota Volume: " & vbTab & objQuota.QuotaVolume
Wscript.Echo "Status: " & vbTab & objQuota.Status
Wscript.Echo "User: " & vbTab & objQuota.User
Wscript.Echo "Warning Limit: " & vbTab & objQuota.WarningLimit
Next
---------------------------------

Надо его переписать на vb6.0 как это сделать (пример)?

PS: А есть примеры с кодом, что-бы было понятно как использовать WMI в VB 6.0 или мануал?

[KDima]

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colDiskQuotas = objWMIService.ExecQuery("Select * from Win32_DiskQuota")

For Each objQuota In colDiskQuotas
Print "Disk Space Used: " & vbTab & objQuota.DiskSpaceUsed
Print "Limit: " & vbTab & objQuota.Limit
Print "Quota Volume: " & vbTab & objQuota.QuotaVolume
Print "Status: " & vbTab & objQuota.Status
Print "User: " & vbTab & objQuota.User
Print "Warning Limit: " & vbTab & objQuota.WarningLimit
Next