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
Ce qui est bizarre, c'est que cela fonctionne sur mon poste et que je n'ai de paramétrage spécial dessus par rapport aux postes utilisateurs. La seule différence est que j'ai un compte admin. Tout le monde utilise XP ou 2000 avec Outlook 2002 et un serveur exchange. Je me demande donc pourquoi ? J'ai même essyer de mettre une autre adresse que la mienne et cela fonctionne également !
En regardant les lignes du script objEmail.Configuration.Fields.Item "http://schemas.microsof t.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item "http://schemas.microsof t.com/cdo/configuration/smtpserver") = "smarthost" objEmail.Configuration.Fields.Item "http://schemas.microsof t.com/cdo/configuration/smtpserverport") = 25
Les postes clients n'ont pas d'accès Web le proxy risque de bloquer ce genre de mail ? non ?
Si l'envoi de mail n'est pas possible il y a peut-être une autre solution pour me remonter les infos ?
Merci pour vos sugestions !
Vincent
PS: Je pars en congés donc je ne pourrai pas tester avant 2 semaines !
Ce qui est bizarre, c'est que cela fonctionne sur mon
poste et que je n'ai de paramétrage spécial dessus par
rapport aux postes utilisateurs. La seule différence est
que j'ai un compte admin.
Tout le monde utilise XP ou 2000 avec Outlook 2002 et un
serveur exchange. Je me demande donc pourquoi ?
J'ai même essyer de mettre une autre adresse que la mienne
et cela fonctionne également !
En regardant les lignes du script
objEmail.Configuration.Fields.Item "http://schemas.microsof
t.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item "http://schemas.microsof
t.com/cdo/configuration/smtpserver") = "smarthost"
objEmail.Configuration.Fields.Item "http://schemas.microsof
t.com/cdo/configuration/smtpserverport") = 25
Les postes clients n'ont pas d'accès Web le proxy risque
de bloquer ce genre de mail ? non ?
Si l'envoi de mail n'est pas possible il y a peut-être une
autre solution pour me remonter les infos ?
Merci pour vos sugestions !
Vincent
PS: Je pars en congés donc je ne pourrai pas tester avant
2 semaines !
Ce qui est bizarre, c'est que cela fonctionne sur mon poste et que je n'ai de paramétrage spécial dessus par rapport aux postes utilisateurs. La seule différence est que j'ai un compte admin. Tout le monde utilise XP ou 2000 avec Outlook 2002 et un serveur exchange. Je me demande donc pourquoi ? J'ai même essyer de mettre une autre adresse que la mienne et cela fonctionne également !
En regardant les lignes du script objEmail.Configuration.Fields.Item "http://schemas.microsof t.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item "http://schemas.microsof t.com/cdo/configuration/smtpserver") = "smarthost" objEmail.Configuration.Fields.Item "http://schemas.microsof t.com/cdo/configuration/smtpserverport") = 25
Les postes clients n'ont pas d'accès Web le proxy risque de bloquer ce genre de mail ? non ?
Si l'envoi de mail n'est pas possible il y a peut-être une autre solution pour me remonter les infos ?
Merci pour vos sugestions !
Vincent
PS: Je pars en congés donc je ne pourrai pas tester avant 2 semaines !
Thierry
Bonjour,
J'ai le même pb avec un poste qui est en DMZ sans accès web, ce genre de code nécessite impérativement l'accès au port 80 et 25 autrement dit le web et smtp
Je n'ai pas trouvé de solution de mon côté non plus mais je suis preneur ;o)
Amicalement Thierry
-----Message d'origine----- Ce qui est bizarre, c'est que cela fonctionne sur mon poste et que je n'ai de paramétrage spécial dessus par rapport aux postes utilisateurs. La seule différence est que j'ai un compte admin. Tout le monde utilise XP ou 2000 avec Outlook 2002 et un serveur exchange. Je me demande donc pourquoi ? J'ai même essyer de mettre une autre adresse que la mienne
et cela fonctionne également !
En regardant les lignes du script objEmail.Configuration.Fields.Item "http://schemas.microso f
t.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item "http://schemas.microso f
t.com/cdo/configuration/smtpserver") = "smarthost" objEmail.Configuration.Fields.Item "http://schemas.microso f
t.com/cdo/configuration/smtpserverport") = 25
Les postes clients n'ont pas d'accès Web le proxy risque de bloquer ce genre de mail ? non ?
Si l'envoi de mail n'est pas possible il y a peut-être une
autre solution pour me remonter les infos ?
Merci pour vos sugestions !
Vincent
PS: Je pars en congés donc je ne pourrai pas tester avant 2 semaines ! .
Bonjour,
J'ai le même pb avec un poste qui est en DMZ sans accès
web, ce genre de code nécessite impérativement l'accès au
port 80 et 25 autrement dit le web et smtp
Je n'ai pas trouvé de solution de mon côté non plus mais
je suis preneur ;o)
Amicalement
Thierry
-----Message d'origine-----
Ce qui est bizarre, c'est que cela fonctionne sur mon
poste et que je n'ai de paramétrage spécial dessus par
rapport aux postes utilisateurs. La seule différence est
que j'ai un compte admin.
Tout le monde utilise XP ou 2000 avec Outlook 2002 et un
serveur exchange. Je me demande donc pourquoi ?
J'ai même essyer de mettre une autre adresse que la
mienne
et cela fonctionne également !
En regardant les lignes du script
objEmail.Configuration.Fields.Item "http://schemas.microso
f
t.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item "http://schemas.microso
f
t.com/cdo/configuration/smtpserver") = "smarthost"
objEmail.Configuration.Fields.Item "http://schemas.microso
f
t.com/cdo/configuration/smtpserverport") = 25
Les postes clients n'ont pas d'accès Web le proxy risque
de bloquer ce genre de mail ? non ?
Si l'envoi de mail n'est pas possible il y a peut-être
une
autre solution pour me remonter les infos ?
Merci pour vos sugestions !
Vincent
PS: Je pars en congés donc je ne pourrai pas tester avant
2 semaines !
.
J'ai le même pb avec un poste qui est en DMZ sans accès web, ce genre de code nécessite impérativement l'accès au port 80 et 25 autrement dit le web et smtp
Je n'ai pas trouvé de solution de mon côté non plus mais je suis preneur ;o)
Amicalement Thierry
-----Message d'origine----- Ce qui est bizarre, c'est que cela fonctionne sur mon poste et que je n'ai de paramétrage spécial dessus par rapport aux postes utilisateurs. La seule différence est que j'ai un compte admin. Tout le monde utilise XP ou 2000 avec Outlook 2002 et un serveur exchange. Je me demande donc pourquoi ? J'ai même essyer de mettre une autre adresse que la mienne
et cela fonctionne également !
En regardant les lignes du script objEmail.Configuration.Fields.Item "http://schemas.microso f
t.com/cdo/configuration/sendusing") = 2 objEmail.Configuration.Fields.Item "http://schemas.microso f
t.com/cdo/configuration/smtpserver") = "smarthost" objEmail.Configuration.Fields.Item "http://schemas.microso f
t.com/cdo/configuration/smtpserverport") = 25
Les postes clients n'ont pas d'accès Web le proxy risque de bloquer ce genre de mail ? non ?
Si l'envoi de mail n'est pas possible il y a peut-être une
autre solution pour me remonter les infos ?
Merci pour vos sugestions !
Vincent
PS: Je pars en congés donc je ne pourrai pas tester avant 2 semaines ! .