Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBScript/JScript/WSH/WMI/HTA
Войти
Регистрация
Восстановить пароль
Показать сообщение отдельно
greg zakharov
Покинул форум
1958 / 830 / 240
Регистрация: 07.05.2015
Сообщений: 1,665
10.11.2015, 10:16 0

Полезные VBS скрипты и программы по работе с ними

10.11.2015, 10:16. Просмотров 92942. Ответов 32
Метки (Все метки)

Ответ

Uptime (без использования WMI):
Javascript
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
(function() {
  var enc, arr, i, s = '', std,
      loc = {
        419 : ['019', '1251'],
        409 : ['009', '1252']
      };
  
  Array.prototype.to_s = function() {
    var s = '';
    
    for (var i = 0; i < this.length; i++) {
      s += i === 0 ? parseInt(this[i]) + '.'
        : (parseInt(this[i]) < 10 ? '0' + parseInt(this[i]) : parseInt(this[i])) + ':';
    }
    return s.replace(/\:$/, '');
  };
  
  with (new ActiveXObject('WScript.Shell')) {
    enc = Number(RegRead('HKCU\\Control Panel\\International\\Locale'));
    arr = RegRead(
      'HKLM\\SOFTWARE\\Microsoft\\Windows NT\\CurrentVersion\\' +
      'PerfLib\\' + loc[enc][0] + '\\Counter'
    ).toArray();
    
    for (i = 0; i < arr.length; i++) {
      if (parseInt(arr[i]) === 2 || parseInt(arr[i]) === 674) {
        s += '\\' + arr[i + 1];
      }
    }
    
    std = Exec('cmd /c chcp');
    i = std.StdOut.ReadAll().match(/\d+/);
    std = Exec('cmd /q /k echo off');
    std.StdIn.WriteLine('chcp ' + loc[enc][1]);
    std.StdIn.WriteLine('typeperf "' + s + '" -sc 1');
    std.StdIn.WriteLine('chcp ' + i + '&exit');
    s = parseInt(std.StdOut.ReadAll().match(/\d+\.\d+/g)[2]);
  };
  WScript.echo([s / 86400, s / 3600 % 24, s % 3600 / 60, s % 60].to_s());
}());
Генерация случайного файла (функция генерирует случайное имя со случайным расширением):
Javascript
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
(function(len) {
  if (isNaN(len) || (len > 32 || len < 1)) {
    WScript.echo('Should be a number ranging from 1 to 32.');
    WScript.Quit(1);
  }
  
  var getRandom = function(min, max) {
    return Math.floor(Math.random() * (max - min + 1)) + min;
  };
  
  var std, arr, i, ext = [];
  with (new ActiveXObject('WScript.Shell')) {
    std = Exec('cmd /q /k echo off');
    std.StdIn.WriteLine('assoc & exit');
    arr = std.StdOut.ReadAll().split('\n');
  }
  
  for (i = 0; i < arr.length; i++) {
    if (!arr[i].match(/.\d+\=/) && arr[i].match(/=\w+/)) {
      ext.push(arr[i].split('=')[0]);
    }
  }
  
  with (new ActiveXObject('Scriptlet.TypeLib')) {
    WScript.echo(GUID.substring(1, 37).replace(/-/g, '')
      .toLowerCase().slice(0, len) + ext[getRandom(0, ext.length - 1)]
    );
  }
}(
  WScript.Arguments.length !== 1
  ? WScript.Quit(1)
  : WScript.Arguments.Unnamed(0)
));


Вернуться к обсуждению:
Полезные VBS скрипты и программы по работе с ними
2
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
10.11.2015, 10:16
Готовые ответы и решения:

Как вызвать скрипты .vbs из .wsf?
Добрый день! Пытаюсь освоить WSH с целью автоматического создания...

VBS, метод POST, заполнение полей и иже с ними
С помощью скрипта лезу на сайт. Далее нужно заполнить поля формы. Тут ступор...

Добавление программы в автозагрузку через скрипт vbs
Доброго врмени суток. Никак не могу найти скрипт vbs добавления в автозагрузку....

Vbs -скрытый запуск программы с параметрами и её отслеживание
Требуется скрыто запускать программу с параметром, если она завершится, скрыто...

Создание бинарного файла из vbs / Как создать exe файл из vbs
Имеется файл с расширением exe. Нужно как-нибудь занести массив байт в скрипт,...

32
Другие темы раздела
VBScript/JScript Кто нибудь работал с библиотекой ChilkatFTP? http://www.cyberforum.ru/vbscript-wsh/thread668991.html
Использую данную библиотеку для получения файлов из файл-сервера FTP. Подключаюсь 1 раз, но когда работаю с директориями (меняю каталог, возвращаюсь в корневой каталог) создаются все новые и новые...
VBScript/JScript Как в VBS скрипте создать задание в планировщике задач Как в VBS скрипте создать задание в планировщике задач, которое бы запускало файл каждые несколько минут? http://www.cyberforum.ru/vbscript-wsh/thread665572.html
VBScript/JScript Запуск скрипта из контекстного меню
В общем ситуация такая: решил написать скрипт, чтобы который выполнялся из контекстного меню. Пусть будет: msgBox "Hello World" Cоздал разделыы: "HKEY_CLASSES_ROOT\Folder\shell\myscr", ...
VBScript/JScript Проверить наличие папки с условием
ззззздарова! пытаюсь слепить код который проверяет наличие папки , вот че я нагородил, при проверке то вообще молчит то закидывает ошибками. код достаточно мудреный: 1: сначала он должен определить...
VBScript/JScript VBS и интернет http://www.cyberforum.ru/vbscript-wsh/thread659937.html
зззззздарова. нужен vbs код который запустит указанный в коде файл при коннекте с инетом.
VBScript/JScript Работа с реестром ззззздарова! буду благодарен тому кто подкинет vbs код, который создаст раздел в реестре по адресу HKLM\SOFTWARE. с возможностью создания ветки разделов, пр(HKLM\SOFTWARE\Новый раздел #1\Новый раздел... подробнее
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru