[系统相关] 【已解决】求助vbs与bat混编修改虚拟盘符的卷标

kingshui

我想改变我用subst创建的虚拟盘符的卷标
已知下面的命令无法改变由subst创建的盘符

@echo off
subst X: c:\personalfiles
wmic logicaldisk where "deviceid='X:'" set volumename="Development"
pause
复制代码

但是可以用这个vbs脚本来改变

Set oShell = WScript.CreateObject("Shell.Application")
oShell.NameSpace("X:\").Self.Name = "Development"
复制代码

实话了VBS不熟悉。。。
我改成这样没有生效：

@echo off
subst X: c:\personalfiles
mshta vbscript:CreateObject("Shell.Application").NameSpace("X:\").Self.Name = "Development"
复制代码

现在想请教下如何修改上面的脚本才能生效？谢谢。

BTW:只想研究批的处理方案。

回复 2# flyinnet9

谢谢回复，但是自己终于搞定了，

:On Error Resume Next
Sub bat
echo off & cls
'&subst X: c:\personalfiles
start wscript -e:vbs "%~f0"
Exit Sub
End Sub
Set oShell = WScript.CreateObject("Shell.Application")
oShell.NameSpace("X:\").Self.Name = "Personal Files"
复制代码

kingshui

回复 5# pcl_test


    pcl_test大大的起作用了，，我也这样写过，但是没注意双引号的问题。

感谢两位。

kingshui

回复 4# CrLf
CrLf你的两行我都重新试了下，还是没有起到作用。

pcl_test

mshta VBScript:Execute("CreateObject(""Shell.Application"").NameSpace(""X:\"").Self.Name=""Development"":close")
复制代码

CrLf

mshta 中只处理 %1 的参数，试试这个：

mshta vbscript:CreateObject("Shell.Application").NameSpace("X:\").Self.Name="Development"
复制代码

或者这个：

mshta "vbscript:CreateObject("Shell.Application").NameSpace("X:\").Self.Name = "Development""
复制代码

kingshui

label改不了虚拟盘的卷标的，跟wmic的操作一样。

flyinnet9

cmd 下label命令可以更改卷标，虚拟盘符的不确认，你可以试一下