Questione : Cliente di utente di Disable con lo scritto di VBS nell'indice attivo

Il cliente di utente non si regolerà per rendere invalido quando la data è objSysInfo di passed.

Dim, il objUser, lo strwWWHomePage, lo strUserDN, il 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 =
Else
di inseguimento \ ppt.ppsx del ppt. Presentations.Open di True
„ \ \ serverxx \ " estremità If
End If
di True
objUser.SetInfo
wscript.quit
class= del

Risposta : Cliente di utente di Disable con lo scritto di VBS nell'indice attivo

Allora, la mattina dopo che la data tagliata, fa funzionare questo scritto ed esso leggeranno la lima di testo e renderanno invalidi i clienti.

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:
Regolare il objFSO = CreateObject (“Scripting.FileSystemObject„)
Const che intForReading = 1
Const che intForAppending = 8
strDisableAccountsFile = “\ \ serverxx \ seguire \ UsersToDisable.txt„
strDisabledReportFile = “\ \ serverxx \ seguire \ DisabledUsers.txt„
Regolare il objOutput = objFSO.OpenTextFile (strDisabledReportFile, intForAppending, allineare)
Regolar objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading, allineare)
Mentre non objFile.AtEndOfStream
	strUserDN = objFile.ReadLine
	Se "" della disposizione (strUserDN <> ) allora
		Regolare il objUser = GetObject (“LDAP: /„ & strUserDN)
		objUser.AccountDisabled = allineano
		objUser.SetInfo
		Regolare il objUser = niente
		strUserDN di objOutput.WriteLine
	Concluder se
Wend
objFile.Close
objOutput.Close
Regolar objFile = niente
Regolare il objOutput = niente
Regolar objFile = objFSO.CreateTextFile (strDisableAccountsFile, allineare)
objFile.Close
Si regolano objFile = niente
I clienti di MsgBox “che sono stati disabili sono stati scritti„ & VbCrLf & strDisabledReportsFile & VbCrLf & “e la lima degli utenti a disalbe è stato eliminato„ & strDisableAccountsFile
Altre soluzioni  
 
programming4us programming4us