Vbscript 用于扫描和安装所有设备的VBS脚本

我正试图找到一种方法来扫描所有设备（没有安装驱动程序）并自动逐个安装它们

我制作了一个简单的脚本，用于添加/删除驱动程序位置的注册表值，因为我们有一个包含所有当前驱动程序的服务器，并且它经常更新，所以脚本不会手动将设备管理器指向该位置，而是为我执行此操作。 问题是我们在一个生产环境中工作，需要安装很多不同的设备，手动安装需要很长时间，即使使用脚本，我也必须单击每个设备并更新驱动程序，通过将脚本指向带有驱动程序的服务器，脚本只会使安装变得更简单

因此，基本上我试图让脚本添加位置（这很好用），并在不提示用户的情况下更新每个设备

Option Explicit

Set ws = WScript.CreateObject("WScript.Shell")
Dim s, ws, rl

rl = "HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\"

s = InputBox("Please select what you want to do" & _
        vbCrLf & vbTab & "1 - Clear all, set default driver path." & _
        vbCrLf & vbTab & "2 - Default path + production drivers" & _
        vbCrLf & vbTab & "3 - Default and production path + Skylake drivers")
If s = 1 then
        ws.RegWrite rl & "DevicePath", "%SystemRoot%\inf" , "REG_EXPAND_SZ"
    ElseIf s = 2 then
        ws.RegWrite rl & "DevicePath", "%SystemRoot%\inf; B:\LocalDrivers\; \\ccdsrv01\shares\Resources\Drivers\Client" , "REG_EXPAND_SZ"
    ElseIf s = 3 then
        ws.RegWrite rl & "DevicePath", "%SystemRoot%\inf; B:\LocalDrivers\; \\ccdsrv01\shares\Resources\Drivers\Client; \\ccdsrv01\shares\Resources\PreProd\SkyBay (Skylake-SunrisePoint)\New" , "REG_EXPAND_SZ"
End If 

---

pnputil.exe

和

devcon.exe

可以帮助。。。