[ Обновленные темы · Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: Andrey_A, ХарВик, chip642  
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » System...vbs - скрипты выводящие информацию о системе (Система)
System...vbs - скрипты выводящие информацию о системе
Andrey_AДата: Понедельник, 02.04.2012, 17:06 | Сообщение № 16
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Получение списка всех имеющихся дисков

Доступно только для пользователей


 
Andrey_AДата: Понедельник, 02.04.2012, 17:06 | Сообщение № 17
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Получение списка всех подкаталогов заданного каталога

Доступно только для пользователей


 
Andrey_AДата: Понедельник, 02.04.2012, 17:07 | Сообщение № 18
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Вывод информации о BIOS

Code
'*******************************************************************
' Имя: BIOSInfo.vbs
' Язык: VBScript
' Описание: Вывод информации о BIOS
' http://tc-image.3dn.ru/forum/3-319-1035-16-1333372025
'*******************************************************************
Option Explicit

' Объявляем переменные
Dim strComputer       ' Имя компьютера
Dim strNamespace      ' Имя пространства имен
Dim strClass          ' Имя класса
Dim objClass          ' Объект SWbemObject (класс WMI)
Dim colInstances      ' Коллекция экземпляров класса WMI
Dim objBIOS           ' Элемент коллекции
Dim strResult         ' Результирующая строка

'********************** Начало *************************************
' Присваиваем начальные значения переменным
strComputer = "."
strNamespace = "Root\CIMV2"
strClass = "Win32_BIOS"
strResult = "Информация о BIOS :" & VbCrLf

' Получаем указатель на класс WMI
Set objClass = GetObject("winmgmts:\\" & strComputer & _
                          "\" & strNamespace & ":" & strClass)
' Создаем коллекцию экземпляров класса Win32_BIOS
Set colInstances = objClass.Instances_

' Перебираем элементы коллекции
For Each objBIOS in colInstances
   strResult = strResult & "Name: " & objBIOS.Name & VbCrLf
   strResult = strResult & "Manufacturer: " & objBIOS.Manufacturer & VbCrLf
   strResult = strResult & "Caption: " & objBIOS.Caption & VbCrLf
   strResult = strResult & "Description: " & objBIOS.Description & VbCrLf
   strResult = strResult & "Build Number: " & objBIOS.BuildNumber & VbCrLf
   strResult = strResult & "Current Language: " & objBIOS.CurrentLanguage & VbCrLf
   strResult = strResult & "Installable Languages: " & objBIOS.InstallableLanguages & VbCrLf
   strResult = strResult & "Primary BIOS: " & objBIOS.PrimaryBIOS & VbCrLf
   strResult = strResult & "Release Date: " & objBIOS.ReleaseDate & VbCrLf
   strResult = strResult & "Serial Number: " & objBIOS.SerialNumber & VbCrLf
   strResult = strResult & "SMBIOS Version: " & objBIOS.SMBIOSBIOSVersion & VbCrLf
   strResult = strResult & "SMBIOS Major Version: " & objBIOS.SMBIOSMajorVersion & VbCrLf
   strResult = strResult & "SMBIOS Minor Version: " & objBIOS.SMBIOSMinorVersion & VbCrLf
   strResult = strResult & "SMBIOS Present: " & objBIOS.SMBIOSPresent & VbCrLf
   strResult = strResult & "Status: " & objBIOS.Status & VbCrLf
   strResult = strResult & "Version: " & objBIOS.Version & VbCrLf
Next

Wscript.Echo strResult 'Выводим строку на экран
'************************* Конец ***********************************



 
Andrey_AДата: Вторник, 03.04.2012, 15:27 | Сообщение № 19
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Выводит таблицу ASCII-кодов

Code
' ASCII.vbs
'----------------------------------------------------------------
' Выводит таблицу ASCII-кодов
' http://tc-image.3dn.ru/forum/3-319-1055-16-1333452451
Option Explicit
'--------------------------------------------------------------
ASCII 32,129
ASCII 130,200
ASCII 201,255

Sub ASCII(N,M)
   Dim i, a
   a = ""
   For i = N to M
      a = a & CStr(i) & " - " & chr(34) & chr(i) & Chr(34) & "; "
   Next
   MsgBox  a ,,"Вывод таблицы ASCII"
End Sub
'-------------------------------------------------------------



 
Andrey_AДата: Воскресенье, 24.06.2012, 01:49 | Сообщение № 20
Генералиссимус

На сайте с: 26.01.2012
Город: Сочи, Хоста
Сообщений: 7163
Награды: 139
Репутация: 124
Аверин Андрей
Создание файлов с именами запущенных процессов и информацией о них

Доступно только для пользователей


 
Форум » • Total Commander • » ТЕСТИРОВАНИЕ СКРИПТОВ для TC » System...vbs - скрипты выводящие информацию о системе (Система)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Интеллектуальные права и отказ от ответственности