On Error Resume Next
ServerName = "."

While 1 'Вечный цикл
    Set objConn = CreateObject("ADODB.Connection")
    objConn.ConnectionString = "Driver=Firebird/InterBase(r) driver;Uid=SYSDBA;Pwd=masterkey;DbName=hostname:путь к вашей БД;"
    objConn.ConnectionTimeOut = 15
    objConn.CommandTimeout = 30
    objConn.Open

    Set objRecordset = objConn.Execute("DELETE FROM OPENFILES;")
    Set objRecordset = objConn.Execute("DELETE FROM USERS;")
    '==============================================================================
    Set FileService = GetObject("WinNT://" &  ServerName & "/LanmanServer")

    For Each Res In FileService.Resources    
        Set objRecordset = objConn.Execute("INSERT INTO OPENFILES (NAME_USER, NAME_FILE) VALUES ('"& Res.Get("User") &"','"& Res.Get("Path") &"')")
    Next

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

    For Each objSession in colSessions
        Set objRecordset = objConn.Execute("INSERT INTO USERS (NAME_USER, NAME_COMPUTER) VALUES ('"& objSession.User &"','"& objSession.Computer &"')")
    Next

    objConn.Close

    WScript.Sleep 10000
Wend

ServerName = "ComputerName"
'==============================================================================
On Error Resume Next
Set FileService = GetObject("WinNT://" & ServerName & "/LanmanServer")
For Each Res In FileService.Resources
    WScript.Echo Res.Get("User") & " " & Res.Get("Path")
    WScript.Echo
Next