Login Informationen per Batch an Programm übergeben

1.tes Problem

Ist es möglich per Batch, Login Informationen an ein Windows Programm zu übergeben um sich das eingeben zu sparen.
In meinem konkreten Fall handelt es sich um folgende Informationen:


Kürzel max 4stellig
Firmen-Nr 1-stellig
Bediener-Name
Mandant-Name
Passwort

siehe auch Bild




Beim Programm handelt es sich um eine Branchenlösung für den Dienstleistungsbereich,die unter Windows XP (Clients) und Windows 2003 Server läuft.
Neben dieser Login Maske gibt es noch andere Programmmodule (wie z.b Lohn) wo man sich genauso anmelden muss und dies eben für mehrere Firmen.
Ist ganz schön nervig.

Geht so was ?`

2.tes Problem

Habe folgendes vbs Script gefunden:

Dim Kennung
Dim Passwort
Kennung="meinekennung"
Passwort="meinpasswort"

Dim MeinIE
Dim READYSTATE_COMPLETE
READYSTATE_COMPLETE = 4

Set MeinIE = CreateObject("InternetExplorer.Application")

Do While MeinIE.Busy
Loop

MeinIE.Visible = 1
MeinIE.Navigate "http://www.gmx.net"
Do While MeinIE.ReadyState <> 4
Loop
Set oDoc = MeinIE.Document
oDoc.all.id.value=Kennung
oDoc.all.p.value=Passwort
oDoc.all.login.Submit

Set oDoc = Nothing
Set oArea = Nothing
Set oRng = Nothing


Hiermit spart man sich das Login auf der Website des FreeMail Anbieters GMX.
Wollte es auf www.web.de (da ich dort auch ein E-Mail Konto habe) anpassen, habs aber nicht hinbekommen.

3.tes Problem

Const strProgramtitel="Software"
Const strProgram ="C:\WINDOWS\ServicePackFiles\i386\appwiz.cpl"
Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")
strLPfad=objShell.SpecialFolders("Desktop")
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath= strProgram
objShortcut.Description= "strProgramtitel"
objShortcut.Save


Habe mit diesem Script ne Verknüpfung zum schnelleren Aufruf von Software Installation/ Deinstallation von Win XP gemacht.
Was mir fehlt is das Standard Icon. Wie binde ich das ein ?

Danke für eure Hilfe


Gruß
Claus

objShortcut.IconLocation = strProgram & ", 0"  

objShortcut.IconLocation = "C:\Windows\system32\SHELL32.dll, 131"  

objShortcut.IconLocation = strProgram & ", -1500"  

Windows Registry Editor Version 5.00

[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Explorer\ControlPanel\NameSpace\Add-Remove_Programs]
"IconIndex"=dword:000005dc  
"Info"="Installiert und entfernt Programme und Windows-Komponenten."  
"Module"=hex(2):25,00,53,00,79,00,73,00,74,00,65,00,6d,00,52,00,6f,00,6f,00,74,\   
  00,25,00,5c,00,73,00,79,00,73,00,74,00,65,00,6d,00,33,00,32,00,5c,00,61,00,\ 
  70,00,70,00,77,00,69,00,7a,00,2e,00,63,00,70,00,6c,00,00,00
"Name"="Software"