FreedomF2000
30-12-2010, 11:21
Есть контроллер домена на базе Win Serv 2003
Есть FreeBSD которая не видна с клиентских машин но видна с сервера
Надо:
При Входе отправлять данные пользователя на FreeBSD и писать в файл
При Выходе писать в тот же файл но с тегом logout
Создал VBS скрипт который через ssh отправляет данные на сервер Win
Тот в свою очередь пробрасывает его на Free
Скрипт logon отрабатывается без проблем
А вот скрипт logout не успевает отработатся....
Dim objADSystemInfo
Dim objUser
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)
dim z
dim zz
dim url
url=Chr(34)+"C:\Documents and Settings\%username%\plink.exe"+Chr(34)+" -l ad_user -pw ***** 172.16.0.206"+" /etc/ad_user.set"+" "+objUser.sAMAccountName+" :logout"
set zz = wscript.createobject("wscript.shell")
z = zz.run (url)
Set objUser = Nothing
Set objADSystemInfo = Nothing
WScript.Quit 0
В чем может быть причина?
Есть FreeBSD которая не видна с клиентских машин но видна с сервера
Надо:
При Входе отправлять данные пользователя на FreeBSD и писать в файл
При Выходе писать в тот же файл но с тегом logout
Создал VBS скрипт который через ssh отправляет данные на сервер Win
Тот в свою очередь пробрасывает его на Free
Скрипт logon отрабатывается без проблем
А вот скрипт logout не успевает отработатся....
Dim objADSystemInfo
Dim objUser
Set objADSystemInfo = CreateObject("ADSystemInfo")
Set objUser = GetObject("LDAP://" & objADSystemInfo.UserName)
dim z
dim zz
dim url
url=Chr(34)+"C:\Documents and Settings\%username%\plink.exe"+Chr(34)+" -l ad_user -pw ***** 172.16.0.206"+" /etc/ad_user.set"+" "+objUser.sAMAccountName+" :logout"
set zz = wscript.createobject("wscript.shell")
z = zz.run (url)
Set objUser = Nothing
Set objADSystemInfo = Nothing
WScript.Quit 0
В чем может быть причина?