Pergunta : Cliente de usuário da inutilização com certificado de VBS no diretório ativo

O cliente de usuário não se ajustará para incapacitar quando a data é objSysInfo expired ou de passed.

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

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

' do strUserDN) permitir restaurações que do comando de Next
' primeiro do resumo do erro do handling
On do erro o valor da variável ao
' do "" tenta em segundo o ajustar com o valor de AD
' se o segundo falha a variável será ajustado ainda ao
strwWWHomePage = "": strwWWHomePage = erro 0

On do erro da inutilização do
' de objUser.Get (dteCutOffDate do “wWWHomePage”)/>dteCutOffDate =

intDaysLeft = de

If de DateDiff (“d”, agora,) intDaysLeft > 0 teste de Then
'o valor no variable
se ppt ajustado de Then
do strwWWHomePage = do "" = CreateObject (de “strMbox PowerPoint.Application")
= MsgBox (“você tem” & o intDaysLeft & “os dias para terminar este treinamento imperativo ou seu cliente serão fechados. Estalar a APROVAÇÃO para começar o ppt do
da apresentação de PowerPoint”). Visível =
Else
do seguimento do ppt. Presentations.Open de True
” \ \ serverxx \ \ ppt.ppsx " extremidade If
End If
 de objUser.AccountDisabled = de True
objUser.SetInfo
wscript.quit
class= do

Resposta : Cliente de usuário da inutilização com certificado de VBS no diretório ativo

Então, a manhã depois que a data eliminada, funciona este certificado, e lerão a lima de texto e incapacitarão os clientes.

Considerações,

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

Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
Const que intForReading = 1
Const que intForAppending = 8
strDisableAccountsFile = “\ \ serverxx \ seguimento \ UsersToDisable.txt”
strDisabledReportFile = “\ \ serverxx \ seguimento \ DisabledUsers.txt”
Ajustar o objOutput = o objFSO.OpenTextFile (strDisabledReportFile, intForAppending, verdadeiro)
Ajustar objFile = objFSO.OpenTextFile (strDisableAccountsFile, intForReading, verdadeiro)
Quando não objFile.AtEndOfStream
	strUserDN = objFile.ReadLine
	Se "" da guarnição (strUserDN <> ) então
		Ajustar o objUser = o GetObject (“LDAP: /” & strUserDN)
		objUser.AccountDisabled = retificam
		objUser.SetInfo
		Ajustar o objUser = nada
		strUserDN de objOutput.WriteLine
	Terminar se
Wend
objFile.Close
objOutput.Close
Ajustar objFile = nada
Ajustar o objOutput = nada
Ajustar objFile = objFSO.CreateTextFile (strDisableAccountsFile, verdadeiro)
objFile.Close
Ajustam-se objFile = nada
Clientes de MsgBox os “que foram deficientes foram escritos” & o VbCrLf & strDisabledReportsFile & o VbCrLf & “e a lima dos usuários ao disalbe foi cancelado” & strDisableAccountsFile
Outras soluções  
 
programming4us programming4us