'===========================================================

Function zGen_GetUserInput (sTitle, sPrompt, sDefault, iDelay)

'Sometimes it's useful to solicit user input, but it's important for the test to continue if the user isn't present

'Example of Usage:
'	sInput = zGen_GetUserInput ("Title", "Prompt:", "<DefaultValue>", 5)

	Dim sTemp, oShell, iUserSelection 

	If iDelay = 0 Then

		'Wait forever for user input..
		
		sTemp = Inputbox (sPrompt, sTitle, sDefault)

	Else

		'Wait for set delay before continuing regardless
		
		Set oShell = CreateObject("Wscript.Shell") 
		
		'Does the user want to input data - popup will disappear after set delay.
		iUserSelection = oShell.Popup ("Press OK if you want to enter new data", iDelay, "Select")
		 
		'NOTE -1 means the popup closed without any user interaction
		
		If iUserSelection <> -1 Then 
			sTemp = Inputbox (sPrompt, sTitle, sDefault)

		Else
			sTemp = sDefault
			
		End If

		Set oShell = Nothing
   
	End If

	zGen_GetUserInput = sTemp
	
End Function

'===========================================================