Conferencia práctica de WSH --- Conferencia 3 Creación de un correo electrónico
Autor:Eve Cole
Fecha de actualización:2009-05-30 19:53:45
Al crear buzones de correo, la situación se complica porque es posible que se utilicen diferentes servidores de correo electrónico. Algunos colocan la información del correo electrónico en archivos de texto, otros colocan la información en el registro y otros proporcionan interfaces ADSI, por lo que depende de la situación específica.
Para obtener información de correo electrónico del usuario en un archivo de texto, puede operar directamente el archivo de texto. El siguiente es un ejemplo de código para escribir un archivo de texto:
F
wxya
Establecer fs = WScript.CreateObject("Scripting.FileSystemObject")
Establecer fw = fs.CreateTextFile("c:users.dat")
fw.WriteLine "usuario1,[email protected],,,"
Para la información del usuario colocada en el registro, puede usar WSH para operar directamente el registro para completar la creación del buzón. Por ejemplo, la información del usuario de IMAIL se coloca en el registro.
En HKEY_localmacineSoftWareIPswitchdomain. El único problema de la contraseña inicial del buzón es que no conocemos su algoritmo de cifrado. Por lo tanto, primero solo podemos crear un buzón manualmente y luego usar una contraseña fija para ver cuál es después de cifrarla. Nuestro script también la usará al crear otros buzones. El problema es que debemos decirle a los usuarios que deben cambiar sus contraseñas en el futuro, de lo contrario no es seguro.
Exchange Server proporciona una interfaz ADSI, lo que facilita la creación de buzones de correo. Y su buzón de correo se puede sincronizar con los usuarios del dominio NT. Aquí hay un código de muestra:
objContainer = GetObject("LDAP://NOMBRESERVIDOR/o=NombreOrg/ou=NombreSitio/cn=Destinatarios")
objUser = objContainer.Create("Dirección-remota", "cn=CustRecip")
objUser.cn = "CustRecip"
objUser.Put "Dirección de destino", "SMTP:[email protected]"
objUser.Put "Codificación de Internet", 1310720objUser.UID = "CustRecip"
objUser.textEncodedORaddress = "c=US;a= ;p=DOIT;o=CDO;s=CustRecip;"
objUser.Mail = "[email protected]"
objUser.Put "otro buzón", "MS:Nombre de la organización/Nombre del sitio/Recip del cliente"
objUser.Put "Sensibilidad de replicación", 20
objUser.Put "Destinatario MAPI", Falso
objUser.SetInfo
WScript.Echo objUser.cn
Para i = 1ToobjUser.PropertyCount
Establecer vProp = objUser.Next
WScript.Echo vProp.Nombre
Próximo
Nota: Como ahora no tengo Exchange Server para experimentos, el código anterior no se ha probado. Si tiene alguna pregunta, vaya a su fuente original para obtener soluciones.
Este script, con ligeras modificaciones, también se puede utilizar en ASP.