VBscript

2012. Jan. 30., H, 10:22:57 CET

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>

Taszi is a dolgát, de a beviteli mező nyitva marad
a könyvtár felcsatolása után.
Kérdésem: Mit kellene beleírni, hogy bezáruljon,
miután lefutott?

-- 
      Üdv, Nágel István
      http://www.mixat.hu