[strawberry]

following script gives an overflow error, help!
---------------
On Error Resume Next
strComputer = "10.0.0.3"
MailServer="10.0.0.5"
Dim emailaddy
Dim holder
dim diskspace1
dim diskspace2
dim a
dim b
dim c
Dim objWMI : Set objWMI = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

strDrive = "Win32_LogicalDisk.DeviceID=" & chr(34) & "D:" & chr(34)

Set colQuotas = objWMI.ExecQuery ("Select * from Win32_DiskQuota Where QuotaVolume = '" & strDrive & "'")

For Each objQuota in colQuotas

If objQuota.Status=2 Then

diskspace1 = objQuota.DiskSpaceUsed\1000000

diskspace2 = objQuota.Limit\1000000

a = objQuota.DiskSpaceUsed
b = objQuota.Limit
c = (a - b) \1000000


holder = objQuota.User
holder = right(holder,len(holder)-40)
holder = left(holder,len(holder)-1)


Wscript.Echo " Mailing : " & emailaddy
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "you have reached your Quota limit."
????: EduGeek.net Forums http://www.edugeek.net/forums/scripts/23367-vbs-overflow-error.html
objMessage.From = "Quotacheck@***.co.uk"
objMessage.To = "*****"
objMessage.TextBody = "Hello, You have used all the diskspace afforded to your by your quota. Please consider removing some of the files you have placed on the network."



'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "10.0.0.5"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

else
END IF
Next

[powdarrmonkey]

On which line does it overflow?

[SYNACK]

Have you made sure that none of the variables are ending up as zero?
Overflow when trying to divide - ASP Free

[strawberry]

Originally Posted by powdarrmonkey

On which line does it overflow?

fairly sure its this one...

diskspace1 = objQuota.DiskSpaceUsed\1000000

it gives a huge number when it does, so i wonder if i need to declare the variable in a different way.

[powdarrmonkey]

You probably want a double-precision variable, not a single, but I don't know how to declare one in VB. In C it is just type double.

[strawberry]

found it, the / should have been \ . so it was returning zero