Script connexion VBS
Par admin le lundi, janvier 5 2009, 11:09 - Windows - Lien permanent
voici un exemple de script VBS de logon
Set objShell = CreateObject("Shell.Application") Set net = CreateObject("WScript.Network") Set WshShell = WScript.CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Dim WshShell , NbB Dim groupe , Lecteur , URL Username= net.UserName On Error Resume Next ' champs a remseigner groupe = "nom groupe" WshShell.Run "Cmd /c net time \\srvtalmont /set /y" 'suppression des lecteurs réseau qui n'aurais pas disparu If fso.folderexists("U:\")=True Then WshShell.Run "Cmd /c NET USE * /DELETE /YES" end if If fso.FileExists("C:\Program Files\CCleaner\CCleaner.exe")=False Then WshShell.Run "\\srv\travail$\runasspc.exe /cryptfile:""\\srv\travail$\crypt.spc"" /quiet" Else WshShell.Run "C:\Progra~1\CCleaner\CCleaner.exe /AUTO" End if 'Fenetre popup passibilité d'affiche un message NbB = 0 NbB = WshShell.Popup( "Connexion en cour" & chr(13) & "Utilisateur :" & Username & chr(13) & " ", 5 , "Bienvenue") 'ligne pour connecter des imprimantes : 'net.AddWindowsPrinterConnection "\\srv\Brother HL-5140 series" 'mappage des paratages réseau sur le poste de travail Mappage "U:", "\\srv\Utilisateurs$\" + Username Mappage "F:", "\\srv\travail" Mappage "G:", "\\srv\groupes\" + groupe 'renomge du partage personnel If fso.folderexists("U:\")=True Then strDriveLetter = "U:" objShell.NameSpace(strDriveLetter).Self.Name = "Dossier personnel de ¨\_" & Username & "_/¨" end if If fso.folderexists("M:\")=True Then strDriveLetter = "M:" objShell.NameSpace(strDriveLetter).Self.Name = "Dossier Commun Mairie" end if Sub Mappage( Lecteur , URL ) Dim onet net.MapNetworkDrive Lecteur, URL End Sub Sub Include(sInstFile) On Error Resume Next Dim oFSO, f, s Set oFSO = CreateObject("Scripting.FileSystemObject") If oFSO.FileExists(sInstFile) Then Set f = oFSO.OpenTextFile(sInstFile) s = f.ReadAll f.Close ExecuteGlobal s End If Set oFSO = Nothing Set f = Nothing End Sub Include("\\srvtalmont\NETLOGON\lecteurs\" & username & ".txt") WSCript.Quit