Cuestión : Una escritura para devolver la información de usuario

Hola, el
I que busca una escritura que envíe por correo electrónico a los usuarios y cuando la chascan encendido él me enviarán un email con el usuario siguiente del

1. de la información (en sobresalir o email llano cualquier manera) primero y las ventanas pasadas del name
2. abren una sesión nombre de fichero conectado/>3. de la perspectiva PST del
4. de las impresoras de Name
5. # (ejemplo.

Thank You
 de Dell D430) class= del

Respuesta : Una escritura para devolver la información de usuario

Hola, he agregado el nombre de computadora, pero es difícil descubrir dónde se almacena el archivo de PST.  Es un valor binario ofuscado en el registro.

Por lo que van las localizaciones de defecto, sin embargo, si usted mira aquí:
http://office.microsoft.com/en-us/outlook-help/using-the-microsoft-outlook-personal-folders-backup-tool-HA001087532.aspx

debajo de “donde están” título los archivos de .pst almacenado, usted encontrará la localización de defecto para cada sistema operativo.

Respetos,

Robo.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

Fijar el objNetwork = CreateObject (“WScript.Network”)
Fijar el objADSysInfo = CreateObject (“ADSystemInfo”)
Fijar el objUser = GetObject (“LDAP: /” y objADSysInfo.UserName)
'Variables del email:
strServer = “mailhost.abc.com”
strTo = “[email protected]”
strFrom = “[email protected]”
strSubject = “tema aquí”
strBody = “nombre: ” y objUser.givenName y ““y objUser.sn y VbCrLf y _
	“Nombre de conexión: ” y objUser.samAccountName y VbCrLf y VbCrLf y “impresoras: ”

Fijar los objPrinters = objNetwork.EnumPrinterConnections
Para el intPrinter = 0 a objPrinters.Count - 1 paso 2
	strBody = strBody y VbCrLf y objPrinters (intPrinter) y vbTab y objPrinters (intPrinter + 1)
Después

strComputer = “.”
Fijar el objWMIService = GetObject (“winmgmts: ¡{impersonationLevel=impersonate}! \ \” y strComputer y “\ raíz \ cimv2”) 
Fijar el colComputer = objWMIService.ExecQuery (“fabricante selecto, el modelo de Win32_ComputerSystem”)
Para cada objComputer en colComputer
	strManufacturer = “fabricante: ” y objComputer.Manufacturer
    strModel = “modelo: ” y objComputer.Model
Después
strBody = strBody y VbCrLf y VbCrLf y “nombre de computadora: ” y objNetwork.ComputerName y VbCrLf y “modelo de ordenador: ” y strModel

strServer de SendEmail, strTo, strFrom, strSubject, strBody

Se ha enviado MsgBox “email.”

SendEmail secundario (strServer, strTo, strFrom, strSubject, strBody)
        objMessage dévil
        
        Fijar el objMessage = CreateObject (“CDO.Message”)
        objMessage.To = strTo
        objMessage.From = strFrom
        objMessage.Subject = strSubject
        objMessage.TextBody = strBody
 
        la 'sección de los ==This proporciona la información de configuración para el servidor alejado del smtp.
        objMessage.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
        'Nombre o IP del servidor alejado del smtp
        objMessage.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strServer
        'Puerto de servidor (típicamente 25)
        objMessage.Configuration.Fields.Item (“http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25      
        objMessage.Configuration.Fields.Update
        'section== alejado de la configuración de servidor del smtp del ==End
 
        objMessage.Send
        Fijar el objMessage = nada
Terminar el submarino
Otras soluciones  
 
programming4us programming4us