檢測系統磁盤驅動器的剩餘容量，適時併發出警告郵件

將程序添加到計劃任務中即可實現自動檢測。
本程序時在域中服務器運行。
程序中如涉及郵件服務器的驗證問題而不能發送郵件，還需要補充程序實現。

dim freesize

dim driveArg,dObject,driveName
set dObject=createObject("scripting.FileSystemObject")

'ask augument  f:
'if wscript.arguments.count<1 then _
'	wscript.echo "請在命令行參數中指定要查詢的驅動器，例如C:",_
'wscript.quit(1)
'driveArg= dObject.GetAbsolutePathName(Wscript.arguments(0))

driveArg= dObject.GetAbsolutePathName("f:")
driveName=dObject.getDriveName(driveArg)

with dObject.getDrive(driveName)
	freesize=.Freespace
	'wscript.echo "Drive",.DriveLetter,": Free ",.Freespace/1024/1024,"MB, FileType ",.FileSystem
end with
set dObject=nothing
'MsgBox "a:"&FormatNumber(freesize/1024/1024, 0, -1, , 0)


if freesize/1024/1024<800 then
'msgbox "send mail"
Dim MailObject 
Set MailObject = CreateObject("CDONTS.NewMail") 
MailObject.From="[email protected]"
MailObject.To="[email protected];[email protected]" 
MailObject.Cc="[email protected]"
MailObject.Subject="["&getComName()&"] free space of folder EE_Designs is low."
MailObject.BodyFormat=0
MailObject.MailFormat=0
MailObject.Body="Free space is "&FormatNumber(freesize/1024/1024, 2, -1, , 0)&" MB,lower than 800 MB"
MailObject.Send
'response.Write("success")
set MailObject=nothing
end if

Function getComName
	Dim name,objnet
	Set objnet = CreateObject ("WScript.Network")
	name=objnet.ComputerName
	'MsgBox name
	getComName=name
End Function