'==========================================================================
' VBS Program Name: Helprequest
'			Author: Michael Mclaughlin & Jerry Jeffries
'  FileName & Path: helprequest.vbs
' 	   Date & Time:	May 1, 2003 11:09 AM 
'	 Version Stamp: 2.0
' 
' COMMENT(s): Run the Helpdesk Requestor Software
'
'==========================================================================
Option Explicit
on error resume next
'Const & Dim Declarations
'Const
Dim oShell, Commandlineclient, Commandlinediag, oNetwork
Set oShell = CreateObject("Wscript.shell")
Set oNetwork = wscript.CreateObject("Wscript.Network")
'[--Begin Main Script--]
Commandlineclient = "\\HEAT\hdclient\hdclient.exe "& Chr(34)&"%TEMP%\issuser"& chr(34) &"-l\\HEAT\hdirc"
Commandlinediag = "\\HEAT\hdclient\issdiag.exe "& Chr(34)&"%TEMP%\issdiag"& chr(34) &" /l\\HEAT\hdirc"
oShell.Run Commandlineclient,0,True
oShell.Run Commandlinediag,0,True
if err.Number <> 0 then
	on error goto 0
	'wscript.echo "Mapping Drive"
	oNetwork.MapNetworkDrive "G:", "\\HEAT\hdclient",False, "goofey", "Goffey"
	oShell.Run Commandlineclient,0,True
	oShell.Run Commandlinediag,0,True
	oNetwork.RemoveNetworkDrive "G:"
end if
'[--End Main Script--]