Set objShell = WScript.CreateObject("WScript.Shell")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network") 
MyUser = objNetwork.UserName
 
if MyUser = "hsepulveda" then

  objShell.run "IEXPLORE.EXE kdscsp07/citrix/metaframexp/default/login.asp?ClientDetection=On"
  ' page to go ->  /http://kdscsp07/citrix/metaframexp/default/login.asp?ClientDetection=On"

  wscript.sleep 3000

   If filesys.FileExists("c:\autom.nfo") Then
    '' -->  Open file, Read UserName & Password 
      Set ts = filesys.OpenTextFile("c:\autom.nfo", 1)
      UN = ts.ReadLine
      PS = ts.ReadLine
      Typing()
   Else
   ''  --> Read UserName & Password, Create file
      UN = InputBox("     Enter your UserName ...") 
      If UN <> "" then
         PS = InputBox("     Enter your Password ...")
         IF PS <> "" then
            Set filetxt = filesys.CreateTextFile("c:\autom.nfo", True) 
            filetxt.WriteLine(UN)
            filetxt.WriteLine(PS)
            filetxt.Close
            Typing()
         End If
      End IF
   End If

Else  
   'Set f3 = filesys.GetFile("c:\autom.nfo")
   ' Delete the files.
   ' f3.Delete
end if

Sub Typing()
   wscript.sleep 500
   objShell.sendkeys  UN
   objShell.sendkeys "{TAB}"
   objShell.sendkeys  PS
   objShell.sendkeys "{TAB}"
   objShell.sendkeys "{down}"
   objShell.sendkeys "{TAB}"
   objShell.sendkeys "{ENTER}"
   wscript.sleep 2800
   Tabs(8)
End Sub


Function Tabs(ByVal x)

for i = 1 to x
  objShell.sendkeys "{TAB}"
next
objShell.sendkeys "{ENTER}"

End Function