Отправляет email-рассылки с помощью сервиса Sendsay

[ СЕКРЕТЫ WINDOWS ]

Подписаться Бесплатный дискуссионный лист Подписчиков 130
←   Октябрь 2005   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
26.10.2005
07:05:11
15:30:28
27
28
29
30
30.10.2005
00:20:48
02:43:21
31
31.10.2005
09:53:37
18:54:22


За последние 60 дней ни разу не выходила


Сайт листа: http://www.all-win.ru/
Открыт: 02-02-2004
Пре-модерация: Нет
Адрес для писем в лист: comp.soft.win.allwin-list@subscribe.ru

Модератор
Сергей

Статистика

130 подписчиков
0 за неделю

[СЕКРЕТЫ WINDOWS] Re[2]: Авто контроль времени

Если бы фиксировано было бы легче ...

Можно подвесить скрипт, который отключал пользователя и блокировал его
учетную запись.

Matrix пишет:

Ответить   Anton Mon, 31 Oct 2005 08:25:29 +0200 (#466002)

 

Ответы:

А скрипт то как написать?

--
С уважением, Matrix
nemov_pav***@m*****.ru
Original Message From: "Anton" <corp_acy***@a*****.ua>
To: "comp.soft.win.allwin (3773580)" <nemov_pav***@m*****.ru>
Sent: Monday, October 31, 2005 9:25 AM

Ответить  
"Matrix"
Mon, 31 Oct 2005 18:51:37 +0300 (#466305)

 

Ручками :) ...
Создаешь файлик, например с расширением .vbs и в нем пишешь что то типа
(для VBS),

Dim arrLogonHoursBytes(20)
Dim arrLogonHoursBits(167)
arrDayOfWeek = Array _
("Sun", "Mon", "Tue", "Wed", _
"Thu", "Fri", "Sat")

Set objUser = GetObject _
("LDAP://cn=myerken,ou=management,dc=fabrikam,dc=com")
objUser.GetInfoEx Array("logonHours"), 0
arrLogonHours = objUser.Get("logonHours")

For i = 1 To LenB(arrLogonHours)
arrLogonHoursBytes(i-1) = AscB(MidB(arrLogonHours, i, 1))
Next

intCounter = 0
intLoopCounter = 0
WScript.Echo "Day Byte 1 Byte 2 Byte 3"
For Each LogonHourByte In arrLogonHoursBytes
arrLogonHourBits = GetLogonHourBits(LogonHourByte)

If intCounter = 0 Then
WScript.STDOUT.Write arrDayOfWeek(intLoopCounter) & Space(2)
intLoopCounter = intLoopCounter + 1
End If

For Each LogonHourBit In arrLogonHourBits
WScript.STDOUT.Write LogonHourBit
intCounter = 1 + intCounter

If intCounter = 8 or intCounter = 16 Then
WScript.STDOUT.Write Space(1)
End If

If intCounter = 24 Then
WScript.echo VbCr
intCounter = 0
End If
Next
Next

Function GetLogonHourBits(x)
Dim arrBits(7)
For i = 7 to 0 Step -1
If x And 2^i Then
arrBits(i) = 1
Else
arrBits(i) = 0
End If
Next
GetLogonHourBits = arrBits
End Function

Matrix пишет:

Ответить   Anton Tue, 01 Nov 2005 08:59:57 +0200 (#466825)