internet explorer startup script business envirement

[Steven Vandenhoute]

I am working on an It helpdesk.

When we open out internet explorer we are standardly redirected to the intranet page.

I have now written a little script ( as a test and learning application) witch do the following.

When I am at work the script asks me with site I would open (intranet, ICT intranet, google, ...)

When I am at every other place, the script go's automaticly to google.

the listing:

expandcollapse popup

#Include <GUIConstants.au3>

;ping to mainframe
$var = Ping("1.2.3.4",250)
If $var Then; also possible:  If @error = 0 Then ...

GUICreate ( "Internet Explorer", 220, 80)



$combo=GUICtrlCreateCombo ( "Select Website", 10, 10, 200, 1000)

GUICtrlSetData ( -1, "Intranet|Intranet ICT|Google.be|Cibazone.be", "Select Website")


$okbutton=GUICtrlCreateButton ("Go!",  10, 40, 50, 30)
$cancelbutton=GUICtrlCreateButton ( "Cancel",  80, 40, 50, 30)

GUISetState ()

$msg = GUIGetMsg()

While 1
     $msg = GUIGetMsg()

     Select
       Case $msg= $GUI_EVENT_CLOSE
         ExitLoop

       Case $msg = $okbutton
         $data = GUICtrlRead($combo)
       
         If $data="Select Website" then 
           msgbox(4096, "Error", "Please select a Website.")
           ExitLoop
         ElseIf $data="Intranet" then 
           Run('explorer http://www.url.intranet, @WindowsDir)
           ExitLoop
         ElseIf $data="Intranet ICT" then 
           Run('explorer http://www.url.ict intranet', @WindowsDir)
           ExitLoop
         ElseIf $data="Google.be" then
           Run('explorer http://www.google.be', @WindowsDir)
           ExitLoop
         ElseIf $data="Cibazone.be" then 
           Run('explorer http://www.cibazone.be', @WindowsDir)
           ExitLoop
         
         EndIf
       
       Case $msg = $cancelbutton
         ExitLoop
     EndSelect

Wend


Else
    Run('explorer http://www.google.be', @WindowsDir)
EndIf

Edited October 9, 2006 by Steven Vandenhoute