Solved

VBS Logon Script

Posted on 2009-07-01
5
544 Views
Last Modified: 2012-06-21
Recently our firm implemented an online Time and Labor application. The IT Department has been asked to make this webpage come up at login, We have managed to get the webpage to launch using the code belowhowever, we would like to populate the first 2 fields Client ID (this is a static entry which is enterd in alias below) and Login ID - which is the domain username. Please assist us in passing the username to the URL below in this script.

Thank you in advance.
Case "NON-EXEMPT"

	    Set oIE = WScript.CreateObject("InternetExplorer.Application") 

	    oIE.Visible = True 

	    oIE.Navigate(""https://timeandlabor.paychex.com/secure/login.asp?Alias=XXXXXXXX&Login=THIS IS THE USERNAME I NEED TO ADD")

Open in new window

0
Comment
Question by:RFEMHelpdesk
  • 3
5 Comments
 
LVL 3

Accepted Solution

by:
astroviper earned 350 total points
ID: 24760133

Dim objNetwork

Set objNetwork = CreateObject("WScript.Network")

Set oIE = WScript.CreateObject("InternetExplorer.Application") 

oIE.Visible = True 

oIE.Navigate("https://timeandlabor.paychex.com/secure/login.asp?Alias=XXXXXXXX&Login=" & objNetwork.UserName)

Open in new window

0
 
LVL 12

Assisted Solution

by:kevin_u
kevin_u earned 150 total points
ID: 24760138
This should work.
Case "NON-EXEMPT"

             Set WshNetwork = CreateObject("WScript.Network")

	    Set oIE = WScript.CreateObject("InternetExplorer.Application") 

	    oIE.Visible = True 

	    oIE.Navigate(""https://timeandlabor.paychex.com/secure/login.asp?Alias=XXXXXXXX&Login=" & WshNetwork.UserName)
 
 

 

Open in new window

0
 
LVL 12

Expert Comment

by:kevin_u
ID: 24760142
I'm too slow i guess.
0
 

Author Closing Comment

by:RFEMHelpdesk
ID: 31599050
Thank you Experts for your speedy resolution. I have tested and implemented. Both options work great !

PS : Kevin u - You had an extra " at the start of the web link.

0
 
LVL 12

Expert Comment

by:kevin_u
ID: 24760414
thanks for the points.
sorry I just copied from your original post, didn't notice the two quotes.
0

Featured Post

Free Trending Threat Insights Every Day

Enhance your security with threat intelligence from the web. Get trending threat insights on hackers, exploits, and suspicious IP addresses delivered to your inbox with our free Cyber Daily.

Join & Write a Comment

Well hello again!  Glad to see you've made it this far without giving up.  In this, the fourth installment of my popular series, I'm going to cover functions and subroutines, what they are, and why they are useful.  Just in case you stumbled onto th…
Not long ago I saw a question in the VB Script forum that I thought would not take much time. You can read that question (Question ID  (http://www.experts-exchange.com/Programming/Languages/Visual_Basic/VB_Script/Q_28455246.html)28455246) Here (http…
Sending a Secure fax is easy with eFax Corporate (http://www.enterprise.efax.com). First, Just open a new email message.  In the To field, type your recipient's fax number @efaxsend.com. You can even send a secure international fax — just include t…
This demo shows you how to set up the containerized NetScaler CPX with NetScaler Management and Analytics System in a non-routable Mesos/Marathon environment for use with Micro-Services applications.

758 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

22 Experts available now in Live!

Get 1:1 Help Now