如何使用vbscript附加到远程计算机上的主机文件

有时我需要编辑远程机器上的主机文件。如果我能使用一个快速的vbscript来实现这一点，事情会变得容易得多。我正在编写的脚本没有进行更改，我也不太清楚原因

on error resume next
Const ForReading = 1, ForWriting = 2, ForAppending = 8 
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell=CreateObject("WScript.Shell")
strComputer   = inputbox("Enter remote computer name or leave as localhost for this computer","Get Hosts file","Localhost")
If strComputer = "" Then
    WScript.Quit
End If

HostsFile = strComputer & "\Windows\System32\Drivers\etc\Hosts" 

Set filetxt = fso.OpenTextFile(HostsFile, ForAppending, True)
DNSEntry = inputbox("Enter the DNS entry" & vbCrLf & "ex: 192.168.0.2         domain.com","DNSEntry")
If DNSEntry = "" Then
    WScript.quit
Else
filetxt.WriteLine(DNSEntry)
filetxt.Close 
End If

WScript.quit

---

如果您计划使用管理共享，请更改此行：

HostsFile = strComputer & "\Windows\System32\Drivers\etc\Hosts"

到

---

摆脱邪恶的全球厄恩。评论出来，仍然没有好。但你会得到一个错误消息。事实上，我没有得到任何错误。这段代码就像是在工作，但不工作。我使用msgboxes查看代码的位置，并返回它正在执行的操作以及它似乎正在工作。只是没有。在您尝试打开该文件之前，

HostsFile

的值是多少？

HostsFile = "\\" & strComputer & "\c$\Windows\System32\Drivers\etc\Hosts"