Windows Server - Running Login Script after establishing a VPN connection

Asked By TJCooper197

09-May-08 01:42 PM

I want to create a script the user can run that pulls his objuser.scriptpath
properties, and runs the login script specified.

Is there a way to simply restart the login process (the part that goes to
that location and runs the specified script)?

So far I have a script that get the correct field, but I dont know how to
run/launch a bat file using that information. Ive tried wscript.run and
wsshell.run, but they dont seem to work. Any suggestions?

Set oNet = Wscript.CreateObject("Wscript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & ADSysInfo.UserName &"")
Set WshShell = CreateObject("Scripting.FileSystemObject")

Wscript.echo "Script Path: \\domain.loc\netlogon\ou\"& objUser.ScriptPath
'wscript.run "\\domain.loc\netlogon\ou\"& objUser.ScriptPath
'wshshell.run "\\domain.loc\netlogon\ou\"& objUser.ScriptPath


Set oNet = Wscript.CreateObject("Wscript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & ADSysInfo.UserName &"")
Set WshShell = CreateObject("Scripting.FileSystemObject")

09-May-08 02:03 PM

Well, I moved on and decided to map a network drive, run the bat file, then
disconnect the network drive.

Only one problem. The network drive disconnects before the bat file finishes
running.

What is the most gracefull way to fix this new issue (create a timer?)?

Set objNetwork = Wscript.CreateObject("Wscript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & ADSysInfo.UserName &"")
Set WshShell = WScript.CreateObject("WScript.Shell")
Wscript.echo "z:\"& objUser.ScriptPath

objNetwork.MapNetworkDrive "z:", "\\domainx.com\netlogon"
wshshell.run "z:\folder\login.bat"
objNetwork.RemoveNetworkDrive "z:"

---------------

09-May-08 04:40 PM

Put the "net use z: /d" into "login.bat".

You could simplify things considerably if you used UNC coding
for your logon script. In this case you would not need to map
or unmap a share to drive Z:.

09-May-08 05:04 PM

We are using kixart in our login process. I cant really modify for the
login.bat file, because it would cause issues with people logging in normally.

I suppose I could call up the text file with the actuall mapped drives and
parse it for UNC paths. Put those UNC paths into an array and then map them.

09-May-08 05:15 PM

What calls up your VB Script program? Do you have any
control over it? If so, turn it into a pure batch command!
This would be equivalent to your current VB Script program
but much simpler. It also avoids the timing issue.

09-May-08 06:36 PM

You bind wshShell to "Scripting.FileSystemObject" instead of

--
Richard Mueller
MVP Directory Services
Hilltop Lab - http://www.rlmueller.net
--

10-May-08 12:48 PM

Or, alternately:


The "true" will cause the .run to return only once the batch script has
completed.

/Al

13-May-08 10:11 AM

The login script is referenced in the user object login script field. That
calls a batch file with looks at a text file for map drives.

Is there a way to launch the same process that takes place when you log in?

13-May-08 10:13 AM

I dont know what you mean by a "pure batch command".

13-May-08 10:15 AM

Thanks!!!

It ALMOST works. It tries to disconnect the drive just a tad too soon.

13-May-08 10:18 AM

So I need to do?

Set Wscript.Shell = CreateObject("Scripting.FileSystemObject")

13-May-08 10:20 AM

You previously wrote
and parse it for UNC paths. Put those UNC paths into an array and
then map them."
This sounded like a good idea to me - what's happened to it?

13-May-08 10:33 AM

I have to figure out how to parse the file correctly. I dont do a lot of
scripting, so everything is slow going for me. The file has a number of
mapped drives and commented lines. I can ignore commented lines and focus on
lines that start with a $. This is what I have to parse:

----------

;
; Windows NT and Windows For Workgroups Logon Script
;

$NameLine = "my region"
$HelpDesk = "555-555-5555"

$Drive1 = M:
$Name1  = "drivea"
$Dir1   = "\\server\mapm"

$Drive3 = W:
$Name3  = "driveb"
$Dir3   = "\\server\mapw"

;
; the following should reflect appropriate mapped drive for location
;

$Drive4 = H:
$Name4  = "drivec"
$Dir4   = "\\server\maph"

$Drive5 = P:
$Name5  = "drived"
$Dir5   = "\\server\mapp"

$Drive6 = k:
$Name6  = "drivee"
$Dir6   = "\\server\mapk"

--------------

13-May-08 11:48 AM

Your reply is a little too vague to give you a precise
recipe but the following batch file may well do the job.
Here is what you need to do:
- Use copy & paste to copy the code into a batch file.
- Adjust Lines 03 and 04 to suit your own environment.
- Remove the line numbers.
- Test the batch file.
- When happy with the result, activate the batch file by
removing the word "echo" on Line 09.

01. @echo off
02. setlocal enabledelayedexpansion
03. set ShareName=$Dir6
04. set ShareList=c:\Shares.txt
05.
06. for /F "tokens=1,2 delims==" %%a in ('type %ShareList%') do (
07.   set Share=%%a
08.   set Share=!Share: =!
09.   if /i !Share!==%ShareName% echo call %%b\netlogon.bat
10. )
Feel free to ask if you want to know how and why the code works.

14-May-08 12:56 AM

Wait a minute, the script shown is a kixtart script. Instead of writing a
script in another language, whether batch or vbscript, why not just get
kixtart to run the script?

/Al

14-May-08 01:16 AM

Indeed, but then I'm by now hopelessly confused about the roles
of the various kixtart/batch/VB Script scripts and which ones
the OP can modify. I'm thinking of withdrawing altogether - if
your understanding is better than mine, would you care to take
over?

14-May-08 01:46 AM

No, you are doing a fine job.

/Al

15-May-08 02:51 PM

I dont know how. The kixtart script is launched via a batch file in their
profile (login script field). I cannot seem to recreate that process.

I dont know how to launch that batch file from a script. I tried it and it
didnt seem to work. How do I launch a bat file that resides in the netlogon
folder from a vbs script?

Below is the .bat file that pulls the map drives from the previous posted
txt file.

----------

15-May-08 02:58 PM

Got it..im an idiot!!!!!

This works just fine!!

Set objNetwork = Wscript.CreateObject("Wscript.Network")
Set ADSysInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & ADSysInfo.UserName &"")
Set WshShell = WScript.CreateObject("WScript.Shell")

wshshell.run "\\domain\netlogon\region\bat.bat"

Now I just have to create the correct path from info pulled in the user
account object

Thank you all for putting up with my obvious newbieness!!