2011年6月7日火曜日

telnetでメール送信

  • このエントリーをはてなブックマークに追加


telnetでメールを送信する

telnet [smtp server] 25
HELO 自分のメールドメイン(実際に任意の文字列でもいい)
Mail From:test@example.com
Rcpt To:test1@example.co.jp
Data
Subject:件名
This is Data. using . to finish input
.

参考

2011年6月1日水曜日

Powershell フォルダサイズとファイル数を取得

  • このエントリーをはてなブックマークに追加


Get-ChildItem 'C:\temp' -Recurse -Force | Measure-Object -Property Length -sum
Count : 85
Average :
Sum : 1738905280
Maximum :
Minimum :
Property : Length

countはファイル数
sumはフォルダのサイズ(bit単位)

※注意
C:\Program Files、C:\Windowsのようなフォルダ以外のフォルダを指定してください。

VBScript

Public Function GetFileCountRecursive(byVal strFolder)
Dim count 'ファイル数
count = 0
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")
call FileCount(fso.GetFolder(strFolder),count)
GetFileCountRecursive = count
End Function

Private Sub FileCount(Folder, byRef count)
count = count + Folder.Files.Count
Dim Subfolder
For Each Subfolder in Folder.SubFolders
call FileCount(SubFolder,count)
next
End Sub

'-------------------------------------------------------------------------------------------
' 指定フォルダ以下のファイルサイズの取得
'-------------------------------------------------------------------------------------------
' strFolder - フォルダ名(文字列)
'-------------------------------------------------------------------------------------------
Public Function GetFolderSize(byVal strFolder)
Dim fso
Set fso = CreateObject("Scripting.FileSystemObject")

Dim Folder
Set Folder = fso.GetFolder(strFolder)
Dim Size
Size = Folder.Size
GetFolderSize = Size
End Function