OVH Cloud OVH Cloud

Adresse SMTP

2 réponses
Avatar
Pat
Bonjour à tous !!

Je dois modifier l'adresse SMTP dans les propriétés de mon serveur IIS 6.0
via script vbs, je me sui inspirer du script proposer par MS mais ca ne
fonctionne pas.
Y a t-il des pré requis pour que le script pour qu'il fonctionne ?


**************************************

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}\\" _
& strComputer & "\root\microsoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")

For Each objItem in colItems
objItem.EnableReverseDnsLookup = False
objItem.HopCount = 10
objItem.MasqueradeDomain = "fabrikam.com"
objItem.SmartHost = "smtp-server.fabrikam.com"
objItem.SmartHostType = 1
objItem.Put_
Next


*********************************************

merci d'avance !!!

2 réponses

Avatar
jbongran
Pat wrote:
Bonjour à tous !!

Je dois modifier l'adresse SMTP dans les propriétés de mon serveur
IIS 6.0 via script vbs, je me sui inspirer du script proposer par MS
mais ca ne fonctionne pas.
Y a t-il des pré requis pour que le script pour qu'il fonctionne ?


**************************************

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}" _
& strComputer & "rootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")

For Each objItem in colItems
objItem.EnableReverseDnsLookup = False
objItem.HopCount = 10
objItem.MasqueradeDomain = "fabrikam.com"
objItem.SmartHost = "smtp-server.fabrikam.com"
objItem.SmartHostType = 1
objItem.Put_
Next


*********************************************

merci d'avance !!!


Quel sont le souci, message d'erreur, symptôme ?

Avatar
Pat
Il ne se passe rien, aucun paramètre n'est modifié. Et pourtant il n'y pas
d'erreur d'éxecution. C'est bizarre !


Pat wrote:
Bonjour à tous !!

Je dois modifier l'adresse SMTP dans les propriétés de mon serveur
IIS 6.0 via script vbs, je me sui inspirer du script proposer par MS
mais ca ne fonctionne pas.
Y a t-il des pré requis pour que le script pour qu'il fonctionne ?


**************************************

strComputer = "."
Set objWMIService = GetObject _
("winmgmts:{authenticationLevel=pktPrivacy}" _
& strComputer & "rootmicrosoftiisv2")

Set colItems = objWMIService.ExecQuery _
("Select * from IIsSmtpServiceSetting")

For Each objItem in colItems
objItem.EnableReverseDnsLookup = False
objItem.HopCount = 10
objItem.MasqueradeDomain = "fabrikam.com"
objItem.SmartHost = "smtp-server.fabrikam.com"
objItem.SmartHostType = 1
objItem.Put_
Next


*********************************************

merci d'avance !!!


Quel sont le souci, message d'erreur, symptôme ?