Frage : Ein Index, zum von Benutzerinformationen zurückzubringen

Hallo, schicken das
I morgens nach einem Index suchend, den ich den Benutzern maile und wenn sie an ihn es klicken, mir eine eMail mit dem folgenden Informationen (in übertreffen oder normale eMail jede Weise),

1. Benutzer zuerst und die letzten name
2. Fenster anmelden Name
3. verbundenen Drucker (Name und Weg)
4. Dateinamen der Aussicht PST und (Position) wenn possilble
5. Computermodell # (Beispiel. Dell D430)

Thank You

Antwort : Ein Index, zum von Benutzerinformationen zurückzubringen

Hallo, addiert ich die Computerbezeichnung, aber es ist schwierig, herauszufinden, wo die PST Akte gespeichert.  Es ist ein geverdunkelter binärer Wert im Register.

Insoweit die Rückstellungspositionen jedoch gehen wenn Sie hier schauen:
http://office.microsoft.com/en-us/outlook-help/using-the-microsoft-outlook-personal-folders-backup-tool-HA001087532.aspx

unter „, wo .pst Akten gespeicherte“ Überschrift sind, finden Sie die Rückstellungsposition für jedes Betriebssystem.

Respekt,

Rob.
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:
6:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:

objNetwork = CreateObject („WScript.Network“) einstellen
objADSysInfo = CreateObject („ADSystemInfo“) einstellen
objUser = GetObject einstellen („LDAP: /“ u. objADSysInfo.UserName)
'EMail-Variablen:
strServer = „mailhost.abc.com“
strTo = „[email protected]“
strFrom = „[email protected]“
strSubject = „Thema hier“
strBody = „Name: “ u. objUser.givenName u. „„u. objUser.sn u. VbCrLf u. _
	„Benutzername: “ u. objUser.samAccountName u. VbCrLf u. VbCrLf u. „Drucker: “

objPrinters = objNetwork.EnumPrinterConnections einstellen
Für intPrinter = 0 zu objPrinters.Count - 1 Schritt 2
	strBody = strBody u. VbCrLf u. objPrinters (intPrinter) u. vbTab u. objPrinters (intPrinter + 1)
Zunächst

strComputer = „.“
objWMIService = GetObject einstellen („winmgmts: {impersonationLevel=impersonate}! \ \“ u. strComputer u. „\ Wurzel \ cimv2“) 
colComputer = objWMIService.ExecQuery („auserwählter Hersteller, Modell von Win32_ComputerSystem“) einstellen
Für jedes objComputer im colComputer
	strManufacturer = „Hersteller: “ u. objComputer.Manufacturer
    strModel = „Modell: “ u. objComputer.Model
Zunächst
strBody = strBody u. VbCrLf u. VbCrLf u. „Computerbezeichnung: “ u. objNetwork.ComputerName u. VbCrLf u. „Computer-Modell: “ u. strModel

SendEmail strServer, strTo, strFrom, strSubject, strBody

MsgBox „eMail gesendet worden.“

VorSendEmail (strServer, strTo, strFrom, strSubject, strBody)
        Schwaches objMessage
        
        objMessage = CreateObject („CDO.Message“) einstellen
        objMessage.To = strTo
        objMessage.From = strFrom
        objMessage.Subject = strSubject
        objMessage.TextBody = strBody
 
        '==This Abschnitt zur Verfügung stellt die Konfigurationsinformationen für den Fern-smtp-Bediener.
        objMessage.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2
        'Name oder IP des Fern-smtp-Bedieners
        objMessage.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strServer
        'Bedienerhafen (gewöhnlich 25)
        objMessage.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25      
        objMessage.Configuration.Fields.Update
        '==End Fern-smtp-Bedienerkonfiguration section==
 
        objMessage.Send
        objMessage einstellen = nichts
Unterseeboot beenden
Weitere Lösungen  
 
programming4us programming4us