Пуск -> Настройки -> Панель управления -> Администрирование -> Data Sources (ODBC)
Вкладка Системный DSN, выбираете USERGATE, затем Настройка и Починить - потом указываете путь до файла log.mdb.
Для английской версии Windows:
Start -> Settings -> Control Panel -> Administrative Tools -> Data Sources (ODBC)
Вкладка System DSN, выбираете USERGATE, затем Configure и Repair - потом указываете путь до файла log.mdb.
Внимание: Первый способ не будет работать для HTTP - авторизации, а второй - если включена опция "не использовать прокси для локальных адресов" в браузере.
Удаленный просмотр статистики возможен только при остановленном сервере UserGate. Проще подключаться через RDP и снимать статистику.
UserName= InputBox("Enter user name you want to delete!","VBScript: Select user dialog!")
'Define the OLE DB connection string.
strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Program files\Usergate4\log.mdb"
'Instantiate the Connection object and open a database
connection.
Set cnn = CreateObject("ADODB.Connection")
cnn.Open strConnectionString
'Cleap up CONNECTIONS table
strSQL = "DELETE CONNECTIONS.* " _
& "FROM CONNECTIONS INNER JOIN (SESSIONS INNER JOIN USERS ON
SESSIONS.USER_ID=USERS.USER_ID) ON " _
& "CONNECTIONS.SESSION_ID=SESSIONS.SESSION_ID " _
& "WHERE (CONNECTIONS.SESSION_ID=SESSIONS.SESSION_ID) AND
(USERS.USER_NAME='" + UserName + "');"
MsgBox "Delete Connections query: " + Chr(13) + strSQL
cnn.Execute strSQL
'Cleap up NAT table
strSQL = "DELETE NAT.* " _
& "FROM NAT INNER JOIN (SESSIONS INNER JOIN USERS ON
SESSIONS.USER_ID=USERS.USER_ID) ON " _
& "NAT.SESSION_ID=SESSIONS.SESSION_ID " _
& "WHERE (NAT.SESSION_ID=SESSIONS.SESSION_ID) AND
(USERS.USER_NAME='" + UserName + "');"
MsgBox "Delete NAT query: " + Chr(13) + strSQL
cnn.Execute strSQL
' Clar up SESSIONS table
strSQL = "DELETE SESSIONS.* " _
& "FROM SESSIONS INNER JOIN USERS ON
USERS.USER_ID=SESSIONS.USER_ID " _
& "WHERE USERS.USER_NAME='" + UserName + "';"
MsgBox "Delete Sessions query: " + Chr(13) + strSQL
cnn.Execute strSQL
' Clar up USERS table
strSQL = "DELETE USERS.* " _
& "FROM USERS " _
& "WHERE USERS.USER_NAME='" + UserName + "';"
MsgBox "Delete User query: " + Chr(13) + strSQL
cnn.Execute strSQL
Поместите файл в директорию UserGate4 и выполните простым нажатием [Enter]. Интерпретатор скриптов имеется в любой ОС, начиная с Windows 2000.