yosoysupercholo

programa usuario de s3d

Nov 1st, 2011
183
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Batch 3.24 KB | None | 0 0
  1. @echo off
  2. cls
  3.  
  4.  
  5. echo Agregador de usuarios creado por s3v Informatica
  6.  
  7. echo http://www.s3v-i.com
  8.  
  9.  
  10.  
  11. echo ANTES DE CONTINUAR POR FAVOR
  12. echo INTRODUZCA EL NOMBRE DE SU DOMINIO
  13.  
  14.  
  15. echo    Se le preguntara por las dos partes del dominio tomando como ejemplo
  16. echo    "Microsoft.com"
  17.  la primera parte seria "Microsoft" y la segunda "com"
  18. echo    No se preocupe por el punto no es necesario para generar el archivo.
  19. goto dominio
  20.  
  21. :Menu
  22. set var=0
  23. cls
  24.  
  25.  
  26. echo Agregador de usuarios creado por s3v Informatica
  27.  
  28. echo http://www.s3v-i.com
  29.  
  30.  
  31.  
  32. echo 1. Escriba un nombre de usuario para agregarlo y pulse Enter
  33. echo 2. Si el usuario consta de un nombre compuesto pulse " c " y despues Enter
  34. echo     Ejemplo: Jose Maria
  35. echo 3. Para modificar el dominio al cual se deben agregar los usuarios pulse " m "
  36. echo    y despues Enter para comprobar el dominio definido pulse " h " y Enter
  37. echo    Se le preguntará por las dos partes del dominio tomando como ejemplo
  38. echo    "Microsoft.com"
  39.  la primera parte seria "Microsoft" y la segunda "com"
  40. echo    No se preocupe por el punto no es necesario para generar el archivo.
  41. echo 4. Para ver la lista de usuarios ya creados pulse " v " y despues Enter
  42. echo 5. Para ver el fichero que despues se utilizara para cargar los usuarios
  43. echo     con el comando "dsadd" de forma automatica pulse " d " y Enter
  44. echo 5. Pulse " S " y despues Enter para salir
  45.  
  46.  
  47. set /p var=
  48. if %var%==s goto end
  49. if %var%==v goto listar
  50. if %var%==c goto compuesto
  51. if %var%==0 goto selec
  52.  
  53. if %var%==m goto dominio
  54. if %var%== d goto verdsadd
  55. if %var%==h goto vdominio
  56. echo CN=%var%,CN=Users,DC=%var3%,DC=%var4% >> usuarios.txt
  57. echo %var% >> listausers.txt
  58. goto Menu
  59.  
  60. :compuesto
  61. echo Introduzca primer nombre:
  62. set /p var1=
  63. echo Introduzca segundo nombre
  64. set /p var2=
  65.  
  66. echo "CN=%var1% %var2%,CN=Users,DC=%var3%,DC=%var4%" >> usuarios.txt
  67. echo %var1% %var2% >> listausers.txt
  68. goto Menu
  69.  
  70. :dominio
  71. echo Introduzca la primera parte del dominio
  72. set /p var3=
  73. echo Introduzca la segunda parte del dominio
  74. set  /p var4=
  75. goto Menu
  76.  
  77. :vdominio
  78. cls
  79. echo El dominio configurado es:
  80. echo %var3%.%var4%
  81. echo Presione una tecla para volver al Menu principal
  82. pause > nul
  83. goto Menu
  84.  
  85. :selec
  86. cls
  87. echo No ha seleccionado ninguna opcion
  88. echo Escriba un nombre de usuario o elija alguna de las opciones
  89. echo disponibles en el Menu Principal
  90. pause > nul
  91. goto menu
  92.  
  93. :verdsadd
  94. cls
  95. if exist listausers.txt goto dsver
  96.  
  97. if not exist listausers.txt goto listerror
  98. :dsver
  99.  
  100. echo Acontinuacion puede ver como esta configurandose el fichero
  101. echo que sera utilizado para cargar los usuarios mediante el comando
  102. echo dsadd de forma completamente automatica
  103. type usuarios.txt | more
  104. pause > nul
  105. goto Menu
  106.  
  107. :listar
  108. cls
  109. if exist listausers.txt goto listexist
  110. if not exist listausers.txt goto listerror
  111.  
  112. :listexist
  113. echo Usuarios que se agregaran:
  114. type listausers
  115. .txt |more
  116. echo Pulse una tecla para volver al menu principal.
  117. pause > nul
  118. goto Menu
  119.  
  120. :listerror
  121. echo No ha agregado ningun usuario todavia
  122. echo Pulse una tecla para volver al menu principal
  123. pause > nul
  124. goto Menu
  125.  
  126. :End
  127. cls
  128. echo Proceso de creacion de usuarios finalizado con exito
  129. echo A coninuacion podra ver todos los usuarios que ha generado.
  130. type listausers.txt |more
  131.  
  132.  
Advertisement
Add Comment
Please, Sign In to add comment