'*** HWSCAN.vbs Script begins
'Written by Alan Kaplan, www.akaplan.com/tools.html
'based on a script written by Zubair Ahmad
'This Windows 2000 script rescans for hardware devices.
'example of AppActivate and SendKeys

set WshShell = CreateObject("WScript.Shell")
WshShell.Run "devmgmt.msc"
WScript.Sleep 1000
While WshShell.AppActivate("Device Manager") = FALSE
     wscript.sleep 1000
Wend
WshShell.AppActivate "Device Manager"
WScript.Sleep 200
WshShell.Sendkeys "{TAB}"
WScript.Sleep 200
WshShell.SendKeys "%A"
WScript.Sleep 200	
WshShell.SendKeys "A"
While WshShell.AppActivate("Scanning Plug and Play Compliant Hardware...") = TRUE
     wscript.sleep 5000
Wend
WshShell.AppActivate "Device Manager"

'Wscript.Sleep 500
WshShell.Sendkeys "{ENTER}"
Wscript.Sleep 500
WshShell.Sendkeys "%{F4}"
*** Script Ends