http://dieseyer.de • all rights reserved • © 2011 v11.4

</html>
<head>

<!--
'*** v4.A *** www.dieseyer.de *******************************
'
' Datei: loginhta.hta
' Autor: dieseyer@gmx.de
' Auf: www.dieseyer.de
'
' ermöglicht die Eingabe Benutzer und Passwort, wobei
' das Passworteingabe versteckt (Sternchen) erfolgt.
'
' Im Start-Button ist der Name des zu startende Skripts
' enthalten.
'
' Diese HTA (HTML Application) erstellt auch gleich noch
' das passende (Anmelde- bzw.) Auswerte-Skript.
'
'*********************************************************

SHOWINTASKBAR="no"
WINDOWSTATE="maximize"
-->
<HTA:APPLICATION ID="oHTA"

BORDER="none"
INNERBORDER="no"
SCROLL="No"
NAVIGABLE="no"
APPLICATIONNAME="Service.CD Anmeldung"
>

<title>Service.CD Anmeldung</title>

<style type="text/css">
TD {font-size:13Pt; color:#E0C000; font-style:bold; font-family:Verdana}
input {font-size:13pt; color:#202060; font-style:bold; font-family:Verdana}
H2 {font-size:24pt; color:#E0C000; font-style:bold; font-family:Verdana}
</style>

</head>

<script language="VBscript">

Const Titel = "loginhta.hta"
Dim WshShell : Set WSHShell = CreateObject("Wscript.Shell")
Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")

'****************************************
Sub StartSkript()
'****************************************

UName = Document.All.UserName.Value
If UName = "" Then Msgbox "Ein Username ist erforderlich" : Exit Sub

UPwd = Document.All.UserPwd.Value
If UPwd = "" Then Msgbox "Ein Passwort ist erforderlich" : Exit Sub

VBS = Document.All.StartVBS.Value ' der Button-Text enthält das zu startende Skript
VBS = Replace( VBS, " Starten", "" ) ' ein Teil des Button-Text löschen
VBS = LCase ( VBS ) ' wandeln in Kleinbuchstaben

MsgBox "Uname: " & UName & vbCRLF & "UPwd: " & UPwd, , Titel

' Datei zum Schreiben öffnen (2 => neu anlegen)
Set FileOut = FSO.OpenTextFile( VBS, 2, true )
FileOut.Write "'*** v4.A *** www.dieseyer.de ****************************" & vbCR
FileOut.Write "' File: login.vbs" & vbCR
FileOut.Write "' Autor: dieseyer@gmx.de " & vbCR
FileOut.Write "' dieseyer.de" & vbCR
FileOut.Write "'" & vbCR
FileOut.Write "'*********************************************************" & vbCR
FileOut.Write " " & vbCR
FileOut.Write "Dim oArgs : Set oArgs = Wscript.Arguments " & vbCR
FileOut.Write "'hole alle Argumente " & vbCR
FileOut.Write "'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~" & vbCR
FileOut.Write "For i = 0 to oArgs.Count - 1 ' hole alle Argumente " & vbCR
FileOut.Write " If i = 0 Then User = oArgs.item(i) " & vbCR
FileOut.Write " If i = 1 Then Pwd = oArgs.item(i) " & vbCR
FileOut.Write "Next " & vbCR
FileOut.Write " " & vbCR
FileOut.Write "MsgBox User & vbCRLF & vbCRLF & Pwd, 4096, WScript.ScriptName" & vbCR
' FileOut.Write "CreateObject(""Wscript.Shell"").Run ""%comspec% /k net use s: \\192.168.101.19\d$ "" & Pwd & "" /user:"" & User" & vbCR
FileOut.Write "CreateObject(""Wscript.Shell"").Run ""net use s: \\192.168.101.19\c$ "" & Pwd & "" /user:"" & User" & vbCR
FileOut.Write "WScript.Sleep 2*1000" & vbCR
' FileOut.Write "CreateObject(""Wscript.Shell"").Run ""S:\dieseyer.de\scr\spielchen.hta""" & vbCR
FileOut.Write "CreateObject(""Scripting.FileSystemObject"").CopyFile ""S:\dieseyer.de\scr\spielchen.hta"", ""R:\""" & vbCR
FileOut.Write "CreateObject(""Wscript.Shell"").Run ""R:\spielchen.hta""" & vbCR
FileOut.Write " " & vbCR
FileOut.Close
Set FileOut = nothing


' WSHShell.Popup VBS & " " & UName & " " & UPwd, 5, , 4096

WSHShell.run VBS & " " & UName & " " & UPwd, 1, False

self.close

End Sub ' StartSkript()



'**************************************************************
Function BeimLaden() ' ruft einige Routinen auf
'**************************************************************
' hier ist nichts implementiert

End Function ' BeimLaden()


</script>

<body onLoad="BeimLaden()" bgcolor="#202060" >

<form>
<BR><BR>

<h2 align="center">Passwortabfrage</h2>

<table border="0" cellspacing="100px" width="100%">

<tr>

<td bgcolor=#1d2160 align="center" cellspacing="70%" >

<fieldset><Legend align="Center"></legend>

<BR>

UserName                 Passwort  

<BR><BR>

<input Type="Text" Name="UserName" Value="PC01\dseyer" >  
<input Type="Password" Name="UserPwd" Value="Geheim!" >

<BR><BR>

<INPUT TYPE="Button" Name="StartVBS" value="Login.VBS Starten" onClick="StartSkript()" >
<BR><BR>

</fieldset>


</td>

</tr>

</table>

</form>

</body>

</html>

http://dieseyer.de • all rights reserved • © 2011 v11.4