Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 13 20:37:54

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

VBScript

> SIGNATURE STANDARDISÉE DANS OUTLOOK VIA PARAMÈTRES ACTIVE DIRECTORY DE L'UTILISATEUR

SIGNATURE STANDARDISÉE DANS OUTLOOK VIA PARAMÈTRES ACTIVE DIRECTORY DE L'UTILISATEUR

Information sur la source

Note :

9,33 / 10

Catégorie :VBScript Classé sous :signature, outlook, active, directory, ldap Niveau :Débutant Date de création :09/01/2007 Date de mise à jour :12/01/2007 08:38:10 Vu / téléchargé :19 230 / 481

Auteur : drassef14

Ecrire un message privé

Commentaire sur cette source (18)

Ajouter un commentaire et/ou une note

Description

Ecriture d'une signature pour Outlook (2002 et 2003 testés) afin que tous les utilisateur d'une même organisation Active Directory aient la même forme.

Source

'---------------------------------------------------------------------------------------------------------
'Définition de la signature Outlook via paramètres utilisateur Active Directory
'
' ### PREMIER SCRIPT ### LE SECOND SE TROUVE A LA FIN DE CELUI-CI ###
'---------------------------------------------------------------------------------------------------------
'
'
'Définition des variables et vérification de l'existance du dossier ....\Microsoft\Signatures
set netw=createobject("wscript.network")
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
set oshell = createobject("wscript.shell")
if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then
FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures")
End If
Set OutPutFileTxt = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.txt", True)
Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.htm", True)
'Suppression du fichier RTF si existant
if FileSystem.fileexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.rtf") then
FileSystem.DeleteFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.rtf")
End If
'Send START Message
WScript.Echo "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait"
'Définition des OU Active Directory
'
'
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!! xxxx = A définir suivant votre configuration AD !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'
'
'
Set oContainer=GetObject("LDAP:// ou=xxxx,dc=xxxx,dc=xxxx,dc=com")
EnumerateUsers oContainer
'
'
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!! xxxx = A définir suivant votre configuration AD !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'
' Si plusieurs OU de recherche
'
'
' Set oContainer=GetObject("LDAP:// ou=xxxx,dc=xxxx,dc=xxxx,dc=com")
' EnumerateUsers oContainer
'
'
'
'
'Message de fin de procédure sur Erreur
WScript.Echo "Erreur: utilisateur inconnu ou mauvaise definition Active Directory ..."
WScript.Quit(0)
'Sub Programme de recherche "EnumerateUsers"
Sub EnumerateUsers(oCont)
Dim oUser
For Each oUser In oCont
Select Case LCase(oUser.Class)
Case "user"
If oUser.sAMAccountName=netw.username Then
'Affichage des paramètres de l'utilisateur
BtnCode = oshell.Popup("Nom: " & oUser.description & chr(13) & "Title: " &oUser.title & chr(13) & "Departement: " & oUser.department & chr(13) & "Adresse: " & oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & chr(13) & "Phone: " & oUser.telephoneNumber & chr(13) & "Mobil: " & oUser.mobile & chr(13) & "Fax: " & oUser.facsimileTelephoneNumber & chr(13) & "Mail: " & oUser.mail & chr(13) & chr(13), 0, "Voulez-vous continuer: ?", 4 + 64)
If BtnCode=6 then
' Création du fichier au format TXT
OutPutFileTxt.WriteLine "Salutations / Best regards"
OutPutFileTxt.WriteLine " "
OutPutFileTxt.WriteLine oUser.description
OutPutFileTxt.WriteLine "--"
OutPutFileTxt.WriteLine oUser.title
OutPutFileTxt.WriteLine oUser.department
OutPutFileTxt.WriteLine oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l
If Not IsEmpty(oUser.telephoneNumber) Then
OutPutFileTxt.WriteLine "Phone " & oUser.telephoneNumber
End If
If Not IsEmpty(oUser.mobile) Then
OutPutFileTxt.WriteLine "Mobile " & oUser.mobile
End If
If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
OutPutFileTxt.WriteLine "Fax " & oUser.facsimileTelephoneNumber
End If
OutPutFileTxt.WriteLine "Mailto:" & oUser.mail
OutPutFileTxt.WriteLine "http://VotresiteWEB"
OutPutFileTxt.Close
'Création du fichier au format HTML
OutPutFileHtml.WriteLine "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
OutPutFileHtml.WriteLine "<HTML><HEAD>"
OutPutFileHtml.WriteLine "<META http-equiv=Content-Type content=""text/html; charset=windows-1252"">"
OutPutFileHtml.WriteLine "<META content=""MSHTML 6.00.2800.1459"" name=GENERATOR></HEAD>"
OutPutFileHtml.WriteLine "<BODY>"
OutPutFileHtml.WriteLine "<DIV align=left>"
OutPutFileHtml.WriteLine "<TABLE id=table1"
OutPutFileHtml.WriteLine "style=""BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-RIGHT-WIDTH: 0px"""
OutPutFileHtml.WriteLine "height=194 width=500 border=1>"
OutPutFileHtml.WriteLine " <TBODY>"
OutPutFileHtml.WriteLine " <TR>"
OutPutFileHtml.WriteLine " <TD"
OutPutFileHtml.WriteLine " style=""BORDER-RIGHT: medium none; PADDING-RIGHT: 0px; BORDER-TOP: medium none; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; "
OutPutFileHtml.WriteLine " BORDER-LEFT: medium none; PADDING-TOP: 0px; BORDER-BOTTOM: medium none"""
OutPutFileHtml.WriteLine " vAlign=bottom>Salutations / Best regards "
OutPutFileHtml.WriteLine " "
OutPutFileHtml.WriteLine "" & oUser.description & " "
OutPutFileHtml.WriteLine "-- "
OutPutFileHtml.WriteLine "" & oUser.title & " "
OutPutFileHtml.WriteLine "" & oUser.department & " "
OutPutFileHtml.WriteLine "" & oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & " "
If Not IsEmpty(oUser.telephoneNumber) Then
OutPutFileHtml.WriteLine "Phone " & oUser.telephoneNumber & " "
End If
If Not IsEmpty(oUser.mobile) Then
OutPutFileHtml.WriteLine "Mobile " & oUser.mobile & " "
End If
If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
OutPutFileHtml.WriteLine "Fax " & oUser.facsimileTelephoneNumber & " "
End If
OutPutFileHtml.WriteLine "<A href=""mailto:"
OutPutFileHtml.WriteLine oUser.mail
OutPutFileHtml.WriteLine """>mailto:" & oUser.mail & "</A> "
OutPutFileHtml.WriteLine " <A href=""http://votresiteWEB""><SPAN"
OutPutFileHtml.WriteLine " lang=fr><FONT face=Arial color=#0000ff"
OutPutFileHtml.WriteLine " size=2>http://votresiteWEB</A></TD>"
OutPutFileHtml.WriteLine " </TR></TBODY></TABLE></DIV></BODY></HTML>"
OutPutFileHtml.Close
'Message de FIN normale de la procédure
WScript.Echo "Définition signature terminée"
WScript.Quit(0)
else
'Message de d'ABANDON de la procédure
WScript.Echo "Procédure annulée"
WScript.Quit(0)
End If
End If
Case "organizationalunit", "container"
EnumerateUsers oUser
End Select
Next
End Sub
'
' Fin de la première version
'
'########################################################################
'# #
'# Automatic Outlook Signature with LDAP Parameters #
'# #
'########################################################################
'
'Find the current LDAP Name
'
'#############################
Set oRootDSE = GetObject("LDAP://RootDSE")
Set oShell = WScript.CreateObject("WScript.Shell")
sUserName = oShell.Environment("PROCESS").Item("username")
Const ADS_PROPERTY_CLEAR = 1
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1
strDNSDomain = oRootDSE.Get("defaultNamingContext")
Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_INITTYPE_GC, ""
objTrans.Set ADS_NAME_TYPE_1779, strDNSDomain
strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4)
strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1)
strUserNTName = Trim(LogonAccount)
objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strUserNTName
If Err.Number <> 0 Then
On Error GoTo 0
Wscript.Echo "ERROR: Login not found in Active Directory: " & strUserNTName
Else
On Error GoTo 0
strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)
LDAP_Name = "LDAP://" & strUserDN
End If
'#############################
'
'Find the current User in this LDAP
'
'#############################
On error resume next
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT adspath FROM '" & LDAP_Name & "' WHERE objectCategory='user' AND sAMAccountName='" & sUserName & "'"
Set objRecordSet = objCommand.Execute
if (objRecordset.Fields("adspath") <> "") then
GetAdsPath = objRecordset.Fields("adspath")
end if
objConnection.Close
LDAP_Path_User = GetAdsPath
'#############################
'
'Wrtite files for this Outlook Signature
'
'#############################
Set oUser=GetObject(LDAP_Path_User)
Set oShell = WScript.CreateObject("WScript.Shell")
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then
FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures")
End If
Set OutPutFileTxt = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.txt", True)
Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.htm", True)
if FileSystem.fileexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.rtf") then
FileSystem.DeleteFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.rtf")
End If
'=============================
'File with extension .TXT
'=============================
OutPutFileTxt.WriteLine " "
OutPutFileTxt.WriteLine "Salutations / Best regards"
OutPutFileTxt.WriteLine " "
OutPutFileTxt.WriteLine oUser.description
OutPutFileTxt.WriteLine "--"
OutPutFileTxt.WriteLine oUser.company
OutPutFileTxt.WriteLine oUser.title
OutPutFileTxt.WriteLine oUser.department
OutPutFileTxt.WriteLine oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l
If Not IsEmpty(oUser.telephoneNumber) Then
OutPutFileTxt.WriteLine "Phone " & oUser.telephoneNumber
End If
If Not IsEmpty(oUser.mobile) Then
OutPutFileTxt.WriteLine "Mobile " & oUser.mobile
End If
If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
OutPutFileTxt.WriteLine "Fax " & oUser.facsimileTelephoneNumber
End If
OutPutFileTxt.WriteLine "Mailto:" & oUser.mail
'
'
'Put your WEB Site instead of www.xxxxxxxxx.com
'
'
OutPutFileTxt.WriteLine "http://www.xxxxxxxxx.com.com"
OutPutFileTxt.Close
'=============================
'File with extension .HTM
'=============================
OutPutFileHtml.WriteLine "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
OutPutFileHtml.WriteLine "<HTML><HEAD>"
OutPutFileHtml.WriteLine "<META http-equiv=Content-Type content=""text/html; charset=windows-1252"">"
OutPutFileHtml.WriteLine "<META content=""MSHTML 6.00.2800.1459"" name=GENERATOR></HEAD>"
OutPutFileHtml.WriteLine "<BODY>"
OutPutFileHtml.WriteLine "<DIV align=left>"
OutPutFileHtml.WriteLine "<TABLE id=table1"
OutPutFileHtml.WriteLine "style=""BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-RIGHT-WIDTH: 0px"""
OutPutFileHtml.WriteLine "height=194 width=500 border=1>"
OutPutFileHtml.WriteLine " <TBODY>"
OutPutFileHtml.WriteLine " <TR>"
OutPutFileHtml.WriteLine " <TD"
OutPutFileHtml.WriteLine " style=""BORDER-RIGHT: medium none; PADDING-RIGHT: 0px; BORDER-TOP: medium none; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; "
OutPutFileHtml.WriteLine " BORDER-LEFT: medium none; PADDING-TOP: 0px; BORDER-BOTTOM: medium none"""
OutPutFileHtml.WriteLine " vAlign=bottom>"
OutPutFileHtml.WriteLine " "
OutPutFileHtml.WriteLine "Salutations / Best regards "
OutPutFileHtml.WriteLine " "
OutPutFileHtml.WriteLine "" & oUser.description & " "
OutPutFileHtml.WriteLine "-- "
OutPutFileHtml.WriteLine "" & oUser.company & " "
OutPutFileHtml.WriteLine "" & oUser.title & " "
OutPutFileHtml.WriteLine "" & oUser.department & " "
OutPutFileHtml.WriteLine "" & oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & " "
If Not IsEmpty(oUser.telephoneNumber) Then
OutPutFileHtml.WriteLine "Phone " & oUser.telephoneNumber & " "
End If
If Not IsEmpty(oUser.mobile) Then
OutPutFileHtml.WriteLine "Mobile " & oUser.mobile & " "
End If
If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
OutPutFileHtml.WriteLine "Fax " & oUser.facsimileTelephoneNumber & " "
End If
OutPutFileHtml.WriteLine "<A href=""mailto:"
OutPutFileHtml.WriteLine oUser.mail
OutPutFileHtml.WriteLine """>mailto:" & oUser.mail & "</A> "
'
'
'Put your WEB Site instead of www.xxxxxxxxx.com (twice)
'
'
OutPutFileHtml.WriteLine " <A href=""http://www.xxxxxxxxx.com""><SPAN"
OutPutFileHtml.WriteLine " lang=fr><FONT face=Arial color=#0000ff"
OutPutFileHtml.WriteLine " size=2>http://www.xxxxxxxxx.com</A></TD>"
OutPutFileHtml.WriteLine " </TR></TBODY></TABLE></DIV></BODY></HTML>"
OutPutFileHtml.Close
WScript.Quit(0)

'---------------------------------------------------------------------------------------------------------
'Définition de la signature Outlook  via paramètres utilisateur Active Directory
'
'   ### PREMIER SCRIPT ### LE SECOND SE TROUVE A LA FIN DE CELUI-CI ### 
'---------------------------------------------------------------------------------------------------------
'
'
'Définition des variables et vérification de l'existance du dossier ....\Microsoft\Signatures
	set netw=createobject("wscript.network")
	Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
	set oshell = createobject("wscript.shell")
	if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then
		FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures")
	End If
	Set OutPutFileTxt = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.txt", True)
	Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.htm", True)
'Suppression du fichier RTF si existant
	if FileSystem.fileexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.rtf") then
		FileSystem.DeleteFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\Ma_Signature.rtf")
	End If
'Send START Message
	WScript.Echo "Creation signature Outlook en cours ... Veuillez patientez, s'il vous plait"
'Définition des OU Active Directory
'
'
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!! xxxx = A définir suivant votre configuration AD !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'
'
'
	Set oContainer=GetObject("LDAP:// ou=xxxx,dc=xxxx,dc=xxxx,dc=com")
	EnumerateUsers oContainer
'
'
'
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'!!!! xxxx = A définir suivant votre configuration AD !!!!!
'!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
'
' Si plusieurs OU de recherche
'
'
'	Set oContainer=GetObject("LDAP:// ou=xxxx,dc=xxxx,dc=xxxx,dc=com")
'	EnumerateUsers oContainer
'
'
'
'
'Message de fin de procédure sur Erreur
	WScript.Echo "Erreur: utilisateur inconnu ou mauvaise definition Active Directory ..."
	WScript.Quit(0) 
'Sub Programme de recherche "EnumerateUsers"
	Sub EnumerateUsers(oCont)
	Dim oUser
	For Each oUser In oCont
		Select Case LCase(oUser.Class)
			Case "user"
			If oUser.sAMAccountName=netw.username Then
'Affichage des paramètres de l'utilisateur
			BtnCode = oshell.Popup("Nom: " & oUser.description & chr(13) & "Title: " &oUser.title & chr(13) & "Departement: " & oUser.department & chr(13) & "Adresse: " &  oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & chr(13) & "Phone: " & oUser.telephoneNumber & chr(13) & "Mobil: " & oUser.mobile & chr(13) & "Fax: " & oUser.facsimileTelephoneNumber & chr(13) & "Mail: " & oUser.mail & chr(13) & chr(13), 0, "Voulez-vous continuer: ?", 4 + 64)
				If BtnCode=6 then
' Création du fichier au format TXT
					OutPutFileTxt.WriteLine "Salutations / Best regards"
					OutPutFileTxt.WriteLine " "
					OutPutFileTxt.WriteLine oUser.description
					OutPutFileTxt.WriteLine "--"
					OutPutFileTxt.WriteLine oUser.title
					OutPutFileTxt.WriteLine oUser.department
					OutPutFileTxt.WriteLine oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l
					If Not IsEmpty(oUser.telephoneNumber) Then
						OutPutFileTxt.WriteLine "Phone  " & oUser.telephoneNumber
					End If
					If Not IsEmpty(oUser.mobile) Then
						OutPutFileTxt.WriteLine "Mobile " & oUser.mobile
					End If
					If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
						OutPutFileTxt.WriteLine "Fax    " & oUser.facsimileTelephoneNumber
					End If
					OutPutFileTxt.WriteLine "Mailto:" & oUser.mail
					OutPutFileTxt.WriteLine "http://VotresiteWEB"
					OutPutFileTxt.Close
'Création du fichier au format HTML
					OutPutFileHtml.WriteLine "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
					OutPutFileHtml.WriteLine "<HTML><HEAD>"
					OutPutFileHtml.WriteLine "<META http-equiv=Content-Type content=""text/html; charset=windows-1252"">"
					OutPutFileHtml.WriteLine "<META content=""MSHTML 6.00.2800.1459"" name=GENERATOR></HEAD>"
					OutPutFileHtml.WriteLine "<BODY>"
					OutPutFileHtml.WriteLine "<DIV align=left>"
					OutPutFileHtml.WriteLine "<TABLE id=table1"
					OutPutFileHtml.WriteLine "style=""BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-RIGHT-WIDTH: 0px"""
					OutPutFileHtml.WriteLine "height=194 width=500 border=1>"
					OutPutFileHtml.WriteLine "  <TBODY>"
					OutPutFileHtml.WriteLine "  <TR>"
					OutPutFileHtml.WriteLine "    <TD"
					OutPutFileHtml.WriteLine "    style=""BORDER-RIGHT: medium none; PADDING-RIGHT: 0px; BORDER-TOP: medium none; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; "
					OutPutFileHtml.WriteLine "    BORDER-LEFT: medium none; PADDING-TOP: 0px; BORDER-BOTTOM: medium none"""
					OutPutFileHtml.WriteLine "    vAlign=bottom><SPAN lang=fr><FONT face=Arial size=2>Salutations / Best regards<BR>"
					OutPutFileHtml.WriteLine "<BR>"
					OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.description & "</FONT><BR>"
					OutPutFileHtml.WriteLine "<FONT face=Arial size=2>--</FONT><BR>"
					OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.title & "</FONT><BR>"
					OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.department & "</FONT><BR>"
					OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & "</FONT><BR>"
					If Not IsEmpty(oUser.telephoneNumber) Then
						OutPutFileHtml.WriteLine "<FONT face=Arial size=2>Phone " & oUser.telephoneNumber & "</FONT><BR>"
					End If
					If Not IsEmpty(oUser.mobile) Then
						OutPutFileHtml.WriteLine "<FONT face=Arial size=2><FONT face=Arial size=2>Mobile " & oUser.mobile & "</FONT><BR>"
					End If
					If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
						OutPutFileHtml.WriteLine "<FONT face=Arial size=2>Fax   " & oUser.facsimileTelephoneNumber & "</FONT><BR>"
					End If
					OutPutFileHtml.WriteLine "<FONT face=Arial size=2><A href=""mailto:"
					OutPutFileHtml.WriteLine oUser.mail
					OutPutFileHtml.WriteLine """>mailto:" & oUser.mail & "</A></FONT><BR>"
					OutPutFileHtml.WriteLine "      </SPAN><A href=""http://votresiteWEB""><SPAN"
					OutPutFileHtml.WriteLine "      lang=fr><U><FONT face=Arial color=#0000ff"
					OutPutFileHtml.WriteLine "      size=2>http://votresiteWEB</FONT></U></SPAN></A></P></TD>"
					OutPutFileHtml.WriteLine "      </TR></TBODY></TABLE></DIV></BODY></HTML>"
					OutPutFileHtml.Close
'Message de FIN normale de la procédure
					WScript.Echo "Définition signature terminée"
					WScript.Quit(0) 
				else
'Message de d'ABANDON de la procédure
					WScript.Echo "Procédure annulée"
					WScript.Quit(0) 
				End If
			End If
			Case "organizationalunit", "container"
				EnumerateUsers oUser
		End Select
	Next
	End Sub
'
' Fin de la première version
'



'########################################################################
'#                                                                      #
'# Automatic Outlook Signature with LDAP Parameters                     #
'#                                                                      #
'########################################################################
'
'Find the current LDAP Name
'
'#############################
Set oRootDSE = GetObject("LDAP://RootDSE")
Set oShell = WScript.CreateObject("WScript.Shell")
sUserName = oShell.Environment("PROCESS").Item("username")
Const ADS_PROPERTY_CLEAR = 1
Const ADS_NAME_INITTYPE_GC = 3
Const ADS_NAME_TYPE_NT4 = 3
Const ADS_NAME_TYPE_1779 = 1
strDNSDomain = oRootDSE.Get("defaultNamingContext")
Set objTrans = CreateObject("NameTranslate")
objTrans.Init ADS_NAME_INITTYPE_GC, ""
objTrans.Set ADS_NAME_TYPE_1779, strDNSDomain
strNetBIOSDomain = objTrans.Get(ADS_NAME_TYPE_NT4)
strNetBIOSDomain = Left(strNetBIOSDomain, Len(strNetBIOSDomain) - 1)
strUserNTName = Trim(LogonAccount)
objTrans.Set ADS_NAME_TYPE_NT4, strNetBIOSDomain & "\" & strUserNTName
If Err.Number <> 0 Then
	On Error GoTo 0
	Wscript.Echo "ERROR: Login not found in Active Directory: " & strUserNTName 
Else
	On Error GoTo 0
	strUserDN = objTrans.Get(ADS_NAME_TYPE_1779)
	LDAP_Name = "LDAP://" & strUserDN 
End If 
'#############################
'
'Find the current User in this LDAP
'
'#############################
On error resume next
Set objConnection = CreateObject("ADODB.Connection")
objConnection.Open "Provider=ADsDSOObject;"
Set objCommand = CreateObject("ADODB.Command")
objCommand.ActiveConnection = objConnection
objCommand.CommandText = "SELECT adspath FROM '" & LDAP_Name & "' WHERE objectCategory='user' AND sAMAccountName='" & sUserName & "'"
Set objRecordSet = objCommand.Execute
if (objRecordset.Fields("adspath") <> "") then 
	GetAdsPath = objRecordset.Fields("adspath")
end if
objConnection.Close
LDAP_Path_User = GetAdsPath
'#############################
'
'Wrtite files for this Outlook Signature
'
'#############################
Set oUser=GetObject(LDAP_Path_User)
Set oShell = WScript.CreateObject("WScript.Shell")
Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")
if not FileSystem.folderexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures") then
	FileSystem.CreateFolder(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures")
End If
Set OutPutFileTxt = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.txt", True)
Set OutPutFileHtml = FileSystem.CreateTextFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.htm", True)
if FileSystem.fileexists (oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.rtf") then
	FileSystem.DeleteFile(oshell.expandenvironmentstrings("%userprofile%") & "\Application Data\Microsoft\Signatures\efqm.rtf")
End If
'=============================
'File with extension .TXT
'=============================
OutPutFileTxt.WriteLine " "
OutPutFileTxt.WriteLine "Salutations / Best regards"
OutPutFileTxt.WriteLine " "
OutPutFileTxt.WriteLine oUser.description
OutPutFileTxt.WriteLine "--"
OutPutFileTxt.WriteLine oUser.company
OutPutFileTxt.WriteLine oUser.title
OutPutFileTxt.WriteLine oUser.department
OutPutFileTxt.WriteLine oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l
If Not IsEmpty(oUser.telephoneNumber) Then
	OutPutFileTxt.WriteLine "Phone	" & oUser.telephoneNumber
End If
If Not IsEmpty(oUser.mobile) Then
	OutPutFileTxt.WriteLine "Mobile " & oUser.mobile
End If
If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
	OutPutFileTxt.WriteLine "Fax		" & oUser.facsimileTelephoneNumber
End If
OutPutFileTxt.WriteLine "Mailto:" & oUser.mail
'
'
'Put your WEB Site instead of www.xxxxxxxxx.com
'
'
OutPutFileTxt.WriteLine "http://www.xxxxxxxxx.com.com"
OutPutFileTxt.Close
'=============================
'File with extension .HTM
'=============================
OutPutFileHtml.WriteLine "<!DOCTYPE HTML PUBLIC ""-//W3C//DTD HTML 4.0 Transitional//EN"">"
OutPutFileHtml.WriteLine "<HTML><HEAD>"
OutPutFileHtml.WriteLine "<META http-equiv=Content-Type content=""text/html; charset=windows-1252"">"
OutPutFileHtml.WriteLine "<META content=""MSHTML 6.00.2800.1459"" name=GENERATOR></HEAD>"
OutPutFileHtml.WriteLine "<BODY>"
OutPutFileHtml.WriteLine "<DIV align=left>"
OutPutFileHtml.WriteLine "<TABLE id=table1"
OutPutFileHtml.WriteLine "style=""BORDER-TOP-WIDTH: 0px; BORDER-LEFT-WIDTH: 0px; BORDER-BOTTOM-WIDTH: 0px; BORDER-RIGHT-WIDTH: 0px"""
OutPutFileHtml.WriteLine "height=194 width=500 border=1>"
OutPutFileHtml.WriteLine "	<TBODY>"
OutPutFileHtml.WriteLine "	<TR>"
OutPutFileHtml.WriteLine "		<TD"
OutPutFileHtml.WriteLine "		style=""BORDER-RIGHT: medium none; PADDING-RIGHT: 0px; BORDER-TOP: medium none; PADDING-LEFT: 0px; PADDING-BOTTOM: 0px; "
OutPutFileHtml.WriteLine "		BORDER-LEFT: medium none; PADDING-TOP: 0px; BORDER-BOTTOM: medium none"""
OutPutFileHtml.WriteLine "		vAlign=bottom><SPAN lang=fr>"
OutPutFileHtml.WriteLine "<BR>"
OutPutFileHtml.WriteLine "<FONT face=Arial size=2>Salutations / Best regards<BR>"
OutPutFileHtml.WriteLine "<BR>"
OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.description & "</FONT><BR>"
OutPutFileHtml.WriteLine "<FONT face=Arial size=2>--</FONT><BR>"
OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.company & "</FONT><BR>"
OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.title & "</FONT><BR>"
OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.department & "</FONT><BR>"
OutPutFileHtml.WriteLine "<FONT face=Arial size=2>" & oUser.postOfficeBox & ", " & oUser.streetAddress & ", " & oUser.postalCode & " " & oUser.l & "</FONT><BR>"
If Not IsEmpty(oUser.telephoneNumber) Then
	OutPutFileHtml.WriteLine "<FONT face=Arial size=2>Phone " & oUser.telephoneNumber & "</FONT><BR>"
End If
If Not IsEmpty(oUser.mobile) Then
	OutPutFileHtml.WriteLine "<FONT face=Arial size=2><FONT face=Arial size=2>Mobile " & oUser.mobile & "</FONT><BR>"
End If
If Not IsEmpty(oUser.facsimileTelephoneNumber) Then
	OutPutFileHtml.WriteLine "<FONT face=Arial size=2>Fax	 " & oUser.facsimileTelephoneNumber & "</FONT><BR>"
End If
OutPutFileHtml.WriteLine "<FONT face=Arial size=2><A href=""mailto:"
OutPutFileHtml.WriteLine oUser.mail
OutPutFileHtml.WriteLine """>mailto:" & oUser.mail & "</A></FONT><BR>"
'
'
'Put your WEB Site instead of www.xxxxxxxxx.com (twice)
'
'
OutPutFileHtml.WriteLine "			</SPAN><A href=""http://www.xxxxxxxxx.com""><SPAN"
OutPutFileHtml.WriteLine "			lang=fr><U><FONT face=Arial color=#0000ff"
OutPutFileHtml.WriteLine "			size=2>http://www.xxxxxxxxx.com</FONT></U></SPAN></A></P></TD>"
OutPutFileHtml.WriteLine "			</TR></TBODY></TABLE></DIV></BODY></HTML>"
OutPutFileHtml.Close
WScript.Quit(0)

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

vbs_dev
- VBFrance
  - Signature_Outlook.vbs 8 543 octets
  - Signature_outlook_auto.vbs 7 133 octets

Télécharger le zip

Historique

10 janvier 2007 20:22:17 :: Désolé, mais j'ai oublié l'extension du fichier Ma_Signature.HTM
12 janvier 2007 08:38:10 :: Après quelques recherches à droite et à gauche, j'ai trouvé le moyen de réduire le temps de recherche et de rendre ce script exécutable dans tous les domaines LDAP (demande pour nos collègues des autres sites). Seul l'écriture des fichiers reste à paramétrer suivant vos besoins (exemple, votre site WWW).

Sources du même auteur

COMMENT RENOMMER UN OU PUSIEURS NOM DE GROUPES ACTIVE DIRECT...

RECHERCHE DES INFORMATIONS UTILISATEURS / GROUPES / COMPUTER...

Toutes les sources de drassef14

Sources de la même categorie

RECHERCHE & SAUVEGARDE DES FICHIERS PAR LEURS EXTENSIONS par hackoo

[VBS] SPLASH SCREEN EN VBSCRIPT par hackoo

[VBS] GOOGLE EASTER EGGS par hackoo

FILE2COMPARE: COMPARAISON DE DEUX FICHIERS LIGNE PAR LIGNE par hackoo

[VBS] COMMENT CRÉER UN DOSSIER ET LE PROTÉGER PAR MOT DE PAS... par hackoo

Toutes les sources de la catégorie VBScript

Sources en rapport avec celle ci

GÉNÉRATEUR DE MAIL OUTLOOK AVEC MISE EN FORME VIA UNE SYNTAX... par 8Tnerolf8

FOLDERS ET DOCUMENTS OUTLOOK SOUS FORME DE TREEVIEW ... RECU... par jmn59170

OUTLOOK ICAL EXPORTER par xsimo

[ACTIVE DIRECTORY] AJOUT UTILISATEURS VIA EXCEL.VBS par FrancB

EXPLORER LDAP ACTIVE DIRECTORY DANS UN TREEVIEW par ankou22

Commentaires et avis

Commentaire de Warny le 09/01/2007 17:43:41

Salut,
Ton code va me servir immédiatement. Merci.
Tu devrais prévoir un fichier modèle plutot que d'écrire le code en dur dans ton prog.

Commentaire de drassef14 le 10/01/2007 08:29:00

Merci, je vais regarder comment faire cela.

Commentaire de didyman le 10/01/2007 17:30:08

Et Comment je fais pour le mettre en marche?? je le compile en EXE et je le met dans le logon script??

Commentaire de drassef14 le 10/01/2007 19:57:11

Simple, il faut copier le script dans NOTEPAD (ou un autre éditeur) puis sauvegarder le fichier avec l'extension .VBS
Ensuite, soit une exécution directe (par doucle-clique par exemple), soit dans une fenêtre MS-DOS via la commande "WSCRIPT nom_du_fichier.VBS"
Pour plus de renseignements concernant la commande MS-DOS, entrer "WSCRIPT /?"

Commentaire de gregorybel le 20/02/2007 17:28:22

Salut, ton script est très intérrésé. Cela dit j'aimerai si possible rajouter une option, je voudrais que la photo de la personne s'affiche donc j'ai rajouter cette ligne mais elle n'est pas correct a priori puisqu'une erreur est généré:
OutPutFileHtml.WriteLine "<IMG SRC="\\serveur\photo\phototest">

Erreur est la suivante:

Erreur de syntaxe.
Que doit je remplacer?
Merci d'avance

Commentaire de ced971 le 22/02/2007 11:06:35

Bonjour, je vous remercie beaucoup pour cet excellent script ;-)
Je voudrais juste savoir s'il est possible de définir la signature par défaut pour outlook via le script ?!

Merci d'avance !

Commentaire de drassef14 le 23/02/2007 11:39:08

Bonjour,
Pour l'ajout de la photo, il faut mettre des doubles " si celles-ci doivent être ecrites dans le fichier.
Ton exemple: OutPutFileHtml.WriteLine "<IMG SRC=""\\serveur\photo\phototest"">"

Maintenant, pour définir cette signature par défaut sans intervention de l'utilisateur,

Pour Outlook Office 2002 (XP), il faut rajouter les clés dans le registre:

[HKEY_CURRENT_USER\Software\Microsoft\Office\10.0\Common\MailSettings]
"NewSignature"="efqm" Pour les nouveaux mails
"ReplySignature"="efqm" Pour les réponses aux mails

Donc, voici le script à adapter:

Set WshShell = WScript.CreateObject("WScript.Shell")
WshShell.RegWrite "HKCU\Software\Microsoft\Office\10.0\Common\MailSettings\NewSignature", "efqm"
WshShell.RegWrite "HKCU\Software\Microsoft\Office\10.0\Common\MailSettings\ReplySignature", "efqm"

Pour Outlook Office 2003, je n'ai pas encore trouver.

Commentaire de ced971 le 23/02/2007 11:48:24

Bonjour et merci pour l'info !
J'ai essayé entre temps de définir les signatures par défaut en passant comme vous par la base de registre, mais le soucis c'est que ces dernieres ne pouvaient alors plus etre changées par l'utilisateur.
J'ai donc trouvé sur le net un autre script qui permet de mettre a jour ces infos directement au niveau d'outlook, sans passer par la base de registre et qui permet alors a l'utilisateur de changer sa signature, dans le cas ou il en utilise plusieurs...

Ci-dessous, le script :

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
objSignatureObject.NewMessageSignature = "NomSignature"
objSignatureObject.ReplyMessageSignature = "NomSignature"

NB : je l'ai testé avec outlook 2003 et il fonctionne parfaitement :)

Merci encore pour ce script ! Bonne journée !

Commentaire de gregorybel le 23/02/2007 14:26:14

Merci beaucoup les gars. Ca marche nikel que ce soit pour l'image que pour la signature par default. Y'a encore un truc que j'aimerai vous demandez si c'est pas de trop... Ca n'a rien a voir avec la signature de outlook mais c'est un soucis important pour moi. En fait je recherche un script qui me permettrait de modifier l'adresse ldap de mes clients. Et comme c'est dans une clé généré par outlook et que c'est un peu comme la signature a ce niveau, je me demandais si vous auriez la solution...

Merci d'avance.

@+

Commentaire de rouge78 le 05/12/2008 17:37:51

salut

je veux modifier le script, mais mes profils sont en reseau, alors j'ai modifier le scripts et j'obtient l'erreur 800A004C chemin nom trouver
pourtant quand je tape dans run: \\serveur1\appdata$\%username%\Application Data\Microsoft\Signatures ca fonctionne

voici ou sa bloque

FileSystem.CreateFolder(oshell.expandenvironmentstrings ("\\achille\appdata$\") & ("%username%") & ("\Application Data\Microsoft\Signatures"))

Merci

Commentaire de rouge78 le 05/12/2008 17:43:55

oupss désoler, j'ai fait un erreur dans mon message, le nom de mon serveur est bien achille. donc erreur une idee ?

Commentaire de Alexielle51 le 12/02/2010 11:05:38

Excusez moi de faire remonter ce bout de code mais j'ai un souci j'ai utiliser cette partie la :

Set objWord = CreateObject("Word.Application")
objWord.Visible = False
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObject = objEmailOptions.EmailSignature
objSignatureObject.NewMessageSignature = "NomSignature"
objSignatureObject.ReplyMessageSignature = "NomSignature"

Mais ma signature créé ne se met pas en mode "par defaut" pour l'envoi et la reponse/transfert. les cases reste vides.
Quelqu'un peut m'aider ?

PS : mon parc tourne sous Outlook 2007 et outlook 2003... y'aurait moyen de gérer ca ?

deplus j'aimerais savoir si on peut synchroniser cet signature avec la signature présente dans outlook web access (basé sur notre serveur exchange 2000)?

merci beaucoup

Commentaire de drassef14 le 12/02/2010 11:50:34

Bonjour Alexielle,

Je suis désolé 2 fois. La premmière car je ne dispose pas d'Outlook 2007 et la seconde car je n'ai pas trouvé le moyen de synchroniser la signature Outlook avec celle d'OWA.

Ceci dit, la signature automatique fonctionne-t'elle avec Outlook 2003?

Bonne journée

Commentaire de Alexielle51 le 12/02/2010 13:10:57

moi ca marche sans souci sur office 2003 et 2007 juste que ca ne met pas automatiquement la signature par defaut.
Je crois que je vais finir par faire une condition sur la clé de registre 2003 ou 2007 ... au moin c'est mis par la base de registre. Plus qu'a trouver les clés correspondantes

Commentaire de drassef14 le 12/02/2010 13:35:29

J'ai trouvé ce petit bout de code sur le net, peut-être utile car il devrait fonctionner avec Outlook 2003 et 2007 ?

On Error Resume Next
Set objWord = GetObject(, "Word.Application")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application")
blnWeOpenedWord = True
End If
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objEmailOptions = objWord.EmailOptions
Set objSignatureObjects = objWord.EmailOptions.EmailSignature
Set objSignatureEntries = objSignatureObjects.EmailSignatureEntries
objSelection.TypeText "Nom et Prénom"
ojbSelection.TypeParagraph()
ojbSelection.Font.Size=5
ojbSelection.TypeParagraph()
objSelection.InlineShapes.AddPicture("c:\temp\Snap1.jpg")
ojbSelection.TypeParagraph()
Set objSelection = objDoc.Range()
objSignatureEntries.Add "AD Signature", objSelection
objSignatureObjects.NewMessageSignature = "AD Signature"
objSignatureObjects.ReplyMessageSignature = "AD Signature"
objDoc.Close 0
If blnWeOpenedWord Then
objWord.Quit
End If

Commentaire de Alexielle51 le 12/02/2010 14:40:31

C'est bizarre moi ca ne marche pas !
voila mon code (que j'ajoute a la fin du code de création de la signature) :

Set objWord = CreateObject("Word.Application") ' Création d'un objet d'interface avec Office
objWord.Visible = False
Set objEmailOptions = objWord.EmailOptions ' Objet d'interaction avec les options des emails
Set objSignatureObject = objEmailOptions.EmailSignature ' Interaction avec les signatures
objSignatureObject.NewMessageSignature = "SignOffAZ"
objSignatureObject.ReplyMessageSignature = "SignOffAZ"

SignOffAZ étant le nom de la signature que j'ai créé.
Au final ca crée la signature mais ça ne la met pas en signature pour les newMessage ni pour les Replymessage

@__@

Commentaire de drassef14 le 15/02/2010 09:40:51

Bonjour,

Encore une petite question: est-ce que le(s) fichier(s) sont réellement présent(s) dans le répertoire %userprofile%\Application Data\Microsoft\Signatures\ ?

Commentaire de Alexielle51 le 16/02/2010 08:23:26

est tu aller voir dedans ce dossier ?
Personnellement les signatures y sont présente physiquement.
Par contre une petite question encore, Quelqu'un sait-il où Outlook Web Access stocke ses signatures par Utilisateur sur le serveur car j'aimerais étendre le script a une synchronisation avec outlook et OWA.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Outlook Public Folder [ par Briaeros ] En ce bon mercredi, j'aimerai soliciter votre aide. Voila j'aimerai savoir comment faire le lien entre des contacts contenu dans active directory et l Problème script LDAP [ par william the new ] Bonjour à tousje voudrais créer des utilisateurs dans active directory avec un script LDAP ( en vbs)mais g l'erreur suivante à la ligne utilisation d'active directory ldap [ par moyou ] bonjour,j'ai besoin de savoir le nom et le prénom d'un utilisateur apartir de son login, et pour ça j'ai besoin de développer un script impasse : droit AD et connexion ldap [ par Cybertat ] Bonjour à tous,Il y a deux choses que je cherche à faire sans y parvenir complétement : J'ai trouvé sur le site de microsoft un script permettant d'af LDAP & ACTIVE DIRECTORY [ par fatimahcha ] salut tout le monde! SVP si qlq peut m'orienter; j'ai un projet sur LDAP/L'ACTIVE DIRECTORY et l'authentification du mot de passe/login..SVP si qlq a Accès à Active Directory en VBS [ par Troy34 ] Bonjour tout le monde :), Je fais actuellement un script en VBS chargé d'interroger Active Directory et j'ai un bloc de code qui me retourne une erre Problème création Utilisateur active directory automatique [ par Benjyii ] Bonjour, Je voudrais créer des utilisateus Active Directory automatiquement à partir d'un csv. Mon problème est lors de la configuration du TSE je r Signature commune pour outlook [ par sinex ] Bonjour J'ai développé une macro pour outlook afin de rajouter une signature commune a tout les utilisateurs, le principe est de rajouter le code h Active Directory et Exchange [ par Briaeros ] Salutation,Voila j'ai un probleme, je cherche à récupérer les contacts d'exchange par Active Directory. Je peux récupérer les users, group et computer Authentification Active Directory sous VB6 [ par Dante27 ] Bonjour à tous, Je travaille actuellement sur un projet dans lequel il y aura une authentification par le biais du compte local windows; il faut donc

Nos sponsors

Derniers Blogs

XNA IS DEAD! par richardc

TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice

[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio

TECHDAYS PARIS 2012 : CHUCK MORRIS N'A PAS PEUR DES MALWARES, CE SONT LES MALWARES QUI ONT PEUR DE CHUCK MORRIS par ROMELARD Fabrice

[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz

Forum

RE : SNIFFER PAGE WEB - COMMENT LISTER TOUTES LES URLS LORS DU CHARGEMENT D'UNE PAGE WEB? par fabiano13

RE : CALCUL ENTREES, SORTIE DA&NSZ UNE TABLE ET MISE à JOUR STOCK DANS UNE AUTRE TABLE par NHenry

RE : PARCOURIR FICHIER TEXTE (.TXT) EN VBA par ucfoutu

RE : OUVRIR DES CLASSEURS EXCEL ? par ucfoutu

RE : PARCOURIR FICHIER TEXTE (.TXT) EN VBA par sancho12345

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

URGENT - Realisation d-un flux standard XML -NewsML- CAHIER DES CHARGES DISPONIBLE
Budget : 400€
Creation de newsletter sur une page Facebook
Budget : 400€
fichier d-export de site OS commerce ver plateforme logistique-CDC disponible
Budget : 1 200€

Logiciels

DocTranslate (V3.1.0.0)
DOCTRANSLATE (V3.1.0.0)

DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom...

Cliquez pour télécharger DocTranslate
Tribler (2012)
TRIBLER (2012)

Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des...

Cliquez pour télécharger Tribler
OneSwarm (2012)
ONESWARM (2012)

Le peer-to-peer qui protège votre vie privée, c'est OneSwarm. Ce logiciel de peer-to-peer crypté...

Cliquez pour télécharger OneSwarm
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System