'Startup VB script to install Internet Explorer 8
on error resume next
Dim WshShell, RegValue
Set WshShell = CreateObject("WScript.Shell")
RegValue = WshShell.RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\Uninstall\ie8\UninstallString")
If (RegValue = "") Then 
  WshShell.Run "\\share\IE8-WindowsXP-x86-RUS.exe /quiet /forcerestart" , 1, True
End If