VBS Script to force a Wsus update detection on a single computer

This script forces a Windows Update Detection immediately on single computer by inputing either its name or IP.

 ' Force a Windows Update Detection now on single computer by inputing name or IP of computer  
 'Script is now ignoring errors. For those who wish to see errors just add a ' to the on error resume next below  
 on error resume next  
 strComputer = inputbox("Enter a computer name or IP address to run a WUA detection now","Invoke detectnow")  
 if strComputer = "" then wscript.quit  
 Set autoUpdateClient = CreateObject("Microsoft.Update.AutoUpdate",strComputer)  
 AutoUpdateClient.detectnow()  
 wscript.echo "All done."