Scripts | TEA & SEO

VBS Список софта на локальном компьютере

Posted on 20 октября 2010 | by Eddnet sysadmin | Leave a Comment

Этот VB скрипт, поможет вам получить список софта на локальном компьютере. . Обязательно запускайте данный скрипт с правами локального администратора. Запускается он очень просто, скопируйте сам скрипт в файле с расширением vbs, например script.vbs и запустите из командной строки

START /WAIT CScript <path>\<filename>.vbs //NoLogo

Как пример:

START /WAIT CScript C:\script.vps //NoLogo

Список будет сохранен на диске C: в файле Report.txt

strHost = "." 
 
Const HKLM = &H80000002 
Set objReg = GetObject("winmgmts://" & strHost & _ 
"/root/default:StdRegProv") 
Const strBaseKey = _ 
"Software\Microsoft\Windows\CurrentVersion\Uninstall\"  
objReg.EnumKey HKLM,strBaseKey,arrSubKeys 
       
For Each strSubKey In arrSubKeys 
intRet = objReg.GetStringValue(HKLM,strBaseKey & strSubKey,_ 
"DisplayName",strValue) 
If intRet <> 0 Then  
intRet = objReg.GetStringValue(HKLM,strBaseKey & strSubKey,_ 
"QuietDisplayName",strValue) 
End If 
If (strValue <> "") and (intRet = 0) Then 
set fs = CreateObject("Scripting.FileSystemObject") 
logfile = "C:\Report.txt" 
set handle = fs.OpenTextFile(logfile,8,true) 
 
softwareName = strValue 
handle.WriteLine softwareName 
handle.close 
End If 
Next

VBS Выгрузка пользователей и их Email-ов из AD

Posted on 20 октября 2010 | by Eddnet sysadmin | Leave a Comment

Данный скрипт создает Csv файл со списком пользователей вашего, а так же сохраняет адреса их электронной почты. Обязательно запускайте данный скрипт с правами администратора домена. Запускается он очень просто, скопируйте сам скрипт в файле с расширением vbs, например script.vbs и запустите из командной строки

START /WAIT CScript <path>\<filename>.vbs //NoLogo

Как пример:

START /WAIT CScript C:\script.vps //NoLogo

А вот собственно и сам скрипт, список вы получите в файле Roster_export.csv:

Continue reading →

Java Script для отправки текстовых файлов через email

Posted on 20 сентября 2010 | by Eddnet sysadmin | Leave a Comment

Если вам необходимо отправлять текстовые файлы, то можно воспользоваться данным скриптом:

if (WScript.Arguments.Length < 1)
{
WScript.Echo("Usage: email.js filetosend.txt");
WScript.Quit();
}
var FSO = WScript.CreateObject("Scripting.FileSystemObject");
var File = FSO.OpenTextFile(WScript.Arguments(0), 1);
var Email = WScript.CreateObject("CDO.Message");
Email.From = "[email protected]";
Email.To = "[email protected]";
Email.Subject = "Task results";
Email.Bodypart.Charset = "koi8-r";
Email.Textbody = File.ReadAll();
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2;
//SMTP почтового сервера
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.domain.com";
//SMTP Порт
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25;
// Имя пользователя для отправки почты
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "user";
// Пароль пользователя для отправки почты
Email.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "pwd";
Email.Configuration.Fields.Update();
Email.Send();
File.Close();

Если на почтовом сервер не требуется авторизация, просто закоментируйте строку логина и пароля.

Запускаем скрипт из командной строки: cscript.exe //nologo email.js путь_к_файлу_для_отправки