Cuestión : No puede conseguir la escritura crear o escribir a UsersToDisable.txt en el servidor de archivos

No puedo conseguir la escritura para crear o para escribir a UsersToDisable.txt en el servidor de archivos. Estoy utilizando la fecha cortada de 18-Jul-2010 para probarlo. No hay valor en la cualidad del wWWHomePage. ¿Cuál falto? objSysInfo del


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 = objFSO determinado del
Else
del seguimiento \ ppt.ppsx del ppt. Presentations.Open de True
” \ \ serverxx \ " = el
Const de CreateObject (“Scripting.FileSystemObject”) intForAppending = 8
strDisableAccountsFile =” \ \ serverxx \ el
de/>ToDisable.txt " fijó objFile = extremo If
End If


 de objUser.SetInfo
wscript.quit
del strUserDN
objFile.Close
'objUser.AccountDisabled = True
'del
objFile.WriteLine de objFSO.CreateTextFile (strDisableAccountsFile, el intForAppending, verdad) class= del

Respuesta : No puede conseguir la escritura crear o escribir a UsersToDisable.txt en el servidor de archivos

Hola, la escritura creará solamente el archivo si allí *is* algo en la cualidad del wwwHomePage.

Si recuerdo correctamente, cuando el usuario acaba de ver el PPT, usted escribirá un valor en la cualidad del wwwHomePage.

Así pues, aquí es lo que lo hace la escritura actual:
1) Si la fecha actual es pasado la fecha cortada, no hacer nada.
2) Si la fecha final no se ha alcanzado, y no hay valor del wwwHomePage (es decir, el usuario no ha visto el PPT), después demostrar el PPT.
3) Si la fecha final no se ha alcanzado, y hay un valor del wwwHomePage (es decir, el usuario ha visto el PPT), después escribir al archivo para informar a Admins para inhabilitar la cuenta.

Leyendo eso, no pienso que es realmente lo que usted necesita.  Aquí es lo que pienso que usted necesita:
1) Si no hay un valor en wwwHomePage, y la fecha final no se ha alcanzado, demuestra el PPT
2) Si no hay un valor en wwwHomePage, y se ha alcanzado la fecha final, escribe al archivo para inhabilitar la cuenta.
3) Si HAY un valor en wwwHomePage, no hacer nada, porque se ha visto el PPT

Así pues, he reordenado la escritura para adaptarme a eso.

Qué he realizado que usted necesitará hacer, se funciona la escritura que le di para leer las cuentas a usuario de minusválidos, sobre una base diaria, o quizá más si usted tiene gusto, porque las cuentas de usuario no serán escritas allí hasta que cada usuario abra una sesión, y esto pueden tardar un rato si usted tiene usuarios lejos durante algún tiempo.

También, sentir libre de probar esto antes de cerrar la pregunta.  Usted es agradable pedir la clarificación y arreglos, si esto no hace lo que usted necesita.

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

objSysInfo dévil, objUser, strwWWHomePage, strUserDN, ppt, strMbox

Fijar el objSysInfo = CreateObject (“ADSystemInfo”)
strUserDN = objSysInfo.UserName
Fijar el objUser = GetObject (“LDAP: /” y strUserDN)

'Permitir el tratamiento de errores
En error reasumir después
El 'primer comando reajusta el valor de la variable al ""
'Intenta en segundo lugar fijarlo con el valor del ANUNCIO
'Si el segundo falla la variable todavía será fijada al ""
strwWWHomePage = "": strwWWHomePage = objUser.Get (“wWWHomePage”)
'Tratamiento de errores de la neutralización
En el error 0 indicado

dteCutOffDate = CDate (“18-Jul-2010”)

intDaysLeft = DateDiff (“d”, ahora, dteCutOffDate)

'Probar el valor en la variable
Si strwWWHomePage = "" después
	Si intDaysLeft > 0 entonces
		Fijar el ppt = CreateObject (“PowerPoint.Application”)
		strMbox = MsgBox (“usted tiene” y el intDaysLeft y los “días para terminar este entrenamiento obligatorio o su cuenta serán bloqueados. AUTORIZACIÓN del tecleo para comenzar la presentación del PowerPoint”)
		ppt. Visible = verdad
		ppt. Presentations.Open “\ \ serverxx \ seguimiento \ ppt.ppsx”
	
		Fijar el objFSO = CreateObject (“Scripting.FileSystemObject”)
		Const intForAppending = 8
		strDisableAccountsFile = “\ \ serverxx \ seguimiento \ UsersToDisable.txt”
		objFile determinado = objFSO.CreateTextFile (strDisableAccountsFile, el intForAppending, verdad)
		strUserDN de objFile.WriteLine
		objFile.Close
		'objUser.AccountDisabled = verdad
		'objUser.SetInfo
	Terminar si
Terminar si
Otras soluciones  
 
programming4us programming4us