Dim Share

Set objConnection = GetObject(“WinNT://SERVERNAME/LanmanServer”)
Set colSessions = objConnection.Sessions
Set colResources = objConnection.Resources
Set Shell = CreateObject(“WScript.Shell”)

On Error Resume Next

For Each objResource in colResources

Share = left(objResource.Path,53)
If Share = “F:\Infrastructure\Snowinst2\AppData\Nielsen\database\” Then

Shell.Run”OPENFILES /Disconnect /ID “&objResource.Name,1,True

End If
Next

Ashley – I was having the same issue as you and modified neils code to work for me, I am getting strange errors but it still runs. I dont know enought about this kind of scripting to figure out why, but if anyone sees my error please let me know. I hope this helps someone.

@echo off
(set share=D:\LONGPATH\)
REM !! IMPORTANT set length in 4th from last line !!

FOR /f “Skip=4 tokens=2,7″ %%i in (‘OPENFILES /Query /V’) do (
IF /I NOT “%%i”==”The” (
call :checkpath %%i “%%j”
)
)
pause
GOTO :EOF

:checkpath
set id=%1
set folder=%~2\
:: !! The last number in the next line needs to
:: be the length of the SHARE string
SET root=%FOLDER:~0,40%
IF /I NOT “%ROOT%”==”%SHARE%” GOTO :EOF
Echo %SHARE%
Echo %ROOT%
echo %ID% is open on %FOLDER%. Closing…
NET FILE %id% /CLOSE

You’ll need the SHARE variable to match the output of NET FILES if you need to restrict the files you close to a certain path (ie, not close all open files.)

If NET FILES is truncating your paths, you will need to use shorter ones, or the Script just isn’t up to what you need it for. You would proably be better off looking into a WMI or PowerShell solution.

How will this fix the issue because the NET FILES command is returning the compressed path?

My advice would be to try setting a shorter share (eg, \Database). Even if all you use it for is this script, it should work.

C:\Documents and Settings\adm2sultana>(set share=F:\Infrastructure\Snowinst2\AppData\Nielsen\DATABASE\ ) – is 53 including the /

C:\Documents and Settings\adm2sultana>REM !! IMPORTANT set length in 4th from last line !!

C:\Documents and Settings\adm2sultana>FOR /F “Skip=4 tokens=1,2″ %i in (‘NET FILES’) do (IF /I NOT “%i” == “The” (call :checkpath %i “%j” ) )

C:\Documents and Settings\adm2sultana>(IF /I NOT “14232357″ == “The” (call :checkpath 14232357 “F:\Infrastructure…V_CONFECTIONERY.IDX” ) ) – This one is a problem as it is not displaying the whole path and hence when trying to trim this to 53 charecters….it returns the same.

C:\Documents and Settings\adm2sultana>set id=14232357

C:\Documents and Settings\adm2sultana>set folder=F:\Infrastructure…V_CONFECTIONERY.IDX\

C:\Documents and Settings\adm2sultana>SET root=F:\Infrastructure…V_CONFECTIONERY.IDX\

C:\Documents and Settings\adm2sultana>IF /I NOT “F:\Infrastructure…V_CONFECTIONERY.IDX\ ” == “F:\Infrastructure\Snowinst2\AppData\Nielsen\DATABASE\” GOTO :EOF

C:\Documents and Settings\adm2sultana>(IF /I NOT “14232359″ == “The” (call :checkpath 14232359 “F:\Infrastructure…V_CONFECTIONERY.TAD” ) )

C:\Documents and Settings\adm2sultana>set id=14232359

C:\Documents and Settings\adm2sultana>set folder=F:\Infrastructure…V_CONFECTIONERY.TAD\

C:\Documents and Settings\adm2sultana>SET root=F:\Infrastructure…V_CONFECTIONERY.TAD\

C:\Documents and Settings\adm2sultana>IF /I NOT “F:\Infrastructure…V_CONFECTIONERY.TAD\ ” == “F:\Infrastructure\Snowinst2\AppData\Nielsen\DATABASE\” GOTO :EOF

C:\Documents and Settings\adm2sultana>(IF /I NOT “14232360″ == “The” (call :checkpath 14232360 “F:\Infrastructure…V_CONFECTIONERY.CHR” ) )

C:\Documents and Settings\adm2sultana>set id=14232360

C:\Documents and Settings\adm2sultana>set folder=F:\Infrastructure…V_CONFECTIONERY.CHR\

C:\Documents and Settings\adm2sultana>SET root=F:\Infrastructure…V_CONFECTIONERY.CHR\

C:\Documents and Settings\adm2sultana>IF /I NOT “F:\Infrastructure…V_CONFECTIONERY.CHR\ ” == “F:\Infrastructure\Snowinst2\AppData\Nielsen\DATABASE\” GOTO :EOF

C:\Documents and Settings\adm2sultana>(IF /I NOT “The” == “The” (call :checkpath The “command” ) )

C:\Documents and Settings\adm2sultana>GOTO :EOF

Echo.
Echo %ROOT%*
Echo %SHARE%*

Then run it, and make sure the two strings are the same length. If not, adjust your ’53′ until they are. Chances are, you’re not accounting for the ‘\’, and it needs to be 54 characters, or something similar.

Set folder=%~2\

sets it to the filename within the folder i have set as SHARE eg: C:\Share\Database So if a file by CAT.HDX is open within this folder the Folder variable gets set to that.

when I am setting root=%FOLDER:~0,53% i get the path with the filename set as root because the lenth of th epath is being displayed as indicated by Christian earlier…..

it never goes to closing the file as the IF command after that is never equal….

Can you please help….The length of my SHARE path is 53 characters…..

Thanks