Script De Logon Para Clientes Do Windows Server 20

[Guest Luis Carlos]

Primeiramento bom dia "tarde" ou "Noite"

Pessoal,

Estou precisando urgentimente desenvolver um scripte de dogon para mapear unidades de rede e impressoras para os meus cliente Wxp.

O que preciso é que quando um determinado usuários for participande de um determ,inado grupo o scripte mmapei a unidade necessária para clientes participantes desse grupo e assim por Diante.

Antecipo meus agradecimentos...

Luis Machado

[Guest Guest]

rapa, to com a mesma dúvida...

sendo q to instalando um windows 2003 server e queria saber se é possivel fazer isso direto do servidor... mas a ideia é a mesmo

[dirconstru]

somos 3 então

[Guest Guest]

Isso pode ser feito direto de do servido, utilizando as politicas de grupos GPO, existe um programa bem legal que você pode baixar do site da microsof o GPU Manager.

Bem se alguém poder contribuir e informa como podemos desenvolver um script que possa mapear uma unidade de rede e impressorar a depender do grupo que o ussuário faça parte seria muito bom...

Luis Machado

[Guest Guest]

então, eu sou o mesmo segundo guest ali hehe

andei lendo em outros foruns e vi q no win2003 tem uma pasta no sistema q faz isso, tipo a c:\windows\SYSVOL\... (repare q essa pasta está compartilhada por padrão) nessa pasta tem outra com o nome do dominio\scripts

nessa pasta se colocam os scripts de inicialização dos usuarios do dominio...

eu testei e não funcionou ;/

os scripts q fiz foram arquivos .bat, será q por isso não funcionou?

é... vamos à caça mais uma vez

pedro.olive@gmail.com

[Guest LucMach]

Amigos estou tentando desvendar o misterios desse script ai, qua ainda não esta funcionando por completo:

Dim fServer 'file server

Dim home 'home directory

Dim wshNet

Dim ADSysInfo

Dim CurrentUser

Dim strGroups

Dim GroupMember

Dim a

Const PESSOAL_GROUP = "cn=Pessoal"

fServer = "\\server\"

home = "\\server\usuarios\"

Set wshNet = CreateObject("WScript.Network")

Set ADSysInfo = CreateObject("ADSystemInfo")

Set CurrentUser = GetObject("LDAP://" & ADSysInfo.UserName)

strGroups = LCase(Join(CurrentUser.MemberOf))

wshNet.MapNetworkDrive "h:","\\server\usuarios\" & wshNet.UserName

'wshNet.MapNetworkDrive "h:", fServer & "\\server\usuarios\" & wshNet.UserName

WScript.Echo(wshNet.Username & " " & strgroups)

Select Case GroupMember

case a = InStr(strGroups, PESSOAL_GROUP)

UAGPESSOAL_GROUPsub

End Select

Sub PESSOAL_GROUPsub'This subRoutine maps a printer

WScript.Echo("made it to PESSOAL_GROUPsub")

wshNet.MapNetworkDrive "g:","\\server\usuarios\"

wshNet.AddWindowsPrinterConnection "\\serverprint\din_02"

wshNet.SetDefaultPrinter "\\serverprint\print_02"

End Sub

=====================================================