sCreateObject("Wscript.Shell").Run ".\setadpicture.bat", 0, True