☰

改进以下VBScript共享驱动器输出到txt

tag-icon • tag-icon network-shares vbscript sharing
改进以下VBScript共享驱动器输出到txt

我正在使用以下 VBScript 为用户生成当前共享驱动器，我想提高 MappedDrives.txt 的效率

现在输出是这样的

H: (\\singsfile03\apps)
I: (\\singsfile03\IT Information)

问题 1:

我希望文本文件的输出具有这种格式，以便我可以将其保存为 bat 文件

NET USE H: "\\singsfile03\apps"
NET USE I: "\\singsfile03\IT Information"

问题2：

我如何改变输出以拥有非活动共享驱动器以及活动的共享驱动器？

strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objOutFile = objFSO.CreateTextFile(".\MappedDrives.txt")

Set colDrives = objWMIService.ExecQuery _
    ("Select * From Win32_LogicalDisk Where DriveType = 4")

For Each objDrive in colDrives
    objOutFile.WriteLine(objDrive.DeviceID & " (" & _
      objDrive.ProviderName & ")")
Next

objOutFile.Close

答案1

Q1：只需让 VBScript 在 For Each 部分输出您想要的字符串。

objOutFile.WriteLine("NET USE " & objDrive.DeviceID & " " &  chr(34) & _
      objDrive.ProviderName & chr(34))

在我的系统上

前：

H: (\\rpi4\share2)
Z: (\\192.168.0.12\share)

后：

NET USE H: "\\rpi4\share2"
NET USE Z: "\\192.168.0.12\share"

相关内容