rosalin
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Ребята подскажите скрипт
что бы при запуске которого пользователь мог ввести текст
допустим какой нить проблемы и от кого
нажимал ОК и и текст у ходил админу на почту в локальной сети...
Код:Set objEmail = CreateObject("CDO.Message")
objEmail.Bodypart.CharSet = "windows-1251"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
'objEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "userpwd"
objEmail.From = "user@fabrikam.com"
objEmail.To = "adm@fabrikam.com"
objEmail.Subject = "Месага от админа"
objEmail.Textbody = "Текст по русски"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "192.168.0.6"
objEmail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objEmail.Configuration.Fields.Update
objEmail.Send
Добавлено:
а лучше даже от кого автоматом бралось из реестра
на подобее этого
Код:'Имя и фамилия пользователя домена в параметр реестра
'Иногда возникает потребность записать всем пользователям
'в определённый ключ реестра фамилию и имя, взятые из AD.
'Такое решение позволит настроить некоторое ПО, которое
'может использовать в работе по умолчанию логин пользователя,
'но такой логин будет менее информативен, чем имя и фамилия,
'которые, как правило, указаны в учетной записи пользователя в домене.
strComputer = "."
const HKEY_LOCAL_MACHINE = &H80000002
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colItems1 = objWMIService.ExecQuery("Select * from Win32_NetworkLoginProfile where FullName is not null",,48)
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv")
strKeyPath = "SYSTEM\CurrentControlSet\Services\lanmanserver\parameters"
strValueName = "srvcomment"
For Each objItem in colItems1
strValue = objItem.FullName
Next
oReg.SetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue |
