Usuário com melhor resposta
Script Logon por grupo

Pergunta
-
Boa tarde!
Alguém poderia me ajudar a acertar o script abaixo? Obs: Já verifiquei todos os tópicos do Forum referente a script de logon e não consegui acertar, o script mapeia as unidades mesmo não pertencendo ao grupo definido.
Const GRUPO1 = "cn=GSuporte"
Set wshNetwork = CreateObject("WScript.Network")
Set oDrives = WshNetwork.EnumNetworkDrives
Set ADSysInfo = CreateObject("ADSystemInfo")
Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)
strGroups = LCase(Join(CurrentUser.MemberOf))
If InStr (strGroups,GRUPO1) Then
Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
Else wscript.echo "Nao faz parte do grupo"
End If
Respostas
-
Tente assim só pra gente ver se tá executando e onde que tá parando.
Const GRUPO1 = "GSuporte"
Dim objNetwork, sDomain, sUser, objUser
Set objNetwork = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
sDomain = objNetwork.UserDomain
sUser = objNetwork.UserNameWscript.Echo "Usuario: " sUser
Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)
For each oGroup in objUser.GroupsWscript.Echo oGroup.Name
If UCase(oGroup.Name) = GRUPO1 ThenWscript.Echo "Pentence ao GSuporte"
WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
End If
NextAguardo sua resposta.
Abraço.
Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.- Marcado como Resposta Fábio JrModerator terça-feira, 14 de agosto de 2012 21:40
Todas as Respostas
-
Salve como vbs e veja se é o que vc precisa.
Const GRUPO1 = "GSuporte"
Dim objNetwork, sDomain, sUser, objUser
Set objNetwork = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
sDomain = objNetwork.UserDomain
sUser = objNetwork.UserName
Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)
For each oGroup in objUser.Groups
If UCase(oGroup.Name) = GRUPO1 Then
WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
End If
NextQualquer dúvida poste e se for útil vote.
Abraço.
Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote. -
-
-
-
Tente assim só pra gente ver se tá executando e onde que tá parando.
Const GRUPO1 = "GSuporte"
Dim objNetwork, sDomain, sUser, objUser
Set objNetwork = CreateObject("WScript.Network")
Set WshShell = WScript.CreateObject("WScript.Shell")
sDomain = objNetwork.UserDomain
sUser = objNetwork.UserNameWscript.Echo "Usuario: " sUser
Set objUser = GetObject("WinNT://" & sDomain & "/" & sUser)
For each oGroup in objUser.GroupsWscript.Echo oGroup.Name
If UCase(oGroup.Name) = GRUPO1 ThenWscript.Echo "Pentence ao GSuporte"
WshShell.Run("\\srvskol\SYSVOL\skol.local\scripts\suporte.bat"),0
End If
NextAguardo sua resposta.
Abraço.
Gabriel Nascimento MCP / MCSA / CCNA http://gabrielnascimentoit.spaces.live.com -- Se for útil vote.- Marcado como Resposta Fábio JrModerator terça-feira, 14 de agosto de 2012 21:40