Set objShell = WScript.CreateObject("WScript.Shell")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network") 
MyUser = objNetwork.UserName
 
objShell.run "IEXPLORE.EXE tag/empower/login.cfm"
wscript.sleep 500
   
If filesys.FileExists("c:\" & MyUser & ".sam") Then
    '' -->  Open file, Read UserName & Password 
      Set ts = filesys.OpenTextFile("c:\empo.nfo", 1)
'     ab = ts.readline
      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:\" & MyUser & ".sam", True) 
'            filetxt.WriteLine("-")
            filetxt.WriteLine(UN)
            filetxt.WriteLine(PS)
            filetxt.Close
            Typing()
         End If
      End IF
End If


Sub Typing()
   wscript.sleep 1000
   objShell.sendkeys  UN
   objShell.sendkeys "{TAB}"
   objShell.sendkeys  PS
   objShell.sendkeys "{TAB}"
   objShell.sendkeys "{ENTER}"
End Sub