作成 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
タグ: VBScript WMI

©2004-2017 UPKEN IPv4