iT邦幫忙

0

每次回傳硬碟容量

[新手]
由於我是硬體走來的
公司現在要我嘗試寫一個 硬碟容量回傳的程式
看別人寫過的範例 修改 部分的參數黨都已經沒有了
嘗試過C python 以及JAVA
但是我都沒有執行成功的

還請各位前輩教導

看更多先前的討論...收起先前的討論...
froce iT邦研究生 1 級 ‧ 2018-06-17 21:14:25 檢舉
那個作業系統的?怎麼回傳?
yyy00369 iT邦新手 5 級 ‧ 2018-06-18 14:24:27 檢舉
windown 的 以電子信箱回傳
ayu iT邦研究生 2 級 ‧ 2018-06-18 21:34:00 檢舉
fsutil volume diskfree c: > d:\du-c.txt
系統管理工具 排程工作 工作排程器 建立基本工作精靈
傳送電子郵件 附件d:\du-c.txt
yyy00369 iT邦新手 5 級 ‧ 2018-06-19 11:06:42 檢舉
ayu 感謝您的提供
但是我開道精靈這邊 我不曉得開如何設定
他怎麼知道辨別C碟跟D碟呢 ??
如方便的話 能剪輯影片或截圖給我的電子信箱嗎??

名稱後面加gmail的信箱
yyy00369 iT邦新手 5 級 ‧ 2018-06-19 18:38:10 檢舉
另外他的電子郵件方式已過時無法使用

https://social.technet.microsoft.com/Forums/zh-TW/a03d9bac-ecea-4028-90ed-7f2ead863171/3553121839288582016040636windows?forum=winserver2012zhtw

有在網路上看到直如他的程式碼 但程式碼的部分我看不懂...

還請各位前輩協助
WIN的系統管理用WSH或POWERSHELL寫都很方便, 不過現在都用監控系統了,實在沒必要由管理員再寫scrip.
蟹老闆 iT邦大師 1 級 ‧ 2018-06-21 20:28:33 檢舉
如方便的話 能剪輯影片或截圖給我的電子信箱嗎??
呵,這個手伸得有點長了,改天是不是要遠端幫忙設定好?
此風不可長

1 個回答

0
michaelwan
iT邦高手 1 級 ‧ 2018-06-20 15:08:25
Set objFSO = CreateObject("Scripting.FileSystemObject")
For Each Driver in objFSO.Drives
	If Driver.DriveType = 2 then
		MailBody=MailBody & "Driver letter:" & Driver.DriveLetter & " Totalsize:" & fix(Driver.Totalsize/2^20) & "MB" &_
			" FreeSpace:" & fix(Driver.FreeSpace/2^20) & "MB" & vbCrLf
	End If
Next
Set objEmail = CreateObject("CDO.Message")
objEmail.From = "寄件者郵件"
objEmail.To = "收件者郵件"
objEmail.Subject = "郵件主旨" 
objEmail.Textbody = MailBody
objEmail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "SMTP主機位址"
objEmail.Configuration.Fields.Item _
   ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send

我自己開了個頭...就自己補SCRIPT吧.

我要發表回答

立即登入回答