登录脚本变量-从文本文件中读取

Question

我有一个简单的登录脚本，用于为用户映射驱动器

On Error Resume Next
Set objNetwork = CreateObject("Wscript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count-1 Step 2
    objNetwork.RemoveNetworkDrive colDrives.Item(i)
Next
Dim Network
Set Network = CreateObject("Wscript.network")
Network.MapNetworkDrive "P:","\server-Ashare name A"
Network.MapNetworkDrive "N:","\server-Ashare name B"
Network.MapNetworkDrive "S:","\server-Ashare name C"
Network.MapNetworkDrive "L:","\server-Bshare name A"
Network.MapNetworkDrive "T:","\server-Cshare name"
Network.MapNetworkDrive "V:","\server-Bshare name B"
Network.MapNetworkDrive "W:","\server-Dshare name"

我想把

"\server-Ashare name A"
"\server-Ashare name B"
"\server-Ashare name C"
"\server-Bshare name A"
"\server-Cshare name"
"\server-Bshare name B"
"\server-Dshare name"

在一个文本文件中，让我的脚本读取它并将其插入脚本。有人能告诉我怎么做吗?

Answer 1

考虑以下代码:

On Error Resume Next
Const SharesFile = "C:Testshares.txt"
Set objNetwork = CreateObject("WScript.Network")
Set colDrives = objNetwork.EnumNetworkDrives
For i = 0 to colDrives.Count -1 Step 2
    objNetwork.RemoveNetworkDrive colDrives.Item(i)
Next
Set objTxtStream = CreateObject("Scripting.FileSystemObject").OpenTextFile(SharesFile, 1, False, -2) ' charset: -2 = System default, -1 = Unicode, 0 = ASCII
For Each strLetter In Array("P:", "N:", "S:", "L:", "T:", "V:", "W:")
    If objTxtStream.AtEndOfStream Then Exit For
    objNetwork.MapNetworkDrive strLetter, objTxtStream.ReadLine
Next

shares.txt文本文件内容不应有引号:

\server-Ashare name A
\server-Ashare name B
\server-Ashare name C
\server-Bshare name A
\server-Cshare name
\server-Bshare name B
\server-Dshare name