Vbscript/wsh to automate web authentication and logout with no user input boxes necessary

Greetings  Bruintje. The url you directed me to [http://www.angelfire.com/realm/vb... etc ] is  VERY VERY  close to what I need. Except I copied it and tested as a vbs and it did not work. I even tried to fix error but it continously fails at the following line:

Private Sub IE_DocumenteComplete (ByVal pDisp As Object, URL As Variant)
when it gets to the "URL as Variant " part it errors with

char: 45:
Error:expected ')'
Code 800a03ee                     vbscript compilation error

Also is the line:
If InStr(1, URL "passport.come/cgi-bin/login" , vbTExtCompare ) going to work since there are no cgi-bins in the sourcecode when viewing hotmails sourcecode?

Overall, to answer your question, I need the source code to AUTOMATICALLY accept  the name /passwd/submit key stroke that I put in as the adminstrator...and then  fill them out through the document object in the IE webbrowser control you already use in the script .

If I ,as the administrator provide the name /password I want to be used then users only have to click vbs icon get in application to see if webserver or email site is up/available and then automatically log users out.
*so user clicks vbs icon
*vbs icon automatically logs user in with login/password from sourcecode in script
*If user automatically gets in the that will mean application is up and abvailable
*then vbs script will log user out.
End of script with no user interaction except clicking vbs icon on desktop.

Hope this clarification helps Bruintje.  Thanks 4 getting back to me so quickly:) I may just be on my way to success.

ok Bruintje. I will give this a try and get back to u today. thanks...

just modified your code a vee bit.
Dim IE
Dim uSERNAME
Dim PASSWORD
Dim crtScreen
Set IE = CreateObject("InternetExplorer.Application")
USERNAME = "I want to put in specific password and login I feed it as an administrator that will always be used no matter who I give vbs icon to....."
PASSWORD = "XXXXXXX"

With IE
       .left=200
       .top=200
       .height=400
       .width=400
       .menubar=0
       .toolbar=1  
        .statusBar=0
       .navigate "http://www.smscountry.com"
        .visible=1
End With

'wait a while until IE as finished to load
Do while IE.busy
loop
IE.document.logincheck.login.value=USERNAME
IE.document.logincheck.password.value=PASSWORD
IE.document.logincheck.submit.click
Set IE = Nothing

WScript.Quit(0)
Enjoy.

Good morning bruintje and bhagyesht.
   Bruintje    I would have gotten back 2 u yesterday evening but I was literally trying to get the code to work with the suggestions u made, but it would not work. I tried & tried until 11Pm. Then came in at 5:30 Am. I get no errors, but an IE window does not even launch either, let alone trying to get the login/password to input automatically. I will keep trying to tweak the code in case I am missing something...

bhagyesht     I tried your code which actually launched an IE window. I  switched to my yahoo email address [ and tried your smscountry url too...smile] but in either case, I get a  windows script host error on line 24 namely:
Error: Object doesn't support this property or method: 'document.logincheck'
code: 800a01b6
source: Microsoft VBScript  runtime error.

line 24 is the line that states ............IE.document.logincheck.login.value=USERNAME

also I will have to use a tab to get to the next field of password after the login is entered , then finally the submit button.
so if I can get it to work ,  should I be utilizing  VbTab  in this code also?  Just wondering.

I feel with either method I am almost there but not quite. Only have a few hours left to come up with the answer so and other suggestions would greatly be appreciated.......Nothing beats a failure [me] but a try........
frustratedprog

no the problem is that though ie has returned its not buzy its still not parsed the data.
add these lines after the
ie.buzy loop

Do While UCase(IE.Document.readyState) <> "COMPLETE"
    Sleep (100)
    DoEvents
Loop

It should work.

Good morning bhagyesht.
Ok I will certainly try this since I was given a bit more time and get back to you early tomorrow morning so I may close this case and give credit.
frustrated prog

ok

Hmm I tried and still an error. I will provide error to you so I can close this case. thank you

sure can u post the error?

Good morning bhagyesht
wow,  still get error message as follows after I added these lines:

ie.busy loop

Do While UCase(IE.Document.readyState) <> "COMPLETE"
   Sleep (100)
   DoEvents
Loop

line:28
char 1
object doesn't support this property or method :'Document.logincheck'
code: 800a01b6
source: Microsoft VBScript runtime error

any other suggestions please????? I am willing to try anything at this point please.

u tried with smscountry or some other site? if some other site does the site have the name of the form as logincheck? can u pass the name of the site?

Good afternoon Behagyesht. I had tried my yahoo email site. I will try this new one with both the smscountry site AND also again with my email site and then let you know. Sorry for the long lag. I have been getting long hours at work coming to work at  6:15 am to late in evenings of 8:30, 9  PM. Will get back to you sooner this time. On form I am working on it only states

function setFocus() {
      if (document.forms.length > 0) {
            document.forms[0].elements[0].focus();
and also html 4 code  td class="bkgnd" height="5" colspan="4"><form name="sbLogonForm" method="POST" action=
and
<td class="input" width="50%">&nbsp;<input type="text" name="companyID" maxlength="32" size="12" value="">
   

*

</td>
 <td class="wtspace">&nbsp;</td>
</tr>
<tr bgcolor="#ffffff">
 <td class="wtspace">&nbsp;</td>
 <td class="label" width="50%">User ID:&nbsp;</td>
 <td class="input" width="50%">&nbsp;<input type="text" name="j_username" maxlength="32" size="12" value="">
   

*

</td>
 <td class="wtspace">&nbsp;</td>
</tr>
<tr bgcolor="#ffffff">
 <td class="wtspace">&nbsp;</td>
 <td class="label">Password:&nbsp;</td>
 <td class="input">&nbsp;<input type="password" name="j_password"

Nothing much to go on for forms on this one but I will close this question  out tomorrow since you gave me plenty of ideas.

Although I could not get the signon to work you both pointed me in the right direction and I sincerely appreciate that. Thank you for lending your excellent ideas and options.!!!!!
BTW this was my first time so I hope I credited correctly and most of all fairly. I wanted to split the points because you BOTH gave time and allotted it to the issue.  Thanks again.

I still would like to know if there is a public site u faced a problem?

I was able to log on to yahoo's mail too.
the following is the code

change the username and password values


Dim IE
Dim uSERNAME
Dim PASSWORD
Dim crtScreen
Set IE = CreateObject("InternetExplorer.Application")
USERNAME = "XXXXXX"
PASSWORD = "YYYYY"

With IE
      .left=200
      .top=200
      .height=400
      .width=400
      .menubar=0
      .toolbar=1  
        .statusBar=0
      .navigate "http://mail.yahoo.com"
        .visible=1
End With

'wait a while until IE as finished to load
Do while IE.busy
loop
set WshShell = WScript.CreateObject("WScript.Shell")
Do While UCase(IE.Document.readyState) <> "COMPLETE"
      WScript.Sleep 100
   DoEvents
Loop
set WshShell=nothing
IE.document.login_form.login.value=USERNAME
IE.document.login_form.passwd.value=PASSWORD
IE.document.login_form.submit
Set IE = Nothing

WScript.Quit(0)

Good morning bhagyesht. I will get back to you regarding why it did not work for site as soon as I can. But for now I just wanted to let u know it was difficult identifying the "form name" and perhaps that is why it did not work.
 I will provide u with more detail later but in my previous post I tried to copy some of the "source" code to show why it was hard to locate. . Of course I still could not produce what the boss wanted so I am still in trouble but at least I tried and with your assistance I was able to get a little further. Hopefully my punishment won't be too severe. Either way I will get back to you.

sure! when ever you get free I'll like to know.
BTW which country are you from?
Bhagyesh