' 指定したドライブ文字列（例： "C:"）を設定します
Const targetDrive = "C:"

' WScript.Shell オブジェクトを作成します
Set objShell = CreateObject("WScript.Shell")

' 指定したドライブが既に割り当てられているかを確認します
If DriveExists(targetDrive) Then
    ' ドライブを切断します
    DisconnectDrive targetDrive
    WScript.Echo targetDrive & " ドライブが切断されました。"
Else
    WScript.Echo targetDrive & " ドライブは割り当てられていません。"
End If

' ドライブが既に割り当てられているかを確認する関数
Function DriveExists(driveLetter)
    Dim fso, drive
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    Set drive = fso.GetDrive(driveLetter)
    On Error GoTo 0
    If Not drive Is Nothing Then
        DriveExists = True
    Else
        DriveExists = False
    End If
    Set fso = Nothing
End Function

' ドライブを切断する関数
Sub DisconnectDrive(driveLetter)
    Dim oNetwork
    Set oNetwork = CreateObject("WScript.Network")
    oNetwork.RemoveNetworkDrive driveLetter, True, True
    Set oNetwork = Nothing
End Sub