Ir para conteúdo
Fórum Script Brasil

poiaweb

Membros
  • Total de itens

    1
  • Registro em

  • Última visita

Tudo que poiaweb postou

  1. Boa tarde todos do Fórum, infelizmente não sou programador, mais estou tentando fazer um script em VBS, para executar uma tarefa especifica em servidores, onde o objetivo e desativar ou ativar uma conta de usuário no Windows 2003 Server. Encontrei vários scripts na net, segue abaixo os dois que achei interessante e gostaria de usá-los juntos, fiz os testes separadamente, todos estão funcionando. Meu objetivo e que o usuário digite o nome do usuário que será desativado/ativado, e em seguida digite as letras D (para desativar) ou A (para ativar) o usuário no sistema. Agradeço todos do fórum.... Primeiro Script. Function IsAccountDisabled( strDomain, strAccount ) Dim objUser Set objUser = GetObject("WinNT://" & strDomain & "/" & strAccount & ",user") IsAccountDisabled = objUser.AccountDisabled End Function Dim strUser, strDomain Do strUsr = inputbox("Digite o nome do usuário", "Input") loop until strUsr <> "" ' Request the domain name for this user do strDom = inputbox("Digite o nome do dominio", "Input") loop until strDom <> "" If( IsAccountDisabled( strDom, strUsr ) = True ) Then WScript.Echo "Account disabled" Else WScript.Echo "Account enabled" End If ---------------------------------------------------------------------------------------------- Segundo Script strDisableAccount = TRUE strUserDN = "cn=usuarios,ou=liberados,dc=dominio,dc=com" set objUser = GetObject("LDAP://" & strUserDN) if objUser.AccountDisabled = TRUE then WScript.Echo "Account for " & objUser.Get("cn") & " currently disabled" if strDisableAccount = FALSE then objUser.AccountDisabled = strDisableAccount objUser.SetInfo WScript.Echo "Account enabled" end if else WScript.Echo "Account currently enabled" if strDisableAccount = TRUE then objUser.AccountDisabled = strDisableAccount objUser.SetInfo WScript.Echo "Account disabled" end if end if ----------------------------------------------------------------------------------------------
×
×
  • Criar Novo...