How do I write a batch file to run a .vbs file for each user login on a server 2003 network from a shared folder?: batch file

by: SteveGTRPosted on 2008-02-03 at 12:43:46ID: 20809983

Here's a batch file I have that will dynamically map a drive to a UNC.

@echo off 
 
setlocal
 
set unc=\\server\share\dir
 
set drive=
for /F "tokens=1,2" %%a in ('net use * "%unc%" 2^>NUL') do if "%%a"=="Drive" set drive=%%b
 
if "%drive%"=="" echo Could not map to %unc%&goto :EOF
 
REM ** Do your common processing. You could call another batch file or vbs script if you want.
REM ** This code is just for testing and can be removed
echo Drive=%drive%
pause
 
REM ** Keep this line to delete the mapped drive
net use "%drive%" /del

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Select all Open in new window

by: RobSampsonPosted on 2008-02-03 at 12:46:22ID: 20809996

Hi, I don't know if a batch file can do this, but if you run this VBS via a login script, it will look for the next available drive letter, map it to a specific shared folder, run the VBS that requires the mapped drive (hopefully not letter dependant!), and then remove the mapped drive.....

Part of it was taken from here:
http://www.microsoft.com/technet/scriptcenter/resources/qanda/jan05/hey0122.mspx

'===============
Set objDictionary = CreateObject("Scripting.Dictionary")
Set objNetwork = CreateObject("WScript.Network")
Set objShell = CreateObject("WScript.Shell")

strShareToMap = "\\Server\Share\"
strVBSFile = "MyScript.vbs"
strComputer = "."

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colDisks = objWMIService.ExecQuery("Select * from Win32_LogicalDisk")

For Each objDisk in colDisks
objDictionary.Add objDisk.DeviceID, objDisk.DeviceID
Next

For i = 67 to 90
strDrive = Chr(i) & ":"
If objDictionary.Exists(strDrive) Then
Else
'Wscript.Echo strDrive & " is the next available drive letter."
objNetwork.MapNetworkDrive strDrive, strShareToMap, False, False
objShell.Run "wscript """ & strDrive & "\" & strVBSFile & """", 1, True
objNetwork.RemoveNetworkDrive strDrive, True
Wscript.Quit
End If
Next
'Wscript.Echo "There are no available drive letters on this computer.
'===============

Regards,

Rob.

by: dragon-itPosted on 2008-02-03 at 13:03:24ID: 20810085

I've no doubt those will work but possibly over complicated if you know what drive letters are free in your environment then there is nothing stopping you doing just:

REM Make sure X: isn't already in use
net use x: /delete 2>NUL
REM Map drive X: to netlogon share
net use X: \\server\netlogon /persistent:no
REM Run VBS Script
cscript //nologo x:\yourscript.vbs
REM Remove X: drive mapping again
net use x: /delete

It would perhaps be best to create a shared drive across all locations or perhaps if all locations have an "S:" shared drive say then just put the VBS in the same path for all of them, e.g. s:\scripts and just add

cscript //nologo s:\scripys\yourscript.vbs

to each of the login scripts the different locations run.

Steve

by: SteveGTRPosted on 2008-02-03 at 13:14:13ID: 20810161

"The problem is that we do not have just one mapped drive common to all machines."

by: dragon-itPosted on 2008-02-03 at 14:11:51ID: 20810643

Sure I took that to mean that at siteA there is \\servera\share and siteB there is \\serverb\share just no central share that everyone maps to. In which case a) just create one, b) use the netlogon share or c) copy it to each site and run it from there.

Anyway reading again it could be one of a number of things (as usual) so no doubt "a_fishy_fella" will come back soon!

Steve

by: a_fishy_fellaPosted on 2008-02-07 at 11:25:37ID: 20844113

Thanks for the suggestions. I will be back as soon as I get a chance to breathe.

by: RobSampsonPosted on 2008-02-07 at 14:02:18ID: 20845781

Breathing is a good thing....try to keep that up..... ;-P .... hopefully you return, not too blue-faced....

by: a_fishy_fellaPosted on 2008-02-10 at 13:02:36ID: 20862595

dragon-it: So far your solution looks elegant and useful for a simpleton like me. I'll work with it and let you know.

by: dragon-itPosted on 2008-02-11 at 00:34:23ID: 20864719

No problem, just ask if you need any help.

Steve

by: a_fishy_fellaPosted on 2008-02-22 at 08:21:27ID: 20958821

dragon-it,

What does the //nologo do?

by: a_fishy_fellaPosted on 2008-02-22 at 14:33:51ID: 20962185

I just added these last two lines to my existing login scripts.

net use v: \\dc1\pcaudit
v:\PCAuditor.VBS

I'll delete the mapped drive later. Steve, you get the prize. All of you presented viable solutions. However, Steve kept it simple and I was able to learn little. Thank you all for your participation.

by: dragon-itPosted on 2008-02-22 at 15:09:24ID: 20962554

No problem, thanks. The //nologo. When you run a vbs file with cscript it will have some info. on the scripting engine etc. to start with. adding the //nologo (yes two //) stops that.

by: dragon-itPosted on 2010-09-21 at 14:08:05ID: 33729566

SteveGTR are you still listening to emails around here - someone was asking about a script you wrote and wondered what happened to you?

by: dragon-itPosted on 2010-09-21 at 14:09:21ID: 33729581

BTW looking back don't know why I didn't just suggest doing

pushd \\server\share
cscript //nologo yourscript.vbs
popd

by: SteveGTRPosted on 2010-09-21 at 14:39:06ID: 33729850

I still read email notifications, but don't participate on EE actively anymore. Glad to see you are still at it :)

by: dragon-itPosted on 2010-09-21 at 14:52:28ID: 33729945

You should try again, I don't know if something annoyed you here or just your situation changed but we learned so much over the years from your scripts etc.... surely you must be in need of some more decorating / gardening / kids hair cutting T-shirts by now ;-)

http://www.experts-exchange.com/OS/Microsoft_Operating_Systems/MS_DOS/Q_26489134.html?cid=1576

I suppose at least it suddenly became easier to get answers around here, though billprew especially flying along and nicking everything going now!

Steve

by: SteveGTRPosted on 2010-09-21 at 15:06:22ID: 33730026

You know it has been so long since I've done this I think that somebody else can surely do this. Good luck :)

Question

How do I write a batch file to run a .vbs file for each user login on a server 2003 network from a shared folder?

Subscribe now for full access to Experts Exchange and get

Instant Access to this Solution

batch file

Windows Batch Scripting

VB Script

VB Objects

Trusted by hundreds of thousands everyday for fast, accurate and reliable tech support.

See what Experts Exchange can do for you.

Got a question?

We've got the answer.

Need individual assistance?

Our experts are ready to help.

Want to learn from the best?

Read articles from industry experts.

Working on a long term project?

Store your work and research.

What Makes Experts Exchange Unique?

Trusted by the world's most respected brands.

Faithfully serving IT professionals since 1996.

Related Solutions

Free Tech Articles

Cloud Class Webinars

Join the Community

Give a Little. Get a Lot.

Answers

3 Ways to Join

The Experts

The Experts

Testimonials

Testimonials

Testimonials

Business Clients

Business Clients

In the Press

In the Press

In the Press