Форум программистов CODEBY.NET Хостинг в Беларуси — Active Technologies

Разработка бизнес сайтов

Нужны клиенты? Тогда сюда быстрее...
X   Сообщение сайта
(Сообщение закроется через 2 секунды)

Здравствуйте, гость ( Вход | Регистрация )




> Vbs скрипт
Rtf
Вставить ник
сообщение 5:03:2008, 05:50
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 7
Регистрация: 5:03:2008
Пользователь №: 15 657



Репутация: - 0 +


Хотел сделать страничку выводящую время, дату и ФИО зашедшего пользователя. Сделал 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>
Подняться вверх 
 
Сообщение #1
 
Новая тема 
Ответов (1 - 11)
sax_ol
Вставить ник
сообщение 5:03:2008, 06:36
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Подозреваю, что работать и не будет, по условиям безопастности.
Подняться вверх 
 
Сообщение #2
Rtf
Вставить ник
сообщение 5:03:2008, 06:47
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 7
Регистрация: 5:03:2008
Пользователь №: 15 657



Репутация: - 0 +


в смысле ? IE настроить на полное доверие к моему интранет сайту ?
Подняться вверх 
 
Сообщение #3
sax_ol
Вставить ник
сообщение 5:03:2008, 06:51
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Можете попробовать, но врядли поможет.
Подняться вверх 
 
Сообщение #4
Rtf
Вставить ник
сообщение 5:03:2008, 06:56
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 7
Регистрация: 5:03:2008
Пользователь №: 15 657



Репутация: - 0 +


Все настроил - заработал. Только почему то если вышеприведенный код указываю в качестве серверного через RunAt="Server" - тоже не работает. :-(
Подняться вверх 
 
Сообщение #5
sax_ol
Вставить ник
сообщение 5:03:2008, 07:00
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Цитата(Rtf @ 5:03:2008 - 09:56) *
Все настроил - заработал.

О, я тока хотел сказать, что по идее должно, но раз уже, то и хорошо. smile.gif
Цитата(Rtf @ 5:03:2008 - 09:56) *
Только почему то если вышеприведенный код указываю в качестве серверного через RunAt="Server"

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

А зачем вам серверная, если надо локального пользователя?
Подняться вверх 
 
Сообщение #6
Rtf
Вставить ник
сообщение 5:03:2008, 08:20
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 7
Регистрация: 5:03:2008
Пользователь №: 15 657



Репутация: - 0 +


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

Сообщение отредактировал Rtf - 5:03:2008, 08:22
Подняться вверх 
 
Сообщение #7
sax_ol
Вставить ник
сообщение 5:03:2008, 08:34
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Цитата(Rtf @ 5:03:2008 - 11:20) *
с базой данных соеденить Сайт, там наверное лучше серверные сценарии взять на вооружение ?

Только так, и никак иначе.
Цитата(Rtf @ 5:03:2008 - 11:20) *
Получается обозреватель с первого раза не обрабатывает сценарии

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

PS: У вас сайт уже готовый? Если нет, то посоветую забить на ASP в пользу ASP.NET. Сначала будет сложновато, но потом окупится с лихвой. Да и даже если готовый, то всеравно забить. smile.gif
Подняться вверх 
 
Сообщение #8
Rtf
Вставить ник
сообщение 5:03:2008, 10:19
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 7
Регистрация: 5:03:2008
Пользователь №: 15 657



Репутация: - 0 +


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

Сайт готовый ... Хотел быстренько БД развернуть с ВЕБ мордой.... видимо быстро не получится.... А через ASP.NET еще дольше...
А как через серверные скрипты узнать кто зашел на сайт ? примерный код не подскажите ? илив какую сторону рыть ? или статьи какие нить ?
Подняться вверх 
 
Сообщение #9
sax_ol
Вставить ник
сообщение 5:03:2008, 10:25
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


начните так: ASP authentication
Подняться вверх 
 
Сообщение #10
Rtf
Вставить ник
сообщение 17:03:2008, 12:15
Цитата Ответить 


Новенький
*

Группа: Программист
Сообщений: 7
Регистрация: 5:03:2008
Пользователь №: 15 657



Репутация: - 0 +


ненашел ничего к сожалению. Везде только ASP.NET упоминается - вернее способ реализации авторизации через этот язык.
Подняться вверх 
 
Сообщение #11
sax_ol
Вставить ник
сообщение 17:03:2008, 13:14
Цитата Ответить 


==============
*****

Группа: Модеры
Сообщений: 1 740
Регистрация: 11:01:2007
Пользователь №: 8 750
Специализация: specialist



Репутация: - 27 +


Ну чтож вы такое говорите, прям в первых же ссылках никакого ASP.NET, чистый ASP.
Подняться вверх 
 
Сообщение #12


Ответить  Новая тема 

 

RSS Текстовая версия Сейчас: 17:05:2008 - 07:45
с нами можно связаться по:
телефону: +375-(29)-632-60-67
e-mail:info@codeby.net