Вот код внизу:
Код
<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>
</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>
