On Error Resume Next
Dim oWSH, fso, sProgramMenu, sCommonProgMenu

'Read location of Program Menu
Set oWSH = CreateObject("WScript.Shell")
sProgramMenu = oWSH.RegRead("HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Programs")
sCommonProgMenu = oWSH.RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\Common Programs")
Set oWSH = Nothing  

Set fso = CreateObject("Scripting.FileSystemObject")

If sProgramMenu <> "" Then
	If fso.FileExists(sProgramMenu & "\ABS Benefits Reporting Package\BRP Internet Update.url") Then fso.DeleteFile(sProgramMenu & "\ABS Benefits Reporting Package\BRP Internet Update.url")
	If fso.FileExists(sProgramMenu & "\ABS Benefits Reporting Package\BRP Online Help.url") Then fso.DeleteFile(sProgramMenu & "\ABS Benefits Reporting Package\BRP Online Help.url")
End If

If sCommonProgMenu <> "" Then
	If fso.FileExists(sCommonProgMenu & "\ABS Benefits Reporting Package\BRP Internet Update.url") Then fso.DeleteFile(sCommonProgMenu & "\ABS Benefits Reporting Package\BRP Internet Update.url")
	If fso.FileExists(sCommonProgMenu & "\ABS Benefits Reporting Package\BRP Online Help.url") Then fso.DeleteFile(sCommonProgMenu & "\ABS Benefits Reporting Package\BRP Online Help.url")
End If

Set fso = Nothing