Posted on 2008-06-16 06:13
nt05 阅读(159)
评论(0) 编辑 收藏 引用 所属分类:
windows nt
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