Set WSHShell = CreateObject("WScript.Shell")
WSHShell.run "msinfo32.exe", 1, true