Source code for iebuttons.vbs

```
' Creates a menu of buttons in IE
```

' you click a button and it returns a value

' Returns 0 if user clicks Cancel of the red X (or alt-F4) to close IE window instead of making a selection

```
 
```
```
Option Explicit
```
```
 
```
```
WScript.Echo IEButtons( )
```
```
 
```
```
 
```
```
 
```
```
Function IEButtons( )
```

	' This function uses Internet Explorer to create a dialog.

```
	Dim objIE, sTitle, iErrorNum
```
```
 
```
```
	' Create an IE object
```

	Set objIE = CreateObject( "InternetExplorer.Application" )

	' specify some of the IE window's settings

```
	objIE.Navigate "about:blank"
```

	sTitle="Make your choice " & String( 80, "." ) 'Note: the String( 80,".") is to push "Internet Explorer" string off the window

```
	objIE.Document.title = sTitle
```
```
	objIE.MenuBar        = False
```
```
	objIE.ToolBar        = False
```
```
	objIE.AddressBar     = false
```
```
	objIE.Resizable      = False
```
```
	objIE.StatusBar      = False
```
```
	objIE.Width          = 250
```
```
	objIE.Height         = 280
```

	' Center the dialog window on the screen

	With objIE.Document.parentWindow.screen

		objIE.Left = (.availWidth  - objIE.Width ) \ 2

		objIE.Top  = (.availheight - objIE.Height) \ 2

```
	End With
```
```
	' Wait till IE is ready
```
```
	Do While objIE.Busy
```
```
		WScript.Sleep 200
```
```
	Loop
```
```
 
```
```
 
```

	' Insert the HTML code to prompt for user input

	objIE.Document.body.innerHTML = "<div align=""center"">" & vbcrlf _

	                              & "<p><input type=""hidden"" id=""OK"" name=""OK"" value=""0"">" _

	                              & "<input type=""submit"" value=""  Limited User   "" onClick=""VBScript:OK.value=1""></p>" _

	                              & "<input type=""submit"" value=""  Standard User "" onClick=""VBScript:OK.value=2""></p>" _

	                              & "<input type=""submit"" value=""   Power User   "" onClick=""VBScript:OK.value=4""></p>" _

	                              & "<input type=""submit"" value=""   Admin User   "" onClick=""VBScript:OK.value=8""></p>" _

	                              & "<p><input type=""hidden"" id=""Cancel"" name=""Cancel"" value=""0"">" _

	                              & "<input type=""submit"" id=""CancelButton"" value=""       Cancel       "" onClick=""VBScript:Cancel.value=-1""></p></div>"

```
 
```
```
	' Hide the scrollbars
```

	objIE.Document.body.style.overflow = "auto"

```
	' Make the window visible
```
```
	objIE.Visible = True
```
```
	' Set focus on Cancel button
```
```
	objIE.Document.all.CancelButton.focus
```
```
 
```
```
 
```

	'CAVEAT: If user click red X to close IE window instead of click cancel, an error will occur.

	'        Error trapping Is Not doable For some reason

```
	On Error Resume Next
```

	Do While objIE.Document.all.OK.value = 0 and objIE.Document.all.Cancel.value = 0

```
		WScript.Sleep 200
```
```
		iErrorNum = Err.Number
```

		If iErrorNum <> 0 Then	'user clicked red X (or alt-F4) to close IE window

```
			IEButtons = 0
```
```
			objIE.Quit
```
```
			Set objIE = Nothing
```
```
			Exit Function
```
```
		End if
```
```
	Loop
```
```
	On Error Goto 0
```
```
 
```
```
	objIE.Visible = False
```
```
 
```

	' Read the user input from the dialog window

	IEButtons = objIE.Document.all.OK.value

```
	' Close and release the object
```
```
	objIE.Quit
```
```
	Set objIE = Nothing
```
```
End Function
```
```
 
```