Close/disconnect open files on servers

[krinid]

Question: is there a way to close/disconnect open files on server in VBscript?

I can see which files are open by parsing through as shown below, but is there a way to close the files using the information retrieved here?

Set obj = GetObject("WinNT://domain/server/LanmanServer")
for each objOpenFile in obj.Resources
    ...
next

I've seen one method which makes a call to the XP tool OPENFILES (openfiles /disconnect /s server /ID fileid), but is there really no way to do this natively within VBscript?

 

[tsuji]

I am not sure where do you get those lines from. If you read this ms Scripting Guy article:

http://www.microsoft.com/technet/scriptcenter/resources/qanda/feb05/hey0216.mspx

you'll see the .remove method in action.

 

[krinid]

tsuji,
I tried to run your code on one of our servers here, but when it gets to the .Remove line, I get the following error:

Z:\Untitled1.vbs(23, 3) Active Directory: Not implemented

Or if I turn On Error Resume Next on and display the error:
Err 80004001: Not implemented

Any ideas what might be causing this?

 

[GrimR]

Works for me, did you create a script like

Set objConnection = GetObject("WinNT://ServerName/lanmanserver")
Set colSessions = objConnection.Sessions

For Each objSession in colSessions
colSessions.Remove(objSession.Name)
Next

'And here’s one that closes all the open files:

Set objConnection = GetObject("WinNT://ServerName/lanmanserver")
Set colResources = objConnection.Resources

For Each objResource in colResources
colResources.Remove(objResource.Name)
Next

 

[krinid]

I don't understand, but maybe it's just the way our network is set up?

Does anyone know what this "Not implemented" error is about?