Olá galera,
Faltou meu script:
ON ERROR RESUME NEXT
Dim WSHShell, WSHNetwork, objDomain, DomainString, UserString, UserObj, Path
Set WSHShell = CreateObject("WScript.Shell")
Set WSHNetwork = CreateObject("WScript.Network")
'Automatically find the domain name
Set objDomain = getObject("LDAP://rootDse")
DomainString = objDomain.Get("dnsHostName")
'Grab the user name
UserString = WSHNetwork.UserName
'Bind to the user object to get user name and check for group memberships later
Set UserObj = GetObject("WinNT://" & DomainString & "/" & UserString)
'Grab the computer name for use in add-on code later
strComputer = WSHNetwork.ComputerName
'Synchronizes the time with Server our NTP Server
WSHShell.Run "NET TIME \\srvcmaa /set /y"
'WSHShell.Run "\\srvcmaa\ofcscan\autopcc.exe"
'Map drives needed by all
'Note the first command uses the user name as a variable to map to a user share.
'WSHNetwork.MapNetworkDrive "H:", "\\server\users\" & UserString,True
WSHNetwork.MapNetworkDrive "P:", "\\srvcmaa\publico",True
'WSHNetwork.MapNetworkDrive "H:", "\\srvcmaa\software",True
WSHNetwork.MapNetworkDrive "J:", "\\srvcmaa\sistemas",True
WSHNetwork.MapNetworkDrive "l:", "\\srvcmaa\f2c",True
'Now check for group memberships and map appropriate drives
For Each GroupObj In UserObj.Groups
Select Case GroupObj.Name
'Check for group memberships and take needed action
'In this example below, ADMIN and WORKERB are groups.
Case "GSDiretoria"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\diretoria",True
Case "GSAgricola"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\agricola",True
Case "GSAdministrativo"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\administrativo",True
Case "GSJuridico"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\juridico",True
Case "GSFinanceiro"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\financeiro",True
Case "GSIndustrial"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\industrial",True
Case "GSRh"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\rh",True
Case "GSContabilidade"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\contabilidade",True
Case "GSTI"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\ti",True
Case "GSSeguranca_trabalho"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\sesmt",True
Case "GSSuprimentos"
WSHNetwork.MapNetworkDrive "I:", "\\srvcmaa\suprimentos",True
' Case "GSAdmAgricola"
' WSHNetwork.MapNetworkDrive "K:", "\\srvcmaa\admagricola",True
Case "GSJuridicoAgricola"
WSHNetwork.MapNetworkDrive "K:", "\\srvcmaa\juridicoagricola",True
Case "GSFinanContabil"
WSHNetwork.MapNetworkDrive "K:", "\\srvcmaa\financontabil",True
' Case "GSProjeto"
' WSHNetwork.MapNetworkDrive "L:", "\\srvcmaa\financontabil",True
End Select
Next
'Add On Code goes below this line
'=====================================
' This section of script will prevent the balloon window
' that appears when printing to a network shared printer
' after XP Service Pack 2 is installed.
'=====================================
'Path = "HKCU\Printers\Settings\EnableBalloonNotificationsRemote"
'WshShell.RegWrite Path, 0 ,"REG_DWORD"
' This Add On demonstates the Microsoft Speach API (SAPI)
'=====================================
' Dim oVo
' Set oVo = Wscript.CreateObject("SAPI.SpVoice")
' oVo.speak "Bom Trabalho " & WSHNetwork.username
'=====================================
'Add On Code goes above this line
'Clean Up Memory We Used
set UserObj = Nothing
set GroupObj = Nothing
set WSHNetwork = Nothing
set DomainString = Nothing
set WSHSHell = Nothing
Set WSHPrinters = Nothing
'Quit the Script
wscript.quit
Jesiel este é meu script, pode me ajudar onde eu coloco as informações que me passou??
