[VBScript]HDD残量を調べる

hdd.vbs

Set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set objSWbemObjectCollection = objWMIService.ExecQuery("Select * from Win32_LogicalDisk Where DriveType = 3")

For Each objSWbemObject in objSWbemObjectCollection
    'デバイスID C:などを取得する
    DeviceID = objSWbemObject.DeviceID

    'ハードディスクのフルサイズを取得する
    Size = objSWbemObject.Size
    SizeGB = Size / 1024 / 1024 / 1024
    SizeMB = Size / 1024 / 1024

    'ハードディスクの空き領域を取得する
    FreeSpace = objSWbemObject.FreeSpace
    FreeSpaceGB = FreeSpace / 1024 / 1024 / 1024
    FreeSpaceMB = FreeSpace / 1024 / 1024

    'ハードディスク使用量を計算する
    UseVolume = Size - FreeSpace
    UseVolumeGB = UseVolume / 1024 / 1024 / 1024
    UseVolumeMB = UseVolume / 1024 / 1024

    msg = "DeviceID=" & DeviceID & vbCrlf
    msg = msg & "Size=" & FormatNumber(Size, 0, -1, 0, -1)
    msg = msg & " (" & FormatNumber(SizeMB, 2, -1, 0, -1) & " MB"
    msg = msg & ", " & FormatNumber(SizeGB, 2, -1, 0, -1) & " GB)" & vbCrlf
    msg = msg & "FreeSpace=" & FormatNumber(FreeSpace, 0, -1, 0, -1)
    msg = msg & " (" & FormatNumber(FreeSpaceMB, 2, -1, 0, -1) & " MB"
    msg = msg & ", " & FormatNumber(FreeSpaceGB, 2, -1, 0, -1) & " GB)" & vbCrlf
    msg = msg & "UseVolume=" & FormatNumber(UseVolume, 0, -1, 0, -1)
    msg = msg & " (" & FormatNumber(UseVolumeMB, 2, -1, 0, -1) & " MB"
    msg = msg & ", " & FormatNumber(UseVolumeGB, 2, -1, 0, -1) & " GB)" & vbCrlf
    MsgBox msg
Next

[VBScript]FormatNumber

FormatNumber(IngNum [, IngBeam, blnInc1, blnInc2, blnInc3])

• 数値形式の文字列に書式を設定
• IngNum: 書式を変換する数値
• IngBeam: 小数点以下に表示する桁数
• blnInc1: 小数点の左側のゼロを表示するかどうか
• blnInc2: 負の値を括弧で囲むかどうか
• blnInc3: 桁区切りの記号を使用して数値を区切るかどうか
  • -1=桁区切り記号を表示する
  • 0=桁区切り記号を表示しない)

[VBScript]Folderのサイズを調べる

folderSize.vbs

Set objFileSystem = CreateObject("Scripting.FileSystemObject")
Set objFsf = objFileSystem.GetFolder("C:\Users\e11191\Downloads")

Dim Size
Dim SizeMB
Dim SizeGB
Size = objFsf.Size
SizeMB = Size / 1024 / 1024
SizeGB = Size / 1024 / 1024 / 1024
msg = "Name=" & objFsf.Name & vbCrlf
msg = msg + "Size=" & FormatNumber(Size, 0, 0, 0, -1) & "(" & FormatNumber(SizeMB, 2, 0, 0, -1) & " MB, " & FormatNumber(SizeGB, 2, 0, 0, -1) & " GB)" & vbCrlf
msg = msg + "Files.Count=" & objFsf.Files.Count & vbCrlf
msg = msg + "SubFolders.Count=" & objFsf.SubFolders.Count & vbCrlf
MsgBox msg

[VBScript]Hellow, world

helloWorld.vbs

' 変数宣言
Dim msg

' メッセージを表示する
msg = "Hello, world"
MsgBox msg

' 改行 (vbCrlf)
msg = "Hello, world" & vbCrlf
msg = msg & "It is fine today."
MsgBox msg