Is there a way to enter a timeout in a VB logon script? ex. no drive mapped - end script after 30 seconds?

I am using a logon script to remove and map network drives. I am not running the logon script via GP. I set the users logon script manually in ADUC.

How would I script a timeout so that if the network drives are not mapped in 30 seconds the script ends?

Here is a copy of the current script that I'm running.

'==================
'BEGIN
'==================


'ON ERROR RESUME NEXT 'ignore errors

'==========================================================
'Clean up old drive mappings
'==========================================================

Dim objNetwork, objFSO, objShell, objExec
Dim bForce, strCommand
Dim strDriveLetter, arrDrives, strDriveMap, arrMappings
bForce = True
arrDrives = Array("P:", "G:")

Set objShell = CreateObject("WScript.Shell")
Set objNetwork = CreateObject("WScript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")

' Section which removes strDriveLetter
For Each strDriveLetter In arrDrives
      If objFSO.DriveExists(strDriveLetter) = True Then
            strCommand = "net use " & strDriveLetter & " /DELETE"
            'MsgBox strCommand
            Set objExec = objShell.Exec(strCommand)
            While objExec.Status = 0
                  ' Wait for the command to finish
            Wend
            Set objExec = Nothing
     End If
next
strDriveLetter1 = "P:"
strDriveLetter2 = "G:"  
strRemotePath1 = "\\CHSBOFPS01\Groups\Charleston Shares\drawings"
strRemotePath2 = "\\CHSBOFPS01\Groups"
 

Set objNetwork = CreateObject("WScript.Network")

' Section which maps two drives, P: and G:
objNetwork.MapNetworkDrive strDriveLetter1, strRemotePath1
objNetwork.MapNetworkDrive strDriveLetter2, strRemotePath2


' add a message box
'WScript.Echo "Map drives " & strDriveLetter1 & " & " & strDriveLetter2

Wscript.Quit
ryancaudillAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Lester_ClaytonCommented:
I would not use Net use and just do a proper drive mapping vbscript.  Here is example code which will map your H: drive to something like a home direcotry.  If the drive mapping fails, it will continue to next line.


Option Explicit
On Error Resume Next
 
Dim objFSO, objNetwork
Dim strDriveLetter, strUNCPath, strUserName
 
set objFSO = CreateObject("Scripting.FileSystemObject")
set objNetwork = CreateObject("WScript.Network")
 
' Try map the home directory, don't do anything if H: is already mapped
 
strUserName = objNetwork.UserName
strDriveLetter = "H:"
strUNCPath = "\\Server\Share\" & strUserName
subMappingRoutine
 
Sub subMappingRoutine
if NOT objFSO.FolderExists(strDriveLetter & "\") Then objNetwork.MapNetworkDrive strDriveLetter, strUNCPath, False
End Sub

Open in new window

0
WylkellCommented:
WSH doesn't have a value for timing out when connecting a drive.  the only thing i can think of is instead using a shell.exec function (like you are already using to unmap drives) and having the script monitor the (now) external process and kill it if it goes past a threshold.
0
ryancaudillAuthor Commented:
Wylkell, how would I modify the script to monitor the time and kill the script if it passes a certin threshold?
0
WylkellCommented:
You'd want to swap out the lines where you're mapping WSH network connections with something akin to the below snippet.  I took your other exec code and modified it to put a time check into it.  i haven't tested the code so i have no idea if it's syntaxually correct but you can play with it and see if it works for you.  I'd personally make it a function long term and just reference it as a one liner like you currently do with .MapNetworkDrive
	strUNCPath = "\\something\somewhere\"
	startTime = now()
	intTimeoutThreshold = "30"
	
	strCommand = "net use " & strDriveLetter & "  " & strUNCPath
	Set objExec = objShell.Exec(strCommand)
	While objExec.Status = 0
		intTimeout = datediff(N,startTime,now())
		if intTimeout < intTimeoutThreshold
			objExec.Terminate
		end if
		
	Wend
	Set objExec = Nothing

Open in new window

0
WylkellCommented:
Oh, line 9 needs to be changed to:
if intTimeout > intTimeoutThreshold

cant believe i missed that, hah hah
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
Visual Basic Classic

From novice to tech pro — start learning today.