Re: VBscript

Mon, 30 Jan 2012 04:21:20 -0800 


Két body tag van a kódban
Veres Sándor

2012.01.30. 10:22 keltezéssel, Nagel Istvan írta:


Van egy home.hta nevű fájlom, ami Win7 Home Premium alatt
felcsatolja a Sambán lévő home könyvtáramat.

Tartalma:

<html lang = "hu">
<head>
<body onload="window.resizeTo(455,330)">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta content="text/html; charset=UTF-8" http-equiv="content-type">
<title>SULI Home könyvtár</title>
</head>

<script language="VBScript">
<!--
        Sub OKButton_OnClick
            driveletter = "Z:"
            name = UserNameBox.value
            name = Trim(name)
            pswd = PasswordBox.value
            pswd = Trim(pswd)
                UserNameBox.value = ""
                PasswordBox.value = ""
                Set WshShell = CreateObject("Wscript.Shell")
WshShell.Run "net use z: \\PDC\homes /PERSISTENT:NO " & pswd & " /user:" & name,,True 
        WshShell.Run "explorer z:"
         End Sub

    '-->
</script>
<body bgcolor="#99CCFF">
<p></p>
<p align="center"> <font face="Arial">
<b>HOME könyvtár csatlakoztatása</b></font></p>
<p align="left" style="margin-top: 0; margin-bottom: 0">
<font face="Arial" size="2">Home könyvtára <b>Z:</b> meghajtóként megjelenik a Sajátgépben.</font></p> <p align="left" style="margin-top: 0; margin-bottom: 0"> <font face="Arial" 
size="2">Mielőtt elhagyja a gépet, mindenképp jelentkezzen ki!</font></p>
<p><b>Írja be felhasználói nevét: </b>
<input TYPE="text" Name="UserNameBox" size="20"> </p>
<p><b>Írja be jelszavát: </b>
<input TYPE="password" Name="PasswordBox" size="20"> </p><p align="center"> 
<input NAME="OKButton" TYPE="BUTTON" VALUE="OK"> </p><p></p>
</body></body>
</html> 

_______________________________________________
Techinfo mailing list
[email protected]
Fel- és leiratkozás: http://lista.sulinet.hu/mailman/listinfo/techinfo
Illemtan: http://www.szag.hu/illemtan.html
Ügyfélszolgálat FAQ: http://www.kozhaloportal.hu/gyik/altalanos/

válasz