We value your feedback.
Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!
Solved
VBS Login Script with HTA
Posted on 2013-01-02
Sorry for asking a dumb question, but I've been trying to get this working all day and, whilst there are lots of ways that don't work the way I want it to, I know that there must be a simple way of getting it to work. Surely!
All I want (and why is it that the simplest requests cause so much trouble?) is a basic Logon script that brings up a HTA window (without a title bar, cos some moron will only close it down otherwise!) that says hello (by name and computer) lists what the script is doing, maps a handful of basic drives (one is individual to each User), and closes down.
The HTA would look like this (use your imagination! :) )
Hello, [Username]
You are connected to [Computer Name]
Mapping Network Drives. Please wait...
Mapping G: to [Shared Drive]
Mapping H: to [Individual User Folder]
Checking any additional network drives (based on AD Groups)
Logon complete.
Any help? Please?
All I want (and why is it that the simplest requests cause so much trouble?) is a basic Logon script that brings up a HTA window (without a title bar, cos some moron will only close it down otherwise!) that says hello (by name and computer) lists what the script is doing, maps a handful of basic drives (one is individual to each User), and closes down.
The HTA would look like this (use your imagination! :) )
Hello, [Username]
You are connected to [Computer Name]
Mapping Network Drives. Please wait...
Mapping G: to [Shared Drive]
Mapping H: to [Individual User Folder]
Checking any additional network drives (based on AD Groups)
Logon complete.
Any help? Please?
[X]
Welcome to Experts Exchange
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
- Help others & share knowledge
- Earn cash & points
- Learn & ask questions
3-
2
5 Comments
Active 1 day ago
Hi, here's a starting example....you can add more drives in the Window_OnLoad procedure.
Regards,
Rob.
Regards,
Rob.
<head>
<title>Login Script</title>
<HTA:APPLICATION
APPLICATIONNAME="Login Script"
BORDER="dialog"
SCROLL="no"
SHOWINTASKBAR="no"
SINGLEINSTANCE="yes"
SYSMENU="no"
WINDOWSTATE="normal"
>
</head>
<script language="VBScript">
Const HKEY_CURRENT_USER = &H80000001
Const wbemFlagReturnImmediately = &h10
Const wbemFlagForwardOnly = &h20
Dim iTimerID
Sub Window_OnLoad
intWidth = 800
intHeight = 650
Me.ResizeTo intWidth, intHeight
Me.MoveTo ((Screen.Width / 2) - (intWidth / 2)),((Screen.Height / 2) - (intHeight / 2))
Set objNetwork = CreateObject("WScript.Network")
Set objADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSysInfo.UserName)
ShowOutput "<br>Hello " & objUser.DisplayName
ShowOutput "<br>You are logged onto " & objNetwork.ComputerName
ShowOutput "<br><br>Please wait while your drives are mapped..."
MapDrive "G:", "\\server\share"
HTASleep 1
MapDrive "H:", "\\server\share2"
HTASleep 1
ShowOutput "<br><br>Script complete"
HTASleep 3
iTimerID = window.setInterval("CloseWindow", 3000)
End Sub
Sub CloseWindow
HTASleep 1
window.close
End Sub
Sub ShowOutput(strMessage)
txt_policy.innerHTML = txt_policy.innerHTML & strMessage
End Sub
Sub MapDrive(strDriveLetter, strDrivePath)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = CreateObject("WScript.Network")
ShowOutput "<br>Mapping " & strDriveLetter & " to " & strDrivePath & "....."
On Error Resume Next
If objFSO.DriveExists(strDriveLetter) = True Then objNetwork.RemoveNetworkDrive strDriveLetter, True, True
objNetwork.MapNetworkDrive strDriveLetter, strDrivePath, True
If Err.Number = 0 Then
ShowOutput "<font color='green'>Success</font>"
Else
ShowOutput "<font color='red'>Failed</font>"
End If
Err.Clear
On Error GoTo 0
End Sub
Sub HTASleep(intSeconds)
Set objShell = CreateObject("WScript.Shell")
objShell.Run "ping 127.0.0.1 -n " & intSeconds + 1, 0, True
End Sub
</script>
<body>
<table align="center" width="100%" border="0">
<tr valign="center" align="center">
<td colspan="2" valign="center" align="center" style="font-family: arial; font-size: 20px; font-weight: bold;"><h2>Login Script</h2></td>
</tr>
<tr valign="center" align="center">
<td colspan="2" valign="center" align="center"><span id="txt_policy"></span></td>
</tr>
</table>
</body>
Thank you, Rob,
There is only one issue that I have found so far; I cannot manage to get a drive mapping to \\server\users\{individual
I have tried: %username%, objUser and UserName, all without success.
Otherwise, this is precisely the kind of thing that I was looking for!
There is only one issue that I have found so far; I cannot manage to get a drive mapping to \\server\users\{individual
I have tried: %username%, objUser and UserName, all without success.
Otherwise, this is precisely the kind of thing that I was looking for!
Active 1 day ago
Hi, you can use
MapDrive "G:", "\\server\users\" & objNetwork.Username
Regards,
Rob.
MapDrive "G:", "\\server\users\" & objNetwork.Username
Regards,
Rob.
That's it! I obviously didn't put that in correctly! So that's more down to my poor spelling!
Thank you!
Thank you!
Featured Post
Question has a verified solution.
If you are experiencing a similar issue, please ask a related question
Over the years I have built up my own little library of code snippets that I refer to when programming or writing a script. Many of these have come from the web or adaptations from snippets I find on the Web. Periodically I add to them when I come…
With User Account Control (UAC) enabled in Windows 7, one needs to open an elevated Command Prompt in order to run scripts under administrative privileges. Although the elevated Command Prompt accomplishes the task, the question How to run as script…
Get people started with the process of using Access VBA to control Excel using automation, Microsoft Access can control other applications. An example is the ability to programmatically talk to Excel. Using automation, an Access application can laun…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code.
This l…
- Microsoft Office
- Office 365
- Microsoft Access
- VBA
- Microsoft Excel
- Visual Basic Classic
Suggested Courses
Course of the Month9 days, 4 hours left to enroll
721 members asked questions and received personalized solutions in the past 7 days.
Join the community of 500,000 technology professionals and ask your questions.