Question

我一直在寻找，但我无法找到一个例子。我想做的是创建一个脚本，将一台计算机一次将多台计算机连接到一个驱动器。我具有本地网络中计算机的IP地址，并且只想在一台计算机上运行脚本。理想情况下，它将网络驱动器映射到所有其他计算机的“计算机”屏幕上，该屏幕将是持久的，因此无需任何依赖即可访问。所有这些计算机之间的访问级别均相同，因此安全性和用户帐户控制应该不是太大的问题。这可能吗？

我的约束是我需要用vbscript编写此文件。到目前为止，这里是我所拥有的，但是这段代码无法正常工作，因为用于映射驱动器的网络对象不会为我尝试访问和写入的计算机创建对象。在这里，我唯一需要解决的唯一问题是如何使用计算机IP写入我在objWMIService变量中引用其名称的计算机，而不是将其写入我自己的计算机。

Dim wshnet, currentmapping
Dim colDisks, objDisk, letter

Dim computerIP


letter = "P:"


computerIP = "10.221.194.182"

set objWMIService = GetObject("winmgmts:" & "{impersonationLevel =impersonate}!\\" & computerIP & "\root\cimv2")
Set colDisks = objWMIService.ExecQuery ("select * from Win32_LogicalDisk Where Name = """ & letter & """")

For Each objDisk In colDisks
    Drivetype = objDisk.DriveType
    currentmapping = objDisk.ProviderName
Next

set wshnet = WScript.CreateObject("Wscript.Network")

if (currentmapping <> "") then
    wshnet.RemoveNetworkDrive letter, true, true
end if

wshnet.MapNetworkDrive letter, "\\servername\foldername"', True, "user", "pass"

使用IP地址将网络驱动器远程映射到计算机

0 个答案: