Pergunta : Não pode conseguir o certificado criar ou escrever a UsersToDisable.txt no usuário do arquivo

Eu não posso conseguir o certificado criar ou escrever a UsersToDisable.txt no usuário do arquivo. Eu estou usando a data eliminada de 18-Jul-2010 para testá-lo. Não há nenhum valor no atributo do wWWHomePage. Que falto eu? objSysInfo do


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 = objFSO ajustado do
Else
do seguimento do ppt. Presentations.Open de True
” \ \ serverxx \ \ ppt.ppsx " = o
Const de CreateObject (“Scripting.FileSystemObject”) que intForAppending = 8
strDisableAccountsFile =” \ \ serverxx \ seguir \ Users de/>ToDisable.txt " ajustou-se objFile = extremidade If
End If


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

Resposta : Não pode conseguir o certificado criar ou escrever a UsersToDisable.txt no usuário do arquivo

Olá!, o certificado criará somente a lima se lá *is* algo no atributo do wwwHomePage.

Se eu recordo corretamente, quando o usuário termina ver o PPT, você escreverá um valor no atributo do wwwHomePage.

Assim, é aqui o que o certificado faz atualmente:
1) Se a data atual é passado a data eliminada, não fazer nada.
2) Se a data de interrupção não estêve alcangada, e não há nenhum valor do wwwHomePage (isto é, o usuário não viu o PPT), a seguir mostrar o PPT.
3) Se a data de interrupção não estêve alcangada, e há um valor do wwwHomePage (isto é, o usuário viu o PPT), a seguir escrever à lima para informar Admins para incapacitar o cliente.

Lendo isso, eu não penso que é realmente o que você precisa.  É aqui o que eu penso que você precisa:
1) Se não há um valor no wwwHomePage, e a data de interrupção não foi alcangada, mostra o PPT
2) Se não há um valor no wwwHomePage, e a data de interrupção foi alcangada, escreve à lima para incapacitar o cliente.
3) Se HÁ um valor no wwwHomePage, não fazer nada, porque o PPT foi visto

Assim, eu requisitei novamente o certificado para serir aquele.

O que eu realizei que você precisará de fazer, é funcionado o certificado que eu o dei para ler os clientes de usuário deficiente, em uma base diária, ou talvez mais se você gosta, porque os clientes de usuário não estarão escritos lá até que cada usuário entre, e isto podem tomar um quando se você tem usuários afastado por um quando.

Também, sentir livre testar isto antes de fechar a pergunta.  Você é bem-vindo pedir o esclarecimento e os reparos, se este não faz o que você precisa.

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

objSysInfo não ofuscante, objUser, strwWWHomePage, strUserDN, ppt, strMbox

Ajustar o objSysInfo = o CreateObject (“ADSystemInfo”)
strUserDN = objSysInfo.UserName
Ajustar o objUser = o GetObject (“LDAP: /” & strUserDN)

'Permitir a manipulação de erro
No erro recomeçar em seguida
'O primeiro comando restaura o valor da variável ao ""
'Tenta em segundo ajustá-lo com o valor do ANÚNCIO
'Se o segundo falha a variável estará ajustada ainda ao ""
strwWWHomePage = "": strwWWHomePage = objUser.Get (“wWWHomePage”)
'Manipulação de erro da inutilização
No erro 0 empreendedores

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

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

'Testar o valor na variável
Se strwWWHomePage = "" então
	Se intDaysLeft > 0 então
		Ajustar o ppt = o CreateObject (“PowerPoint.Application”)
		strMbox = MsgBox (“você tem” & o intDaysLeft & os “dias para terminar este treinamento imperativo ou seu cliente serão fechados. APROVAÇÃO do clique para começar a apresentação de PowerPoint”)
		ppt. Visível = retificar
		ppt. Presentations.Open “\ \ serverxx \ seguimento \ ppt.ppsx”
	Mais
		Ajustar o objFSO = o CreateObject (“Scripting.FileSystemObject”)
		Const que intForAppending = 8
		strDisableAccountsFile = “\ \ serverxx \ seguimento \ UsersToDisable.txt”
		objFile ajustado = objFSO.CreateTextFile (strDisableAccountsFile, intForAppending, verdadeiro)
		strUserDN de objFile.WriteLine
		objFile.Close
		'objUser.AccountDisabled = retificam
		'objUser.SetInfo
	Terminar se
Terminar se
Outras soluções  
 
programming4us programming4us