安装鼠标驱动

Set objWMIService = Getobject("winmgmts:\\.\root\cimv2") '连接到WMI的命令空间\root\cimv2
set objs =objwmiservice.execQuery("select * from Win32_PointingDevice") '把类Win32_PointingDevice实例化
Set WshShell = WScript.CreateObject("WScript.Shell") '创建shell对象
strINFPath = WshShell.ExpandEnvironmentStrings("%WinDir%") & "\inf\" '获取INF路径
strINF="input.inf" '要安装的inf文件
If objs.Count = 0 Then '如果没有鼠标，就安装inf文件(就是说安装驱动),按老楚的说法就是掉驱动,于是灵机一动，就想到了装驱动的方法
    WshShell.run "rundll32 syssetup,SetupInfObjectInstallAction DefaultInstall 128 " & strINFPath & strINF
End If