每次回傳硬碟容量

程式設計硬碟容量

yyy00369 2018-06-17 01:39:03 ‧ 2018 瀏覽

分享至

[新手]
由於我是硬體走來的
公司現在要我嘗試寫一個硬碟容量回傳的程式
看別人寫過的範例修改部分的參數黨都已經沒有了
嘗試過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

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

還請各位前輩協助

michaelwan iT邦高手 1 級 ‧ 2018-06-20 11:20:30 檢舉

WIN的系統管理用WSH或POWERSHELL寫都很方便, 不過現在都用監控系統了,實在沒必要由管理員再寫scrip.

蟹老闆 iT邦大師 1 級 ‧ 2018-06-21 20:28:33 檢舉

如方便的話能剪輯影片或截圖給我的電子信箱嗎??
呵,這個手伸得有點長了,改天是不是要遠端幫忙設定好?
此風不可長

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

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