none
Porque não emite o reporte correto do membro do grupo. RRS feed

  • Pergunta

  • Ba Galera.

    Boa tarde

    Uma ajudinha por favor, o que esta errado no script abaixo, porque ele nao reporta tche que o usuario nao faz parte do grupo quando ele nao faz e só reporta tche que o usuario faz parte quando ele realmente faz, obrigado galera.

    vbs.

    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")
    
    On error goto 0
    If IsNull(objUser.Groups) Then objUser.Groups = 1 
    i=0
    
    For Each objGroup In objUser.Groups
        Select Case objGroup.Name
            Case "G-Informatica"
            	WScript.Echo "Usuario com acesso"
            Case "1"
            	WScript.Echo "Usuario sem acesso"        
        End Select
    Next 

    e tentei assim tb.

    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")
    
    i=0
    
    For Each objGroup In objUser.Groups
    
     On error goto 0
     If IsNull(objUser.Groups) Then objUser.Groups = 1 
    
        Select Case objGroup.Name
            Case "G-Informatica"
            	WScript.Echo "Usuario com acesso"
            Case "1"
            	WScript.Echo "Usuario sem acesso"        
        End Select
    Next 

    quinta-feira, 23 de maio de 2013 15:42

Respostas

  • Marcelo

    Boa tarde.

    Talvez não seja a melhor saída mas veja se desta forma lhe ajuda.

    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")
    
    i=0
    
    For Each objGroup In objUser.Groups
    
        Select Case objGroup.Name
            Case "G-Informatica"
    			strvalor = "2"
        End Select
    Next    
    
    On error goto 0
    If IsNull(strvalor) Then strvalor = 1 
    
    	If strvalor = 2 Then
    		WScript.Echo "Usuário com Acesso"
    	 Else
    		WScript.Echo "Usuário sem Acesso"
    	End if


    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI quinta-feira, 23 de maio de 2013 17:54
    quinta-feira, 23 de maio de 2013 16:13

Todas as Respostas

  • Marcelo

    Boa tarde.

    Talvez não seja a melhor saída mas veja se desta forma lhe ajuda.

    set objNetwork= CreateObject("WScript.Network")
    strDom = objNetwork.UserDomain
    strUser = objNetwork.UserName
    Set objUser = GetObject("WinNT://" & strDom & "/" & strUser &  ",user")
    
    i=0
    
    For Each objGroup In objUser.Groups
    
        Select Case objGroup.Name
            Case "G-Informatica"
    			strvalor = "2"
        End Select
    Next    
    
    On error goto 0
    If IsNull(strvalor) Then strvalor = 1 
    
    	If strvalor = 2 Then
    		WScript.Echo "Usuário com Acesso"
    	 Else
    		WScript.Echo "Usuário sem Acesso"
    	End if


    Your potential. Our passion - Microsoft

    • Marcado como Resposta Marcelo TI quinta-feira, 23 de maio de 2013 17:54
    quinta-feira, 23 de maio de 2013 16:13
  • Ba Leandrão valeu rolou tche.
    quinta-feira, 23 de maio de 2013 17:54