Cuestión : Cuenta de usuario de la neutralización con la escritura de VBS en directorio activo

La cuenta de usuario no fijará para inhabilitar cuando la fecha es objSysInfo expired o de passed.

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

Set = CreateObject (“ADSystemInfo")
strUserDN = de objSysInfo.UserName
Set = GetObject (“LDAP: /” y el

' del strUserDN) permitir los reajustes del comando de Next
' primer del curriculum vitae del error del handling
On del error que el valor de la variable al
' del "" intenta en segundo lugar fijarlo con el valor de AD
' si el segundo falla la variable todavía es fijado al
strwWWHomePage = "": strwWWHomePage = error 0

On del error de la neutralización del
' de objUser.Get (dteCutOffDate del “wWWHomePage”)/>dteCutOffDate =

intDaysLeft = intDaysLeft del

If de DateDiff (“d”, ahora,) > 0 prueba de Then
'el valor en el variable
si ppt determinado de Then
del strwWWHomePage = del "" = CreateObject (“strMbox de PowerPoint.Application")
= MsgBox (“usted tiene” y el intDaysLeft y “los días para terminar este entrenamiento obligatorio o su cuenta serán bloqueados. Chascar la AUTORIZACIÓN para comenzar el ppt del
de la presentación del PowerPoint”). Visible =
Else
del seguimiento \ ppt.ppsx del ppt. Presentations.Open de True
” \ \ serverxx \ " extremo If
End If
 de objUser.AccountDisabled = de True
objUser.SetInfo
wscript.quit
class= del

Respuesta : Cuenta de usuario de la neutralización con la escritura de VBS en directorio activo

Entonces, la mañana después de que la fecha cortada, funcione con esta escritura, y él leerán el archivo de texto e inhabilitarán las cuentas.

Respetos,

Robo.
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:

Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
Const intForReading = 1
Const intForAppending = 8
strDisableAccountsFile = “\ \ serverxx \ seguimiento \ UsersToDisable.txt”
strDisabledReportFile = “\ \ serverxx \ seguimiento \ DisabledUsers.txt”
Fijar el objOutput = objFSO.OpenTextFile (strDisabledReportFile, el intForAppending, verdad)
Fijar objFile = objFSO.OpenTextFile (strDisableAccountsFile, el intForReading, verdad)
Mientras que no objFile.AtEndOfStream
	strUserDN = objFile.ReadLine
	Si "" del ajuste (strUserDN <> ) entonces
		Fijar el objUser = GetObject (“LDAP: /” y strUserDN)
		objUser.AccountDisabled = verdad
		objUser.SetInfo
		Fijar el objUser = nada
		strUserDN de objOutput.WriteLine
	Terminar si
Wend
objFile.Close
objOutput.Close
Fijar objFile = nada
Fijar el objOutput = nada
Fijar objFile = objFSO.CreateTextFile (strDisableAccountsFile, verdad)
objFile.Close
Fijan objFile = nada
Cuentas de MsgBox las “que han sido minusválidos se han escrito” y VbCrLf y strDisabledReportsFile y VbCrLf y “y el archivo de usuarios al disalbe se ha despejado” y strDisableAccountsFile
Otras soluciones  
 
programming4us programming4us