pcwUnstick DE

' pcwUnstick_de.vbs
''''''''''''''''''''''''''''''''''''''''''''''''
' Hier können Sie in der Variable sounddatei
' eine eigene WAV-Datei angeben.
' Beispiel: "C:\Windows\Media\Ding.wav"
''''''''''''''''''''''''''''''''''''''''''''''''

sounddatei = ""

''''''''''''''''''''''''''''''''''''''''''''''''
' Ab hier beginnt das Script:
''''''''''''''''''''''''''''''''''''''''''''''''

strMsg = ""
strComputer = "."

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMI.ExecQuery("Select DeviceID from Win32_DiskDrive WHERE InterfaceType='USB'")
For Each objDiskDrive In colDiskDrives
    Set colDiskPartitions = objWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Replace(objDiskDrive.DeviceID, "\", "\\") & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
    For Each objDiskPartition In colDiskPartitions
        Set colLogicalDisks = objWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & objDiskPartition.DeviceID & """} WHERE " & "AssocClass = Win32_LogicalDiskToPartition")
        For Each objLogicalDisk In colLogicalDisks
            if strUSBDrive = "" then
                strUSBDrive = objLogicalDisk.DeviceID
            else
                strUSBDrive = strUSBDrive & "und " & objLogicalDisk.DeviceID
            end if
        Next
    Next
Next

Set objWMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colDiskDrives = objWMI.ExecQuery("Select DeviceID from Win32_DiskDrive WHERE InterfaceType='1394'")
For Each objDiskDrive In colDiskDrives
    Set colDiskPartitions = objWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & Replace(objDiskDrive.DeviceID, "\", "\\") & """} WHERE AssocClass = Win32_DiskDriveToDiskPartition")
    For Each objDiskPartition In colDiskPartitions
        Set colLogicalDisks = objWMI.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & objDiskPartition.DeviceID & """} WHERE " & "AssocClass = Win32_LogicalDiskToPartition")
        For Each objLogicalDisk In colLogicalDisks
            if str1394Drive = "" then
                str1394Drive = objLogicalDisk.DeviceID
            else
                str1394Drive = str1394Drive & "und " & objLogicalDisk.DeviceID
            end if
        Next
    Next
Next

if strUSBDrive <> "" then
    strMsg = "Bitte USB-Laufwerk(e) " & strUSBDrive & " nicht vergessen" & chr(10)
end if

if str1394Drive <> "" then
    strMsg = strMsg & "Bitte Firewire-Laufwerk(e) " & str1394Drive & " nicht vergessen"
end if

if strMsg <> "" then
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set objWSH = CreateObject("Wscript.Shell")
    if sounddatei = "" then sounddatei = objWSH.ExpandEnvironmentStrings("%WINDIR%") & "\Media\Ringin.wav"
    if fso.FileExists(soundfile) then objWSH.Run "sndrec32.exe /play /close " & sounddatei, 0, false
    Msgbox strMsg, 16, "Externe Wechselmedien gefunden!"
end if