WEB LISTING 1: EnhancedBackXP.vbs

Set wshShell = WScript.CreateObject("WScript.Shell")
intResult = wshShell.Run ("cmd.exe /c " & strCmd , _
	SHOW_WINDOW , WAIT_ON_RETURN)
If intResult = 0 Then
	wshShell.LogEvent 0, "The BackXP.vbs script's " & _
		"NTBackup call succeeded. An attempt will now be " & _
		"made to eject the tape."
	intResult = wshShell.Run ("cmd.exe /c " & strRSMCmd , _
	SHOW_WINDOW , WAIT_ON_RETURN)
	If intResult = 0 Then
		wshShell.LogEvent 0, "The tape was successfully " & _
		"ejected."
	Else
		wshShell.LogEvent 1, "The tape failed to eject " & _
		"successfully."
	End If
Else
	wshShell.LogEvent 1, "The BackXP.vbs script's NTBackup " & _
		"call failed. No attempt will now be made to eject the tape."
End If