Problème script envoi de mail

Bonjour,

Je viens faire un petit script qui me ressort des =E9l=E9ments=20
pour ma gestion de Parc Informatique =E0 l'ouverture de=20
session.
Je veux que les =E9l=E9ments me soient envoy=E9s directement.
J'ai pens=E9 qu'un retour par mail serait plutot pratique=20
mais j'ai un probl=E8me sur les postes utilisateurs.

Le script renvoie l'erreur suivante:
<la valeur de configuration "SendUsing" est non valide>

Lorsque je test sur mon poste cela fonctionne. J'ouvre ma=20
session windows avec un compte admin du domaine AD.

Si Quelqu'un =E0 une solution =E0 mon probl=E8me, elle est la=20
bienvenue ! ( ??Il y a peut-=EAtre un autre moyen simple=20
pour remonter les infos sans utiliser le mail ??)

Merci

Ci joint Le Script:
---------------------------------

Set objNetwork =3D CreateObject("WScript.Network")
strComputer =3D objNetwork.ComputerName

Set objWMIService =3D GetObject("winmgmts:" _
& "{impersonationLevel=3Dimpersonate}!\\" & strComputer=20
& "\root\cimv2")=20
Set colComputer =3D objWMIService.ExecQuery _
("Select * from Win32_ComputerSystem")

For Each objComputer in colComputer
nomuser=3D objComputer.UserName
next

Set objWMIService =3D GetObject("winmgmts:" _
& "{impersonationLevel=3Dimpersonate}!\\" & strComputer=20
& "\root\cimv2")
Set colOperatingSystems =3D objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")

For Each objOperatingSystem in colOperatingSystems
OS=3D objOperatingSystem.Caption & " " & _
objOperatingSystem.Version
SP=3D objOperatingSystem.ServicePackMajorVersion _
& "." & objOperatingSystem.ServicePackMinorVersion
Set objWMIService =3D GetObject("winmgmts:\\" & strComputer=20
& "\root\cimv2")
Set colItems =3D objWMIService.ExecQuery("Select * from=20
Win32_BaseBoard")

For Each objItem in colItems
=20
Manuf=3D "Manufacturer: " & objItem.Manufacturer
Serial=3D "Serial Number: " & objItem.SerialNumber

=20
Next
Next

Set objWMIService =3D GetObject("winmgmts:\\" & strComputer=20
& "\root\cimv2")
Set colItems =3D objWMIService.ExecQuery("Select * from=20
Win32_Processor")
For Each objItem in colItems
=20
procdes=3D "Description du processeur: " &=20
objItem.Description
procname=3D "Nom du processeur: " & objItem.Name
=20
Next

Set objWMIService =3D GetObject("winmgmts:\\"& strComputer=20
& "\root\cimv2")
Set colAdapters =3D objWMIService.ExecQuery _
("SELECT * FROM Win32_NetworkAdapterConfiguration=20
WHERE IPEnabled =3D True")
=20
=20
For Each objAdapter in colAdapters
netcardnum =3D" *****Network Adapter*****"
netcardmac =3D" Physical (MAC) address: " &=20
objAdapter.MACAddress
=20
If Not IsNull(objAdapter.IPAddress) Then
For i =3D 0 To UBound(objAdapter.IPAddress)
netcardip =3D " IP address: " &=20
objAdapter.IPAddress(i)
Next
End If
=20
If Not IsNull(objAdapter.IPSubnet) Then
For i =3D 0 To UBound(objAdapter.IPSubnet)
netcardmask =3D " Subnet: " &=20
objAdapter.IPSubnet(i)
Next
End If
=20
If Not IsNull(objAdapter.DefaultIPGateway) Then
For i =3D 0 To UBound(objAdapter.DefaultIPGateway)
netcardgw=3D " Default gateway: " & _
objAdapter.DefaultIPGateway(i)
Next
End If
If Not IsNull(objAdapter.DNSServerSearchOrder) Then
For i =3D 0 To UBound(objAdapter.DNSServerSearchOrder)
netcarddns=3D " DNS Server " &=20
objAdapter.DNSServerSearchOrder(i)
Next
End If
netcardwins1=3D " Primary WINS server: " &=20
objAdapter.WINSPrimaryServer
netcardwins2=3D " Secondary WINS server: " &=20
objAdapter.WINSSecondaryServer
Next

Set objEmail =3D CreateObject("CDO.Message")
objEmail.From =3D "scriptadmin@mon-domaine.com"
objEmail.To =3D "moi@mon-domaine.com"
objEmail.Subject =3D "HOST SCRIPT REPORT"=20
objEmail.Textbody =3D "Ouverture de session sur "&=20
strComputer & " par "& nomuser & chr(13) & chr(13)=20
&"OS=3D "&OS & " SP =3D "& SP & _
chr(13) & chr(13) & Manuf & " " & Serial & chr(13) & chr
(13) & _
procname & chr(13) & procdes & _
chr(13) & chr(13) & netcardnum & _
chr(13) & chr(13) & netcardmac & _
chr(13) & chr(13) & netcardip & _
chr(13) & chr(13) & netcardmask & _
chr(13) & chr(13) & netcardgw & _
chr(13) & chr(13) & netcarddns & _
chr(13) & chr(13) & netcardwins1 & _
chr(13) & chr(13) & netcardwins2 & _
chr(13) & chr(13) & mailuser
objEmail.Send