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