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