Vraag : Een manuscript om gebruikersinformatie terug te keren

Hello,
I am die een manuscript zal zoeken dat ik aan gebruikers met de elektronische post zal versturen en wanneer zij op het klikken het me een e-mail met de volgende informatie (in blink of duidelijke e-mail één van beide manier uit)

1 verzenden. Gebruiker eerst en Laatste name
2. vensters Opening van een sessie Name
3. aangesloten Printers (naam en weg)
4. vooruitzichten Pst- dossier - noem en (plaats) als possilble
5. computer model # (voorbeeld. Dell D430)

Thank You

Antwoord : Een manuscript om gebruikersinformatie terug te keren

Hallo, heb ik de computernaam toegevoegd, maar het is moeilijk om te weten te komen waar het Pst- dossier wordt opgeslagen.  Het is een verduisterde binaire waarde in de registratie.

Voor zover de standaardplaatsen gaan, echter, als u hier kijkt:
http://office.microsoft.com/en-us/outlook-help/using-the-microsoft-outlook-personal-folders-backup-tool-HA001087532.aspx

onder „waar de .pst dossiers opgeslagen“ rubriek zijn, zult u de standaardplaats voor elk Werkend Systeem vinden.

Achting,

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

Reeks objNetwork = CreateObject („WScript.Network“)
Vastgestelde objADSysInfo = CreateObject („ADSystemInfo“)
Reeks objUser = GetObject („LDAP: /“ & objADSysInfo.UserName)
'E-mailvariabelen:
strServer = „mailhost.abc.com“
strTo = „[email protected]“
strFrom = „[email protected]“
strSubject = „Onderwerp hier“
strBody = „Naam: “ & objUser.givenName & „„& objUser.sn & VbCrLf & _
	De „naam van de opening van een sessie: “ & objUser.samAccountName & VbCrLf & VbCrLf & „Printers: “

Vastgestelde objPrinters = objNetwork.EnumPrinterConnections
Voor intPrinter = 0 aan objPrinters.Count - 1 Stap 2
	strBody = strBody & VbCrLf & objPrinters (intPrinter) & vbTab & objPrinters (intPrinter + 1)
Daarna

strComputer = „.“
Vastgestelde objWMIService = GetObject („winmgmts: {impersonationLevel=impersonate}! \ \“ & strComputer & „\ wortel \ cimv2“) 
Reeks colComputer = objWMIService.ExecQuery („Uitgezochte Fabrikant, Model van Win32_ComputerSystem“)
Voor Elke objComputer in colComputer
	strManufacturer = „Fabrikant: “ & objComputer.Manufacturer
    strModel = „Model: “ & objComputer.Model
Daarna
strBody = strBody & VbCrLf & Naam van VbCrLf & de „van de Computer: “ & van objNetwork.ComputerName & van VbCrLf & „van de Computer Model: “ & strModel

SendEmail strServer, strBody strTo, strFrom, strSubject,

MsgBox „E-mail is verzonden.“

Sub SendEmail (strServer, strBody strTo, strFrom, strSubject,)
        Schemerige objMessage
        
        Vastgestelde objMessage = CreateObject („CDO.Message“)
        objMessage.To = strTo
        objMessage.From = strFrom
        objMessage.Subject = strSubject
        objMessage.TextBody = strBody
 
        'de ==Thissectie verstrekt de configuratieinformatie voor de verre server SMTP.
        objMessage.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/sendusing“) = 2
        'Naam of IP van Verre Server SMTP
        objMessage.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/smtpserver“) = strServer
        De 'haven van de server (typisch 25)
        objMessage.Configuration.Fields.Item („http://schemas.microsoft.com/cdo/configuration/smtpserverport“) = 25      
        objMessage.Configuration.Fields.Update
        '==End verre SMTP serverconfiguratie section==
 
        objMessage.Send
        Vastgestelde objMessage = niets
Sub van het eind
Andere oplossingen  
 
programming4us programming4us