如何用VBS或BAT修改磁盘卷标

set ws=createobject("wscript.shell")
if msgbox("现在将把D盘的卷标设置为SSS，是否继续？",vbyesno+32+4096,"友情提示")=vbno then wscript.quit
ws.run "cmd /c label D: sss",0,true
if msgbox ("已经将D盘的卷标设置为SSS，点击[确定]将删除D盘卷标,[取消]退出脚本！",vbokcancel+48+4096,"系统提示")=vbcancel then wscript.quit
ws.run "cmd /k label D:"
wscript.sleep 1000
ws.appactivate "cmd.exe"
wscript.sleep 100
ws.sendkeys "~"
wscript.sleep 100
ws.sendkeys "y"
wscript.sleep 100
ws.sendkeys "~"
wscript.sleep 100
ws.sendkeys "exit"
wscript.sleep 100
ws.sendkeys "~"
wscript.sleep 100
msgbox "已经将D盘的卷标删除！",4096,"系统提示"