Option Explicit
Const MyUserName As String = "[COLOR=#FF0000][B]ABCOFA[/B][/COLOR]"
Const MyPassword As String = "[COLOR=#FF0000][B]squirrel[/B][/COLOR]"
Const READYSTATE_COMPLETE As Integer = 4
Dim objIE As Object
Public Sub LoginScript()
Set objIE = CreateObject("InternetExplorer.Application")
With objIE
.Visible = True
.Silent = True
.Navigate ("[URL]http://www.servicechannel.com/sc/login/client_login.asp[/URL]")
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now() + TimeValue("00:00:02")
.document.all.UserName.Value = MyUserName
.document.all.Password.Value = MyPassword
.document.all.RememberMe.Value = True
.document.forms(0).submit
Do Until .ReadyState = READYSTATE_COMPLETE
DoEvents
Loop
Application.Wait Now() + TimeValue("00:00:02")
End With
End Sub