Вопрос : Учет потребителя Disable с сценарием VBS в активно директории

Учет потребителя не установит для того чтобы вывести когда из строя датой будет objSysInfo expired или passed.

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»). Видимо =
Else
отслеживать ppt. Presentations.Open True
» \ \ serverxx \ \ ppt.ppsx " конец If
End If
objUser.AccountDisabled = True
objUser.SetInfo
wscript.quit
class=

Ответ : Учет потребителя Disable с сценарием VBS в активно директории

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

Отношения,

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:

Установите objFSO = CreateObject («Scripting.FileSystemObject») Const intForReading = 1 Const intForAppending = 8 strDisableAccountsFile = «\ \ serverxx \ отслеживать \ UsersToDisable.txt» strDisabledReportFile = «\ \ serverxx \ отслеживать \ DisabledUsers.txt» Установите objOutput = objFSO.OpenTextFile (strDisabledReportFile, intForAppending, поистине) Установите objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading, поистине) Пока не objFile.AtEndOfStream strUserDN = objFile.ReadLine Если "" уравновешивания (strUserDN <> ) после этого Установите objUser = GetObject («LDAP: /» & strUserDN) objUser.AccountDisabled = True objUser.SetInfo Установите objUser = ничего strUserDN objOutput.WriteLine Закончитесь если Wend objFile.Close objOutput.Close Установите objFile = ничего Установите objOutput = ничего Установите objFile = objFSO.CreateTextFile (strDisableAccountsFile, поистине) objFile.Close Установите objFile = ничего Учетом MsgBox «были инвалид был написан к» & VbCrLf & strDisabledReportsFile & VbCrLf & «и архивом потребителей к disalbe освобождает» & strDisableAccountsFile