Вопрос : Не смогите получить, что сценарий создаться или написаться к UsersToDisable.txt на файловом сервере

Я не могу получить, что сценарий создался или написался к UsersToDisable.txt на файловом сервере. Я использую отрезок с даты 18-Jul-2010 для того чтобы испытать его. Не будет значения в атрибуте wWWHomePage. Я пропавш? objSysInfo


Dim, objUser, strwWWHomePage, strUserDN, ppt, objSysInfo strMbox

Set = CreateObject («ADSystemInfo")
strUserDN = objSysInfo.UserName
Set = GetObject («LDAP: /» &

' strUserDN) включите резюме Next
' ошибки handling
On ошибки сперва управляйте возвратами, котор значение перемеююого к
' "" во-вторых пытает установить его с значением от AD
' если секунда терпит неудачу перемеююый все еще будет установлена к
strwWWHomePage = "":, то strwWWHomePage = ошибка переход 0

On ошибки Disable
' objUser.Get (dteCutOffDate «wWWHomePage»)/>dteCutOffDate =

intDaysLeft =

If DateDiff («d», теперь,) intDaysLeft > 0 испытание Then
'значение в variable
если ppt Then
strwWWHomePage = "" установленное = CreateObject, то («strMbox PowerPoint.Application")
= MsgBox («вы имеете» & intDaysLeft & «дни для того чтобы завершить эту необходимую тренировку или ваш учет будут запертый. Щелкните О'КЕЙОМ для того чтобы начать ppt
представления PowerPoint»). class=

Ответ : Не смогите получить, что сценарий создаться или написаться к UsersToDisable.txt на файловом сервере

Hi, сценарий только создаст архив если там *is* что-то в атрибуте wwwHomePage.

Если я вспоминаю правильно, то когда потребитель закончит осмотреть PPT, вы напишете значение в атрибут wwwHomePage.

Так, здесь будет сценарий в настоящее время делает:
1) Если в настоящее время датой будет прошлый отрезок с даты, то не сделайте ничего.
2) Если дата выключения не достигалась, и не будет значения wwwHomePage (которого, потребитель не осматривал PPT), то покажите PPT.
3) Если дата выключения не достигалась, и будет значение wwwHomePage (которое, потребитель осматривал PPT), то напишите к архиву для того чтобы сообщить Admins для того чтобы вывести учет из строя.

Читающ то, я не думаю который фактическ вам нужны.  Здесь будет я думаю вам:
1) Если не, то значение в wwwHomePage, и не достигалась дата выключения, показывает PPT
2) Если не, то значение в wwwHomePage, и дата выключения достигалась, пишет к архиву для того чтобы вывести учет из строя.
3) Если БУДЕТ значение в wwwHomePage, то не сделайте ничего, потому что PPT было осмотрено

Так, я переупорядочивал сценарий для того чтобы одеть то.

Я осуществлял вам будет нужно сделать, бежит сценарию, котор я дал вас для того чтобы прочитать учет потребителя инвалид, на ежедневное основание, или возможно больше если вы любите, то, потому что учет потребителя не будет написан там до тех пор пока каждый потребитель не внести в журнал дальше, и это могут принять промежуток времени если вы имеете потребителей прочь на некоторое время.

Также, чувствуйте свободно испытать это перед закрывать вопрос.  Вы радушны для того чтобы попросить пояснение и починки, если это не делает, то вам нужно.

Отношения,

Rob.

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: 27: 28: 29: 30: 31: 32: 33: 34: 35: 36: 37:

Тусклое objSysInfo, objUser, strwWWHomePage, strUserDN, ppt, strMbox Установите objSysInfo = CreateObject («ADSystemInfo») strUserDN = objSysInfo.UserName Установите objUser = GetObject («LDAP: /» & strUserDN) 'Включите обработку ошибок На ошибке возобновьте затем 'Первое командование переустановит значение перемеююого к "" 'Во-вторых пытает установить его с значением от ОБЪЯВЛЕНИЯ 'Если секунда терпит неудачу, то перемеююый все еще будет установлена к "" strwWWHomePage = "": strwWWHomePage = objUser.Get («wWWHomePage») 'Обработка ошибок Disable На ошибке переход 0 dteCutOffDate = CDate («18-Jul-2010») intDaysLeft = DateDiff («d», теперь, dteCutOffDate) 'Испытайте значение в перемеююом Если strwWWHomePage = "" после этого Если intDaysLeft > 0 после этого Установите ppt = CreateObject («PowerPoint.Application») strMbox = MsgBox («вы имеете» & intDaysLeft & «дни для того чтобы завершить эту необходимую тренировку или ваш учет будут запертый. О'КЕЙО щелчка для того чтобы начать представление PowerPoint») ppt. Видимо = True ppt. Presentations.Open «\ \ serverxx \ отслеживать \ ppt.ppsx» Еще Установите objFSO = CreateObject («Scripting.FileSystemObject») Const intForAppending = 8 strDisableAccountsFile = «\ \ serverxx \ отслеживать \ UsersToDisable.txt» Установленное objFile = objFSO.CreateTextFile (strDisableAccountsFile, intForAppending, поистине) strUserDN objFile.WriteLine objFile.Close 'objUser.AccountDisabled = True 'objUser.SetInfo Закончитесь если Закончитесь если