none
Listar Compartilhamentos e suas Permissões de Servidores Remotamente RRS feed

  • Pergunta

  • Prezados.

    Alguem tem algum VBS que faça uma lista de todos os compartilhamentos e suas permissões dos servidores da rede remotamente.

    Preciso fazer isso de uma estação W7, sou Domain Admin, preciso saber todos os compartilhamentos de cada servidor e as permissões de cada compartilhamento.

    Tenho uma lista com todos os servidores e o legal seria ele ler essa lista.

    Alguem pode ajudar?

    sexta-feira, 12 de agosto de 2016 17:32

Respostas

  • Rafael, mas no meu caso tem que ser VBS por causa do ambiente antigo e servidores 2003, 2008.

    Esse PS eu ja tenho.

    Seria muito legal se houvesse um VBS que fizesse a leitura de um TXT com a lista dos servidores e coletasse as informações. Estou precisando coletar share e suas permissões, usuários locais e membros do grupo admin de cada servidor.

    • Marcado como Resposta Fabio Hungria quinta-feira, 25 de agosto de 2016 14:02
    quinta-feira, 25 de agosto de 2016 14:02

Todas as Respostas

  • Olá Fabio, tudo bem?

    Segue script prontinho contido na nossa Gallery do Technet.

    https://gallery.technet.microsoft.com/scriptcenter/Lists-all-the-shared-5ebb395a


    Att,

    Rafael Vicentini Martins

    Citrix Certified Administrator for NetScaler
    Citrix Certified Administrator for Citrix XenApp 6
    Citrix Certified Administrator for Citrix XenDesktop 4
    Citrix Certified Advanced Administrator for Citrix XenApp 5 for Windows Server 2008
    MCP Managing and Maintaining a Microsoft Windows Server 2003 Environment
    MCTS Windows Server Virtualization, Configuration
    MCTS Windows Server 2008 R2, Desktop Virtualization
    MCTS Windows Server 2008 R2, Virtualization Administrator
    MCITP Virtualization Administrator

      LinkedIn:   Facebook:

    sexta-feira, 12 de agosto de 2016 19:13
  • Rafael, mas no meu caso tem que ser VBS por causa do ambiente antigo e servidores 2003, 2008.

    Esse PS eu ja tenho.

    Seria muito legal se houvesse um VBS que fizesse a leitura de um TXT com a lista dos servidores e coletasse as informações. Estou precisando coletar share e suas permissões, usuários locais e membros do grupo admin de cada servidor.

    • Marcado como Resposta Fabio Hungria quinta-feira, 25 de agosto de 2016 14:02
    quinta-feira, 25 de agosto de 2016 14:02
  • Veja, eu tenho esse script aqui:

       

    Const ForAppending = 8

    Const ForReading = 1
    ServerCount = 0
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFSO.OpenTextFile _
        (".\serverlist.txt", ForReading)
    Do Until objTextFile.AtEndOfStream
        strNextLine = objTextFile.Readline
    strComputer = strNextLine
    'WScript.Echo "Processing " & strComputer
    ProcessGroups
    ServerCount = ServerCount + 1
    Loop
    'WScript.Echo "Computers Processed  " & ServerCount
    'WScript.Quit

    Sub ProcessGroups
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objLogFile = objFSO.OpenTextFile(".\GroupInfo.txt", _
        ForAppending, True)

    objLogFile.writeline " "
    objLogFile.writeline "**************** " & strComputer & " ****************"  
    Set colGroups = GetObject("WinNT://" & strComputer & "")
    colGroups.Filter = Array("group")
    For Each objGroup In colGroups
        For Each objUser in objGroup.Members
            objLogFile.writeline strComputer & vbTab & objGroup.Name & vbTab & objUser.Name
        Next
    Next
    objLogFile.Close
    End Sub

    Ele usa a lista serverlist.txt para gerar o que quero da seguinte forma:

     

    **************** FSHC102 ****************
    FSHC102 Administrators adminlocal
    FSHC102 Administrators Opers. HC1
    FSHC102 Administrators Admins. do domínio
    FSHC102 Administrators mneves
    FSHC102 Administrators 001275
    FSHC102 Guests Guest
    FSHC102 Users INTERACTIVE
    FSHC102 Users Authenticated Users
    FSHC102 Users Usuários do domínio
    FSHC102 ConfigMgr Remote Control Users Admins. do domínio
    FSHC102 ConfigMgr Remote Control Users mneves

    **************** FSHC103 ****************
    FSHC103 Administrators adminlocal
    FSHC103 Administrators Admins. do domínio
    FSHC103 Administrators Opers. HC1
    FSHC103 Administrators GPaulino
    FSHC103 Guests Guest
    FSHC103 IIS_IUSRS IUSR
    FSHC103 Users INTERACTIVE
    FSHC103 Users Authenticated Users
    FSHC103 Users Usuários do domínio
    FSHC103 ConfigMgr Remote Control Users Admins. do domínio
    FSHC103 ConfigMgr Remote Control Users mneves

    Só que eu queria as informações nesse formato abaixo para usar no excel tbm:

    DomainName;ServerType;ServerName;GroupType;GroupName;UserName;UserDomain
    hc-iii;SERVER;PRHC301;LOCAL;Administrators;adminlocal;PRHC301
    hc-iii;SERVER;PRHC301;LOCAL;Administrators;Administrador;HC-III
    hc-iii;SERVER;PRHC301;LOCAL;Administrators;Admins. do domínio;HC
    hc-iii;SERVER;PRHC301;LOCAL;Administrators;Administrador;HC
    hc-iii;SERVER;PRHC301;LOCAL;Administrators;Admins. HC3;HC-III
    hc-iii;SERVER;PRHC301;LOCAL;Guests;Guest;PRHC301
    hc-iii;SERVER;PRHC301;LOCAL;IIS_IUSRS;IUSR;NT AUTHORITY
    hc-iii;SERVER;PRHC301;LOCAL;Print Operators;Desktop Support;HC
    hc-iii;SERVER;PRHC301;LOCAL;Remote Desktop Users;Administrador;HC
    hc-iii;SERVER;PRHC301;LOCAL;Remote Desktop Users;Admins. Antivirus;HC
    hc-iii;SERVER;PRHC301;LOCAL;Remote Desktop Users;Admins. do domínio;HC

    Queria poder coletar compartilhamentos, usuários locais apenas e usuários membros do grupo admin de cada maquina listada no arquivo TXT.

    Veja o que tenho hoje dos compartilhamentos:

    DomainName;ServerType;ServerName;ShareName;SharePath;ShareComment;MaxUses;CurrentUses;ShareTrustee;ShareAccess
    hc-iii;PDC;DCHC302;ADMIN$;C:\Windows;Remote Admin;-1;0;Administrative Share;n/a
    hc-iii;PDC;DCHC302;C$;C:\;Default share;-1;0;Administrative Share;n/a
    hc-iii;PDC;DCHC302;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;HC-III\Administrador;Full Control
    hc-iii;PDC;DCHC302;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;BUILTIN\Administradores;Full Control
    hc-iii;PDC;DCHC302;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;BUILTIN\Operadores de cópia;Change
    hc-iii;PDC;DCHC302;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;
    hc-iii;PDC;DCHC302;D$;D:\;Default share;-1;0;Administrative Share;n/a
    hc-iii;PDC;DCHC302;E$;E:\;Default share;-1;0;Administrative Share;n/a
    hc-iii;PDC;DCHC302;NETLOGON;C:\Windows\SYSVOL\sysvol\HC-III.inca.local\SCRIPTS;Logon server share ;-1;279;Everyone;Read
    hc-iii;PDC;DCHC302;NETLOGON;C:\Windows\SYSVOL\sysvol\HC-III.inca.local\SCRIPTS;Logon server share ;-1;279;BUILTIN\Administradores;Full Control
    hc-iii;PDC;DCHC302;NETLOGON;C:\Windows\SYSVOL\sysvol\HC-III.inca.local\SCRIPTS;Logon server share ;-1;279;
    hc-iii;PDC;DCHC302;SYSVOL;C:\Windows\SYSVOL\sysvol;Logon server share ;-1;1;Everyone;Read
    hc-iii;PDC;DCHC302;SYSVOL;C:\Windows\SYSVOL\sysvol;Logon server share ;-1;1;BUILTIN\Administradores;Full Control
    hc-iii;PDC;DCHC302;SYSVOL;C:\Windows\SYSVOL\sysvol;Logon server share ;-1;1;NT AUTHORITY\Authenticated Users;Full Control
    hc-iii;PDC;DCHC302;SYSVOL;C:\Windows\SYSVOL\sysvol;Logon server share ;-1;1;
    hc-iii;BDC;DCHC304;ADMIN$;C:\Windows;Remote Admin;-1;0;Administrative Share;n/a
    hc-iii;BDC;DCHC304;C$;C:\;Default share;-1;0;Administrative Share;n/a
    hc-iii;BDC;DCHC304;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;HC-III\administrador;Full Control
    hc-iii;BDC;DCHC304;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;BUILTIN\Administradores;Full Control
    hc-iii;BDC;DCHC304;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;BUILTIN\Operadores de cópia;Change
    hc-iii;BDC;DCHC304;ca_apm$;C:\Program Files\CA\SharedComponents\APM;;-1;0;
    hc-iii;BDC;DCHC304;D$;D:\;Default share;-1;0;Administrative Share;n/a
    hc-iii;BDC;DCHC304;E$;E:\;Default share;-1;0;Administrative Share;n/a

    Estou usando ferramenta de terceiro para exportar, mas preciso de tudo isso em VBS para automatizar.

    Pode ajudar?

    quinta-feira, 25 de agosto de 2016 14:51