Ba galera
Boa tarde.
Gostaria de uma ajuda tche no script abaixo, o mesmo esta pronto para alterar o logon script do usuario em sua conta no AD tche, porem eu gostaria de criar algo nele um If ou alguma outra coisa que valide se o usuario existe, e caso existe ele continue a
alteração e grave no log e caso nao exista tche ele grave no log as informações e no lugar do "alterado com sucesso" ele grave "usuario não encontrado", alguem consegue me dar uma força tche.
segue o codigo.
Set objShell = CreateObject("Wscript.Shell")
Set oFSO = CreateObject("Scripting.FileSystemObject")
Do While strou=""
strou = InputBox ("Digite o nome da OU:","..:: Suporte TI ::..")
If VarType(strou) = 0 Then WScript.Quit(1)
Loop
Do While strls=""
strls = InputBox ("Digite o nome do arquivo de logon script:" & vbCrLf & vbCrLf & "Obs. Informe somente o nome sem extenção.","..:: Suporte TI ::..")
If VarType(strls) = 0 Then WScript.Quit(1)
Loop
sFile = "C:\Temp\user.txt"
If oFSO.FileExists(sFile) Then
Set oFile = oFSO.OpenTextFile(sFile, 1)
Do While Not oFile.AtEndOfStream
struser = oFile.ReadLine
Set objUser = GetObject _
("LDAP://cn="& struser & ",ou="& strou & ",ou=usuarios,dc=rtv,dc=brasil,dc=local")
objUser.Put "scriptPath", strls & ".bat"
objUser.SetInfo
sLog = "C:\Temp\logscript.log"
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objTextFile = objFSO.OpenTextFile(sLog, 8, True)
objTextFile.WriteLine Now & " ; " & strou & " ; " & strls & " ; " & struser & " ; " & "Alterado com Sucesso"
objTextFile.Close
Loop
end if
oFile.Close
Set objSysInfo = CreateObject("ADSystemInfo")
strUser = objSysInfo.UserName
Set CurrentUser = GetObject("LDAP://" & objSysInfo.UserName)
strFullName = currentuser.displayname
Msg = Msg & "Prezado(a) " & strFullName & "," & Chr(10)
Msg = Msg & " " & Chr(10)
Msg = Msg & "O processo foi executado, favor validar as alterações no arquivo de log." & Chr(10)
msgbox msg,64,"..:: Suporte TI ::.."
