Вопрос : Сценарий для того чтобы возвратить данные по потребителя

Здравствулте!,
I am ища сценарий который я посылаю по электронной почте к потребителям и когда они щелкнут дальше им, котор он пошлет мной электронная почта с следующий потребителем

1. информации (в первенствуйте или обыкновенное толком электронная почта любая дорога) сперва и последние окна name
2. Logon архив внешнего вида PST
4. принтеров Name
3. (имя и курс) - назовите и (положение) если модель компьютера possilble
5. #, то (пример.

Thank You
Dell D430) class=

Ответ : Сценарий для того чтобы возвратить данные по потребителя

Hi, я добавлял имя компьютера, но трудно найти вне где архив PST хранится.  Будет obfuscated бинарным значением в регистратуре.

Насколько положения невыполнения обязательства идут, однако, если вы смотрите здесь:, то
http://office.microsoft.com/en-us/outlook-help/using-the-microsoft-outlook-personal-folders-backup-tool-HA001087532.aspx

под «где архивы .pst будут, котор хранят» рубрикой, вы находите положение невыполнения обязательства для каждой операционной системы.

Отношения,

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:

Установите objNetwork = CreateObject («WScript.Network») Установите objADSysInfo = CreateObject («ADSystemInfo») Установите objUser = GetObject («LDAP: /» & objADSysInfo.UserName) 'Перемеююые электронная почта: strServer = «mailhost.abc.com» strTo = «[email protected]» strFrom = «[email protected]» strSubject = «вопрос здесь» strBody = «имя: » & objUser.givenName & ««& objUser.sn & VbCrLf & _ «Имя Logon: » & objUser.samAccountName & VbCrLf & VbCrLf & «принтеры: » Установите objPrinters = objNetwork.EnumPrinterConnections Для intPrinter = 0 к objPrinters.Count - 1 разделу 2 strBody = strBody & VbCrLf & objPrinters (intPrinter) & vbTab & objPrinters (intPrinter + 1) Затем strComputer = «.» Установите objWMIService = GetObject («winmgmts: {impersonationLevel=impersonate}! \ \» & strComputer & «\ корень \ cimv2») Установите colComputer = objWMIService.ExecQuery («отборное изготовление, модель от Win32_ComputerSystem») Для каждого objComputer в colComputer strManufacturer = «изготовление: » & objComputer.Manufacturer strModel = «модель: » & objComputer.Model Затем strBody = strBody & VbCrLf & VbCrLf & «имена компьютера: » & objNetwork.ComputerName & VbCrLf & «модель компьютера: » & strModel strServer SendEmail, strTo, strFrom, strSubject, strBody Было послано MsgBox «электронная почта.» Sub SendEmail (strServer, strTo, strFrom, strSubject, strBody) Тусклое objMessage Установите objMessage = CreateObject («CDO.Message») objMessage.To = strTo objMessage.From = strFrom objMessage.Subject = strSubject objMessage.TextBody = strBody 'раздел ==This обеспечивает данные по конфигурации для дистанционного сервера SMTP. objMessage.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/sendusing ") = 2 'Имя или IP дистанционного сервера SMTP objMessage.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserver ") = strServer 'Порт сервера (типично 25) objMessage.Configuration.Fields.Item («http://schemas.microsoft.com/cdo/configuration/smtpserverport ") = 25 objMessage.Configuration.Fields.Update 'section== конфигурации сервера SMTP ==End дистанционное objMessage.Send Установите objMessage = ничего Закончите подводную лодку