checking disk freespace

[vbcdor]

Hi,I'm fairly new to VBScript and can't figure out what is wrong with the statement below. Basically, I'm trying to check for available freespace on two different drives and I plan on sending an email if the freespace is below a certain amount for each drive. I stuck in some Wscript.Echo commands to make sure the values were what I thought they were, and sure enough they were. My C: drive is 0.598 and F is 0.065, but when I execute this code, "str" is always set to null. It never executes the then clause on either if statement. What is wrong with my If statement?

str = ""
set oFs = WScript.CreateObject("Scripting.FileSystemObject")
set oDrives = oFs.Drives
strComputerName = GetCurrentComputerName 
For Each oDrive In oDrives
  Select Case oDrive.DriveType
  Case Fixed
    WScript.Echo oDrive.DriveLetter & " " & (Round (oDrive.FreeSpace / oDrive.TotalSize, 3)) 
    If oDrive.DriveLetter= C And Round(oDrive.FreeSpace / oDrive.TotalSize, 3) < 0.7 Then
      str = str & strComputerName & "    " & oDrive.DriveLetter & "    " & Round(oDrive.FreeSpace / oDrive.TotalSize, 2) & vbCrLf
    End If
    If oDrive.DriveLetter= F And Round(oDrive.FreeSpace / oDrive.TotalSize, 3) < 0.10 Then
      str = str & strComputerName & "    " & oDrive.DriveLetter & "    " & Round(oDrive.FreeSpace / oDrive.TotalSize, 2) & vbCrLf
    End If
  WScript.Echo 'str = ' str
  End Select
Next

 

[PHV]

Perhaps this ?
If oDrive.DriveLetter=[!]"[/!]C[!]"[/!]

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vbcdor]

well, it was a good thought. I just tried it and it didn't work.

 

[Azren]

There are lots of issues with your script but lets start with what are the drive letters of the drives you want to check free space for ?

 

[PHV]

Tip: use the Option Explicit instruction.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[vbcdor]

Actually, I stand corrected. I think it is working now. The WScript.Echo 'str = ' str is still displaying nothing (null), but I am receiving the email when I am suppose to.

thanks

 

[PHV]

WScript.Echo [!]"[/!]str = [!]" &[/!] str

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886