Questione : Non può convincere lo scritto a generare o scrivere ad UsersToDisable.txt sul file server

Non posso convincere lo scritto per generare o scrivere ad UsersToDisable.txt sul file server. Sto usando la data esclusa di 18-Jul-2010 per provarlo. Non ci è il valore nell'attributo di wWWHomePage. Che cosa manco? objSysInfo del


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

Set = CreateObject (“ADSystemInfo")
strUserDN/>Set = GetObject (“LDAP: /„ &

'dello strUserDN) permettere alle risistemazioni che di ordine di Next
'primo del riassunto di errore del handling
On di errore il valore della variabile al
'del "" in secondo luogo tenta di regolarlo con il valore da AD
'se il secondo viene a mancare la variabile ancora sarà regolato al
strwWWHomePage = "": strwWWHomePage = errore 0

On di errore di Disable del
'di objUser.Get (dteCutOffDate “di wWWHomePage„)/>dteCutOffDate =

intDaysLeft = intDaysLeft del

If di DateDiff (“d„, ora,) > 0 prova di Then
'valore nel variable
se ppt stabilito di Then
del "" = di strwWWHomePage = CreateObject (“strMbox di PowerPoint.Application")
= MsgBox (“avete„ & il intDaysLeft & “i giorni per completare questo addestramento obbligatorio o il vostro cliente saranno bloccati. Scattare l'APPROVAZIONE per iniziare il ppt del
di presentazione di PowerPoint„). Visibile = objFSO stabilito del
Else
di inseguimento \ ppt.ppsx del ppt. Presentations.Open di True
„ \ \ serverxx \ " =
Const CreateObject (“Scripting.FileSystemObject„) che intForAppending = 8
strDisableAccountsFile =„ \ \ serverxx \ seguire \ Users di/>ToDisable.txt " si è regolato objFile = estremità If
End If


 di objUser.SetInfo
wscript.quit
dello strUserDN
objFile.Close
'objUser.AccountDisabled = True
'del
objFile.WriteLine di objFSO.CreateTextFile (strDisableAccountsFile, intForAppending, allineare) class= del

Risposta : Non può convincere lo scritto a generare o scrivere ad UsersToDisable.txt sul file server

Ciao, lo scritto genererà soltanto la lima se là *is* qualcosa nell'attributo di wwwHomePage.

Se mi ricordo correttamente, quando l'utente rifinisce osservare il PPT, scriverete un valore nell'attributo di wwwHomePage.

Così, qui è che cosa lo scritto attualmente fa:
1) Se la data corrente è passato la data tagliata, non fare niente.
2) Se la data di taglio non sia raggiunta e non ci è il valore di wwwHomePage (cioè l'utente non ha osservato il PPT), quindi mostrare il PPT.
3) Se la data di taglio non sia raggiunta e ci è un valore di wwwHomePage (cioè l'utente ha osservato il PPT), quindi scrivere alla lima per informare Admins per rendere invalido il cliente.

Leggendo quello, non penso che è realmente di che cosa avete bisogno.  Qui è che cosa penso che abbiate bisogno di:
1) Se ci non è un valore in wwwHomePage e la data di taglio non è stata raggiunta, mostra il PPT
2) Se ci non è un valore in wwwHomePage e la data di taglio è stata raggiunta, scrive alla lima per rendere invalido il cliente.
3) Se ci È un valore in wwwHomePage, non fare niente, perché il PPT è stato osservato

Così, ho riordinato lo scritto per essere adatto a quello.

Che cosa ho realizzato che dovrete fare, è funzionato lo scritto lo ho dato per leggere i clienti di utente disabile, su una base quotidiana, o forse più se gradite, perché i clienti di utente non saranno scritti là fino a che ogni utente non entri e questo possono richiedere un istante se avete utenti via per un istante.

Inoltre, ritenere libero di provare questo prima della chiusura della domanda.  Siete benvenuto chiedere chiarificazione e le difficoltà, se questo non fa di che cosa avete bisogno.

Riguardi,

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 fioco, objUser, strwWWHomePage, strUserDN, ppt, strMbox

Regolare il objSysInfo = CreateObject (“ADSystemInfo„)
strUserDN = objSysInfo.UserName
Regolare il objUser = GetObject (“LDAP: /„ & strUserDN)

'Permettere al trattamento degli errori
Sull'errore riprendere dopo
'Il primo ordine ripristina il valore della variabile a ""
'In secondo luogo tenta di regolarlo con il valore dall'ANNUNCIO
'Se il secondo viene a mancare la variabile ancora sarà fissata a ""
strwWWHomePage = "": strwWWHomePage = objUser.Get (“wWWHomePage„)
'Trattamento degli errori di Disable
Sull'errore 0 di avanzamento

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

intDaysLeft = DateDiff (“d„, ora, dteCutOffDate)

'Verificare il valore nella variabile
Se strwWWHomePage = "" allora
	Se intDaysLeft > 0 allora
		Regolare il ppt = CreateObject (“PowerPoint.Application„)
		strMbox = MsgBox (“avete„ & il intDaysLeft & “i giorni per completare questo addestramento obbligatorio o il vostro cliente saranno bloccati. APPROVAZIONE di scatto per iniziare presentazione di PowerPoint„)
		ppt. Visibile = allineare
		ppt. Presentations.Open “\ \ serverxx \ seguire \ ppt.ppsx„
	Altrimenti
		Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
		Const che intForAppending = 8
		strDisableAccountsFile = “\ \ serverxx \ seguire \ UsersToDisable.txt„
		objFile stabilito = objFSO.CreateTextFile (strDisableAccountsFile, intForAppending, allineare)
		strUserDN di objFile.WriteLine
		objFile.Close
		'objUser.AccountDisabled = allineano
		'objUser.SetInfo
	Concluder se
Concluder se
Altre soluzioni  
 
programming4us programming4us