Community
- Command Central
- MVP Program
- Monthly Mission
- Blogs
- Groups
- Events
- Media Vault
Products
- Observability
- Network Management
- Application Management
- IT Security
- IT Service Management
- System Management
- Database Management
Content Exchange
- SolarWinds Platform
- Server & Application Monitor
- Database Performance Analyzer
- Server Configuration Monitor
- Network Performance Monitor
- Network Configuration Manager
- SQL Sentry
- Web Help Desk
Free Tools & Trials

httplogin.vbs

I am having problems getting this working. At this point I'm just trying to get it working from the command line, attempting to get it to login to a E-Busines suite site. I am getting "Error with enter account into web page...." message.

Within the script I have set the following -

str_url="<a valid internal website>"

str_find = "Logout"

str_user = "alertuser"

str_pwd = "password"

From the command line I am trying this command -

cscript //nologo HttpLogin.vbs -debug

Any insite into the proper method for running this would be great. Is there somewhere else I need to be putting the username/password?

Find more posts tagged with

Accepted answers

All comments

RogerWong

Quinne, you're about to enter a world of vbscript and HTML forms. If you have a little knowledge of either, it's going to help in a big way.

The message Error with enter account into web page means that the script is having trouble figuring out which web form field of your web site (defined in the web page HTML by the <input> element) it is supposed to populate with your username and password strings.

The HttpLogin.vbs script figures out where to insert your user and password strings by trying to match some of the attribute values in the <input> and <form> elements of the web site HTML code to a pattern of common attribute values. If your web site uses less common values for these attributes you'll have to modify the script accordingly so that it can match them correctly.

If you open the HttpLogin.vbs script in a text editor, you'll see some lines that resemble the following:

reFindForm.Pattern ="(login)|(auth)|(email)"
This is a pattern of characters that match a portion of the action attribute value of the <form> element containing the <input> elements for the login, password, and submit button.
reLoginStr.Pattern ="(login)|(name)|(email)"
This is a pattern of characters that match a portion of the name attribute value of the <input> element that handles the user name.
rePassword.Pattern ="(password)|(pwd)|(passwd)|(psswd)|(pswd)"
This is a pattern of characters that match a portion of the name attribute value of the <input> element that handles the password.
reInputElement.Pattern ="(submit)|(loginbutton)|(buttonlogin)|(signin)"
This is a pattern of characters that match a portion of the name, type, or id attribute value of the <input> element that handles the submit button.

If your website uses attribute value that do not match any of the above hardcoded patterns, you'll have to add them to the script. For example, the following form definition would not match the hardcoded pattern matches for reFindForm.Pattern because no part of the action attribute value matches "login", "auth", or "email":

<form id="loginform" action="">www.solarwinds.com/.../Accounts" method="post" onsubmit="return(onLoginSubmit());">

To make the httplogin.vbs script work with that particular web page, you'd have to edit the script to read:

reFindForm.Pattern ="(login)|(auth)|(email)|(accounts)"

This would allow the script to identify "accounts" as a matching attribute value and begin populating the remaining fields.

As another example, if your website defined the user name field as:

<input type ="text" name="account">

You would need to modify reLoginStr.Pattern as follows:

reLoginStr.Pattern ="(login)|(name)|(email)|(account)"

quinne

Login

	Username

	Password

quinne

Well, that screenshot didn't come through.

Here is the script contents -

Username, password, Login, those cover all the inputs...

quinne

I tried using the Orion Network Management web page as a test. So you should be familiar with the login screen and hopefully can take a look at the full content of the script I'm using and help me figure out why it doesn't work. I cut the script off at the point where it's failing....

Option Explicit
'On Error Resume Next

'Sample paramaters
Dim str_find, str_url, lst_args, str_user, str_pwd, bool_debug, arg_count, str_filename

str_url="http://172.16.3.250/Orion/Login.aspx?ReturnUrl=/orion/proxy.aspx?path=/&path=/"
str_find = "Syslog"
str_user = "admin"
str_pwd = "xxxxx"

'Public WithEvents XMLDom As MSXML2.DOMDocument30

Const SUCCESS = 0, FAIL = 1, WRITING = 2, DEFAULT_FILE_USE = -2

Dim forms, form, element, count_forms, inp_click, arrayInput, input_x, reNotVaild, reFindConfirm

Dim entered_account, entered_name, entered_pwd

Set lst_args = WScript.Arguments

bool_debug = false

entered_account = false
entered_name = false
entered_pwd = false

Dim HTMLDoc
Set HTMLDoc = CreateObject("InternetExplorer.Application")
HTMLDoc.Navigate str_url
if bool_debug Then
    HTMLDoc.ToolBar = 0
    HTMLDoc.StatusBar = 0
    HTMLDoc.Width = 500
    HTMLDoc.Height = 450
    HTMLDoc.Left = 0
    HTMLDoc.Top = 0
    HTMLDoc.Visible = True
else
    HTMLDoc.Visible = False
end If

while HTMLDoc.Busy
WScript.Sleep(500)
wend
'if Vaild Loaded Page
Set reNotVaild = new RegExp
reNotVaild.Pattern ="(<TITLE>ERROR)|(pagerror)|(errorpage)|(URL could not be retrieved)|(Unable to determine IP)|(domain name does not exis)"
reNotVaild.IgnoreCase = True
if reNotVaild.Test(HTMLDoc.Document.documentElement.innerText) Then
   WScript.Echo "Message: Error with load web page: " & str_url
   WScript.Echo "Statistic: 0"
   HTMLDoc.Quit
   WScript.Quit(FAIL)
end If

Set forms = HTMLDoc.Document.Forms
count_forms = HTMLDoc.Document.forms.length

Set arrayInput = HTMLDoc.document.getElementsbyTagname("input")

Dim reLoginStr, rePassword, reFindForm, reInputElement

For Each form in forms

    If reFindForm.Test(form.action) then
        for each element in form.elements
            if reLoginStr.Test(element.name) then
                element.value = str_user
                entered_name = true
            elseif rePassword.Test(element.name) then
                element.value = str_pwd
                entered_pwd = true
            elseif reInputElement.Test(element.type) or reInputElement.Test(element.name) or reInputElement.Test(element.id) then
                Set inp_click = element
            end if
        next
        Exit For
    End If
Next
entered_account = entered_name AND entered_pwd

if Not entered_account Then
   WScript.Echo "Message: Error with enter account into web page" & str_url
   WScript.Echo "Statistic: 0"
   HTMLDoc.Quit
   WScript.Quit(FAIL)
end If