Set objShell = CreateObject("shell.application")
Set objDrive = objShell.Namespace(WScript.Arguments(0)).Self

For Each verb in objDrive.Verbs
  If verb.Name = "²¨³»±â(&J)" Then verb.DoIt
  WScript.Sleep(100)
Next

Set objShell = Nothing
Set objDrive = Nothing