Encontre en el siguiente script en la pagina de Microsoft, realmente esta bueno ya que esta muy bien comentado y es realmente util. Ya que generalmente cuando tenemos que hacer alguna migracion o algo similar tenemos que buscar como hacer esto.<\/p>\n
Yo lo tenia desarrollado de otra forma pero esta me gusto mucho ya que como dije antes esta muy comentado el step-by-step. Por otro lado, buscare el que tengo yo que basicamente hace lo mismo pero con KixStar esta probado y funciona correctamente. Gracias a su autor, Fernando Reyes.<\/p>\n
Saludos a todos. Roberto Di’Lello.\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span><\/p>\n Function fl_Es_Miembro(str_Grupo) Encontre en el siguiente script en la pagina de Microsoft, realmente esta bueno ya que…<\/p>\n","protected":false},"author":1,"featured_media":4291,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_monsterinsights_skip_tracking":false,"_monsterinsights_sitenote_active":false,"_monsterinsights_sitenote_note":"","_monsterinsights_sitenote_category":0,"footnotes":""},"categories":[4,13],"tags":[],"class_list":["post-151","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-scripting","category-vista-xp"],"_links":{"self":[{"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=\/wp\/v2\/posts\/151","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=151"}],"version-history":[{"count":0,"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=\/wp\/v2\/posts\/151\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=\/wp\/v2\/media\/4291"}],"wp:attachment":[{"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=151"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=151"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.radians.com.ar\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=151"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\n<\/span>‘**********************************************************************************\u00ad
\n<\/span>‘Autor: Fernando Reyes\u00a0
\n<\/span>‘Esta funci\u00f3n tiene por finalidad encontrar la pertenencia a un determinado grupo<\/strong>
\n‘(que se <\/span>recibe <\/span>como par\u00e1metro) de el usuario que lanza el script<\/strong>. La devoluci\u00f3n es
\n‘booleana: en caso de que el <\/span>usuario pertenezca al grupo<\/strong> devuelve True; en caso de
\n<\/span>‘ no pertenencia devuelve False.\u00a0
\n<\/span>‘************************************************************\u00ad********************
\n<\/span>Dim str_ADs_Path ‘Cadena utilizada para generar la ruta ADSI del usuario\u00a0
\n<\/span>Dim obj_Usuario \u00a0‘Objeto que se cargar\u00e1 con la informaci\u00f3n del usuario\u00a0
\n<\/span>Dim obj_Grupo \u00a0 \u00a0‘Objeto para cada cargar la informaci\u00f3n de un grupo
\n<\/strong><\/span><\/span><\/span>Dim obj_Net \u00a0 \u00a0 \u00a0‘Objeto Network del que partimos para obtener el objeto usuario
\n<\/span>‘Creamos el objeto Network\u00a0
\n<\/span>Set obj_Net = CreateObject(“Wscript.Network”)
\n<\/span>‘Montamos la ruta ADSI del usuario y creamos el objeto de usuario\u00a0
\n<\/span>str_ADs_Path = obj_Net.UserDomain & “\/” & obj_Net.UserName\u00a0
\n<\/span>Set obj_User = GetObject(“WinNT:\/\/” & str_ADs_Path & “,user”)
\n<\/span>‘En este bucle vamos recorriendo uno a uno los grupos a los que pertenece el usuario
\n<\/span>For Each obj_Grupo In obj_User.Groups
\n<\/span>‘Si el grupo<\/strong> coincide con el recibido como par\u00e1metro salimos de la funci\u00f3n\u00a0
\n‘<\/span>devolviendo True\u00a0
\n<\/span>If StrComp(str_Grupo, obj_Grupo.Name, vbTextCompare) = 0 Then\u00a0
\n<\/span>\u00a0\u00a0\u00a0fl_Es_Miembro =True\u00a0
\n<\/span>\u00a0\u00a0\u00a0Exit Function\u00a0
\n<\/span>End If
\n<\/span>Next
\n<\/span>‘Si hemos terminado el bucle, es porque no se ha encontrado el grupo<\/strong> recibido
\n‘<\/span>entre\u00a0<\/span>aquellos a los que pertenece el usuario, por tanto la devoluci\u00f3n de
\n‘esta funci\u00f3n\u00a0<\/span>ser\u00e1 False\u00a0
\n<\/span>fl_Es_Miembro = False
\n<\/span>End Function
\n<\/span>‘Ejemplo de c\u00f3mo se utilizar\u00eda la funci\u00f3n para montar una unidad “S: “a los
\n‘usuarios del <\/span>grupo<\/span><\/strong> “Esclavos de Tercera”
\n<\/span><\/span>If fl_Es_Miembro(“Esclavos de Tercera”)=True Then
\n<\/span>‘creamos el objeto NetWork que utilizaremos para montar la unidad\u00a0
\n<\/span>\u00a0 Set obj_Net = CreateObject(“Wscript.Network”)
\n<\/span>‘Mapeamos la unidad\u00a0
\n<\/span>\u00a0 obj_Net.MapNetworkDrive “s:”, <\/span>\\\\servidor\\carpeta_de_los_esclavos_de_tercera<\/span><\/a>
\n<\/span>EnD If<\/span><\/p>\n","protected":false},"excerpt":{"rendered":"