Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум программистов _ Общие вопросы _ Vbs скрипт

Автор: Rtf 5:03:2008, 05:50

Хотел сделать страничку выводящую время, дату и ФИО зашедшего пользователя. Сделал htm файл с клиентским VBS скриптом, но на моем ПК работает если запускаю с рабочего стола. А когда выложил его на Web- сервер - не работает, вернее только время выдает а имя пользователя не выдает. Все саказанное относится к Интранет сайту, т.е. пользователи в домене.
Вот код внизу:

Код

<head>
</head>
<body>

<p align="left"><span style="font-size: 14.0pt">
<script language=VBScript >
set WshShell = CreateObject("WScript.Shell")
set objSysInfo = CreateObject("ADSystemInfo")

strUserDN = objSysInfo.UserName      'Информация о Учетке Пользователя Домена

'**************************************************************  <Блок вычленения Данных пользователя> **************************
'********* нахождение поля ФИО
CN=InStr(strUserDN,"CN=") 'номер позиций где CN=
OU=InStr(strUserDN,"OU=") 'номер позиций где OU=
LenCN=OU-5                'Длина подстроки Ф.И.О.
FIO=Mid(strUserDN,CN+3,LenCN)

'***************************** Гендерность ****************************
Gender=Right(FIO,1) ' берет первую букву справа строки FIO - т.е. последняя буква отчества
If Gender="а" then
              Gender="female"
              Else Gender="male"
End If

'**************************************************    Завершение Блока вычленения Данных пользователя> **************************

/script>
</span>

<p align="left"><span style="font-size: 14.0pt">

<script language=VBScript >

Today=Day(date)&"-го"

CurrentMonth=MonthName(month(date),false)
Suffix=Right(CurrentMonth,1)

If Suffix="ь"  then 'Если окончание ммесяца на мягкий знак то преобразовать в "я" т.е. январь- января
                  CurrentMonth=Left(CurrentMonth,Len(CurrentMonth)-1)&"я"
                Else
                  CurrentMonth=CurrentMonth&"а"
End If


Today=Today&" "&CurrentMonth&" "&Year(date)
Document.write Today&"<br>"
Document.write "проверка ФИО: "&FIO

</script>

</span>

</body>

Автор: sax_ol 5:03:2008, 06:36

Подозреваю, что работать и не будет, по условиям безопастности.

Автор: Rtf 5:03:2008, 06:47

в смысле ? IE настроить на полное доверие к моему интранет сайту ?

Автор: sax_ol 5:03:2008, 06:51

Можете попробовать, но врядли поможет.

Автор: Rtf 5:03:2008, 06:56

Все настроил - заработал. Только почему то если вышеприведенный код указываю в качестве серверного через RunAt="Server" - тоже не работает. :-(

Автор: sax_ol 5:03:2008, 07:00

Цитата(Rtf @ 5:03:2008 - 09:56)

Все настроил - заработал.

О, я тока хотел сказать, что по идее должно, но раз уже, то и хорошо.

Цитата(Rtf @ 5:03:2008 - 09:56)

Только почему то если вышеприведенный код указываю в качестве серверного через RunAt="Server"

А страница эта обрабатывается в ASP? Настроено все?

А зачем вам серверная, если надо локального пользователя?

Автор: Rtf 5:03:2008, 08:20

Ну так то пока без надобностей. Просто хотел с базой данных соеденить Сайт, там наверное лучше серверные сценарии взять на вооружение ?
Получается обозреватель с первого раза не обрабатывает сценарии - говорит что есть ActiveX элементы не подписанные. Как их подписанными сделать ?

Автор: sax_ol 5:03:2008, 08:34

Цитата(Rtf @ 5:03:2008 - 11:20)

с базой данных соеденить Сайт, там наверное лучше серверные сценарии взять на вооружение ?

Только так, и никак иначе.

Цитата(Rtf @ 5:03:2008 - 11:20)

Получается обозреватель с первого раза не обрабатывает сценарии

Обозреватель не обрабатывает серверные сценарии, т.к. он клиент, а это работа сервера.
Тут надо правильно настроить IIS, информации по этому вопросу горы, даже в справке самого IIS есть.

PS: У вас сайт уже готовый? Если нет, то посоветую забить на ASP в пользу ASP.NET. Сначала будет сложновато, но потом окупится с лихвой. Да и даже если готовый, то всеравно забить.

Автор: Rtf 5:03:2008, 10:19

Цитата

PS: У вас сайт уже готовый? Если нет, то посоветую забить на ASP в пользу ASP.NET. Сначала будет сложновато, но потом окупится с лихвой. Да и даже если готовый, то всеравно забить.

Сайт готовый ... Хотел быстренько БД развернуть с ВЕБ мордой.... видимо быстро не получится.... А через ASP.NET еще дольше...
А как через серверные скрипты узнать кто зашел на сайт ? примерный код не подскажите ? илив какую сторону рыть ? или статьи какие нить ?

Автор: sax_ol 5:03:2008, 10:25

начните так: http://www.google.com/search?hl=en&q=ASP+authentication

Автор: Rtf 17:03:2008, 12:15

ненашел ничего к сожалению. Везде только ASP.NET упоминается - вернее способ реализации авторизации через этот язык.

Автор: sax_ol 17:03:2008, 13:14

Ну чтож вы такое говорите, прям в первых же ссылках никакого ASP.NET, чистый ASP.