作成 2010.01.08
更新 2010.01.08
更新 2010.01.08
VBScript でドライブにメディアがあれば警告するサンプル
このサンプルではCドライブとZドライブ以外に何かあれば警告を表示します。
ログオフ スクリプトに指定することで、ディスクの抜き忘れを防止することができるかもしれませんが、ログオフはキャンセルできません。
ログオフ スクリプトに指定することで、ディスクの抜き忘れを防止することができるかもしれませんが、ログオフはキャンセルできません。
Option Explicit
Dim wmiLocator
Dim wmiService
Dim objEnumerator
Dim objInstance
Dim strLetter
Set wmiLocator = CreateObject("WbemScripting.SWbemLocator")
Set wmiService = wmiLocator.ConnectServer
Set objEnumerator = wmiService.InstancesOf("Win32_LogicalDisk")
For Each objInstance In objEnumerator
strLetter = objInstance.Name
' WScript.Echo strLetter
' 例：CドライブとZドライブ以外を検査する
If Not strLetter = "C:" And _
Not strLetter = "Z:" Then
If objInstance.Size > 0 Then
strLetter = Left(strLetter, 1)
WScript.Echo strLetter & " ドライブからメディアを抜いてください。"
End If
End If
Next