Set fso = CreateObject("Scripting.FileSystemObject")

Set objShell = WScript.CreateObject("WScript.Shell")

strWinDir = objShell.ExpandEnvironmentStrings("%SYSTEMROOT%")

strcmd = "" & strWinDir & "\$NtUninstallKB925877$\spuninst\spuninst.exe" & " /quiet /passive /norestart"

strfile = "" & strWinDir & "\$NtUninstallKB925877$\spuninst\spuninst.exe"

If(fso.FileExists(strfile)) Then 

 	objShell.Run strcmd, 1, True

End If