Newbie - Available Disk Space

This should get you started.

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const HARD_DISK = 3
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set LogFile2 = objFSO.OpenTextFile("c:\driveinfo.txt", ForAppending, True)

Computer = inputbox("Name of the system you want to check for remaining disk
space.","System Name")

LogFile2.WriteLine "----------------------------------------" & vbcrlf &
vbtab & "** " & _
Ucase(Computer) & " **"
Set disks = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
Computer & _
"\root\cimv2").InstancesOf ("Win32_LogicalDisk")

for each disk in disks
if disk.drivetype = "3" then
outstr = "Drive(" & disk.name & ")" & vbtab & "File System: " &
disk.filesystem & vbcrlf & _
"Size: " & round(disk.size/1073741824, 2) & " GB" & vbtab & "Free: " &
_
round(disk.freespace/1073741824, 2) & " GB" & vbcrlf & "Percent Free: "
& round(disk.freespace/disk.size * 100, 2) & "%"
LogFile2.WriteLine outstr & vbcrlf
end if
next



"Giuliano Camarini de Oliveira" <gcoliveira.TakeThisOut@rocketmail.com> wrote in message
news:039201c3a7ed$116475b0$a601280a@phx.gbl...
> If possible, I'd like the results in a file output...
>
> Tks,
> Giuliano
>
>
> >-----Original Message-----
> >Sorry for the question, but i'm really newbie in this
> >stuff.
> >
> >How can I get the remote available disks space divided by
> >partition or volume?
> >
> >Tks in advance,
> >Giuliano
> >.
> >
 >> Stay informed about: Newbie - Available Disk Space 

I get an automation error on the statement:

Set disks = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
Computer & _
"\root\cimv2").InstancesOf ("Win32_LogicalDisk")

Is this looking for a \root\cimv2 share?
 >> Stay informed about: Newbie - Available Disk Space 

What is the exact error? What operating systems are involved? This script
runs fine for me on a Win2K machine getting info on other Win2K machines and
XP machines. No, \root\cimv2 is just a WMI namespace.

"TC" <anonymous.DeleteThis@discussions.microsoft.com> wrote in message
news:2D60C5FD-4485-4371-B508-8D5E38FCA7B9@microsoft.com...
> I get an automation error on the statement:
>
> Set disks = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &
> Computer & _
> "\root\cimv2").InstancesOf ("Win32_LogicalDisk")
>
> Is this looking for a \root\cimv2 share?
 >> Stay informed about: Newbie - Available Disk Space