[Цитировать]

    avalat
  • 222
  • Стаж: 9 лет
  • Сообщений: 468
  • Репутация:127

    [+] [-]
Сделано в основном для сборок 2К10 для быстрого определения основных параметров незнакомого компьютера -
материнка,процессор,память,диски и установленные на них ОС
---------------------
Выход Ctrl+Alt+I или в трее
dy

скрипт

ENVI^ forcelocal=1
ENVI &nc=1
FIND --pid &pd,
MSTR &I1=<1>%&pd%
MSTR &T1=<2>%&pd%
MSTR &nc=<3>%&pd%
SET &ll=-100
WAIT 250
SCRN ScrW,ScrH
CALC l=%ScrW%-300
ENVI zp=,
ww
_SUB ww,L-100T-100W1H1,,
call win
_end
_SUB win,L%l%T20W265H700,InfoPE,,shell32.dll#221,#10  //:0x7C7C7B,
ENVI @win.bkcolor = 0x7C7C7B
MENU ,Hide,ENVI @win.Visible=0
MENU ,Show,ENVI @win.Visible=1
MENU ,Exit,exit 2
ENVI @this.FONT=8:Tahoma
FIND MEM=?,FullR
REGI $HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\CentralProcessor\0\ProcessorNameString,pr
REGI $HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardManufacturer,mp
REGI $HKEY_LOCAL_MACHINE\HARDWARE\DESCRIPTION\System\BIOS\BaseBoardProduct,mpp
LABE -left ,L10T10W280H12,%mp% %mpp%,,0xFFFFFF#0x7C7C7B,7
LABE -left ,L10T27W280H12,%pr%,,0xFFFFFF#0x7C7C7B,7
PBAR cpu,L10T44W215H15,0
TIME ,500, CALL proc
CALL proc
LABE -left L10,L10T70W100H15,RAM : %FullR% Mb,,0xFFFFFF#0x7C7C7B,
LABE -left L20,L150T70W100H21,,*,0xFFFFFF#0x7C7C7B,
LABE -left L11,L10T90W220H15,- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - ,,0x33FFFF#0x7C7C7B,
envi n=1
FDRV *ab DrvAll= *:
FORX * %DrvAll%,CurDsk,
{* FORM V= %CurDsk%
SET AllDrv= %AllDrv% %CurDsk%
TEAM FIND %CurDsk%\=?,f1|IFEX %CurDsk%\=?,f2
CALC #s1=((%f1%-%f2%)*100)/%f1%
TEAM CALC f1=%f1%/1M|CALC f2=%f2%/1M|ENVI g1=Mb|ENVI g2=Mb
IFEX $%f1%>1024,TEAM CALC f1=%f1%/1024|ENVI g1=Gb
IFEX $%f2%>1024,TEAM CALC f2=%f2%/1024|ENVI g2=Gb
IFEX $%f1%>1024,TEAM CALC f1=%f1%/1024|ENVI g1=Tb
IFEX $%f2%>1024,TEAM CALC f2=%f2%/1024|ENVI g2=Tb
TEAM MSTR f1=0,4,%f1%|MSTR f2=0,4,%f2%
TEAM CALC m1=%n%*35+70|CALC m2=%n%*35+85
TEAM RSTR &&te=1,%f1%|FIND $%&te%=.,LSTR f1=3,%f1%
TEAM RSTR &&te=1,%f2%|FIND $%&te%=.,LSTR f2=3,%f2%
TEAM ENVI tx= LABE -left L%n%,L10T%m1%W108H15, %CurDsk% %f1% %g1%,,0xFFFFFF#0x7C7C7B,|%tx%
TEAM ENVI tx= LABE -right L%n%,L108T%m1%W108H15,free %f2% %g2% ,,0xFFFFFF#0x7C7C7B,|%tx%
TEAM ENVI p=PBAR Pbar%n%,L10T%m2%W215H8,%s1%|%p%
IFEX $%s1%>90,ENVI @Pbar%n%.percent=%s1%::0x0F1CEA!ENVI @Pbar%n%.percent=%s1%::0x00ff00
IFEX $%f1%=0,ENVI @Pbar%n%.percent=100::0x0ffffd
CALC m5=%m2%-4
FORM td,t=%CurDsk%
ENVI typ=%td% %t%
FIND $%td%=DRIVE_FIXED,IMAG im%n%,L236T%m5%W15H15,#3
FIND $%td%=DRIVE_REMOVABLE,IMAG im%n%,L236T%m5%W15H15,#8
FIND $%td%=DRIVE_USBFLASH,IMAG im%n%,L236T%m5%W15H15,#7
FIND $%td%=DRIVE_USBDISK,IMAG im%n%,L236T%m5%W15H15,#8
IFEX $%t%<=0,IMAG im%n%,L236T%m5%W15H15,#10
FIND $%td%=DRIVE_CDROM,IMAG im%n%,L236T%m5%W15H15,#11
FIND $%td%=DRIVE_RAMDISK,IMAG im%n%,L236T%m5%W15H15,#10
CALC n=%n%+1
}
ver
CALC wi=%m2%+25
ENVI @win.pos=:::%wi%
HKEY Ctrl+Alt+I,TEAM KILL @ww|KILL \
_END
_SUB proc
FIND --pid &pd,
MSTR &I2=<1>%&pd%
MSTR &T2=<2>%&pd%
CALC #&I21=%&I2% - %&I1%
CALC #&T21=%&T2% - %&T1%
CALC &P= 100 - 100 * %&I21% / %&T21% / %&nc% ##1
FIND $%P%=-0.0, SET P=0
IFEX $%P%<0, EXIT
IFEX $%ll%=%P%, EXIT
SET ll=%P%
ENVI @cpu=%&P%;%&P%%%
ENVI @cpu.percent=%&P%::0xff
ENVI &I1=%&I2%
ENVI &T1=%&T2%
IFEX MEMU=?,&MemU
IFEX MEMA=?,&MemA
CALC &vu= 100 - 100 * %MemU% / %MemA% ##1
ENVI @L20=busy: %&vu%%
_END
_SUB ver
CALC m4=%n%*35+65
LABE -left L11,L10T%m4%W220H15,- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -  ,,0x33FFFF#0x7C7C7B,
CALC m=%n%*35+70
CALC m2=%m%
envi q=1
forx \Windows\System32\cmd.exe,cm,0,
{ENVI ?v=FVER,%cm%
lstr r=2,%cm%
LSTR sp=3,%v%
LSTR sp2=6,%v%
mstr -delims:. c=<3>%v%
FIND $%sp%=5.0,ENVI vv=Windows XP
FIND $%sp%=6.0,ENVI vv=Vista
FIND $%sp%=6.1,ENVI vv=Windows 7
FIND $%sp%=6.2,ENVI vv=Windows 8
FIND $%sp%=6.3,ENVI vv=Windows 8.1
FIND $%sp2%=10.0.1,ENVI vv=Windows 10
FIND $%sp2%=10.0.2,ENVI vv=Windows 11
Envi ?bit=PEBIT,%r%\Windows\System32
CALC m2=%q%*20+%m%
envi lb=labe -left lab%q%,L10T%m2%W210H20,%r% %vv% %c%   %bit%,,0xFFFFFF#0x7C7C7B,
%lb%
CALC q=%q%+1
}
_END


Последний раз редактировалось: avalat (2022-11-09 10:49), всего редактировалось 4 раз(а)

[Цитировать]

    TX2000
  • 13975
  • Стаж: 8 лет 6 месяцев
  • Сообщений: 132
  • Репутация:21

    [+] [-]
Превосходно!
Спасибо аvalat! aa
.
(Значок диска «U» не отображается, возможно, потому, что это виртуальный диск, созданный с помощью imdisk, и он не соответствует ни одному DRIVE_TYPE, указанному в сценарии)
Просьба: не могли бы вы добавить условие, если загружен софтпак, то информация будет отображаться как в Bginfo:

[Цитировать]

    avalat
  • 222
  • Стаж: 9 лет
  • Сообщений: 468
  • Репутация:127

    [+] [-]
TX2000, aa
Вставь после этих строк в скрипте
FORM td,t=%CurDsk%
ENVI typ=%td% %t%
MESS %CurDsk% - %td% %t%
Посмотри какой тип у <U>
Всё поймёшь...
----------------
Что такое SoftPack: Redux ??
Это папка с программами или что ?
-----------------
(добавлено)
Или скинь мне эту BGInfo

[Цитировать]

    TX2000
  • 13975
  • Стаж: 8 лет 6 месяцев
  • Сообщений: 132
  • Репутация:21

    [+] [-]
Да! Диск "U" был обнаружен как "REMOVABLE 0".
Добавил соответствующую строку. Задача решена!
Большое спасибо!
.
Отправлен скрипт Bginfo, настроенный conty9.
aa


Последний раз редактировалось: TX2000 (2022-10-18 08:36), всего редактировалось 1 раз

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 11 месяцев
  • Сообщений: 918
  • Репутация:55

    [+] [-]
  • Откуда: Грузия, город Рустави
Всех приветствую. aa
Скачал на свою голову BgInfo v4.32
Как сделать откат, убрать с рабочего стола эту фигню, после перезагрузки остается, в процессах не нашел:

[Цитировать]

    avalat
  • 222
  • Стаж: 9 лет
  • Сообщений: 468
  • Репутация:127

    [+] [-]
TX2000, В папку с программами, которая монтируется на диск Y, надо положить файлы disk.nam и disk.ver
В них соответственно вписать имя (Redux) и версию
Скрипт отправил в личные сообщения
Добавлено через 29 секунд:
rezorustavi, замени обои ab тут

[Цитировать]

    rezorustavi
  • 2337
  • Стаж: 8 лет 11 месяцев
  • Сообщений: 918
  • Репутация:55

    [+] [-]
  • Откуда: Грузия, город Рустави
97577замени обои тут
aa Большое спасибо! az У меня слайд-шоу был включен, около 400 обоев, менялись по одной каждые 10 минут, я не обратил внимание, что это приклеелось к фото рабочего стола и слайд-шоу отключила эта зараза... Не поняв в чем дело, ковырялся диспетчере задач, в автозагрузке, уже думал в какой ветке реестра искать.... ag

[Цитировать]

    TX2000
  • 13975
  • Стаж: 8 лет 6 месяцев
  • Сообщений: 132
  • Репутация:21

    [+] [-]
Большое спасибо!
Теперь все ясно! (я забыл про disk.name)
aa az

[Цитировать]

    avalat
  • 222
  • Стаж: 9 лет
  • Сообщений: 468
  • Репутация:127

    [+] [-]
TX2000 добавил определение BIOS/UEFI при загрузке
InfoPE_TX2000.zip
В архиве скрипт и exe-шник. Иконки мои - таких стильных, как у него, не нашёл.

[Цитировать]

    dimo70
  • 17296
  • Стаж: 7 лет
  • Сообщений: 3784
  • Репутация:27

    [+] [-]
  • Откуда: BG
avalat, кстати десктопинфо выдает гораздо больше инфы. Я сейчас как раз и обновляю. aa

_________________
Подпись отключена за нарушение правил форума

[Цитировать]

    Ander_73
  • 15549
  • Стаж: 7 лет 10 месяцев
  • Сообщений: 3839
  • Репутация:127

    [+] [-]
98359десктопинфо выдает гораздо больше инфы
Как раз выходные убил на ковыряние его конфига ag
Но там интереснее мониторинг, имхо.

[Цитировать]

    vovan1982
  • 214
  • Стаж: 9 лет
  • Сообщений: 1132
  • Репутация:77

    [+] [-]
  • Откуда: Ростов-на-Дону
avalat, привет. Версию виндовс определяет неверно. У меня установлена W10, а определяется как W8

[Цитировать]

    Adler
  • 1708
  • Стаж: 9 лет 2 месяца
  • Сообщений: 1214
  • Репутация:65

    [+] [-]
  • Откуда: Луганск
98372avalat, привет. Версию виндовс определяет неверно. У меня установлена W10, а определяется как W8
aa
Аналогично

а должно быть

[Цитировать]

    Yuriy
  • 19685
  • Стаж: 6 лет
  • Сообщений: 87
  • Репутация:2

    [+] [-]
aa
Да то-же наблюдаю несоответствие:

Картинка

[Цитировать]

    avalat
  • 222
  • Стаж: 9 лет
  • Сообщений: 468
  • Репутация:127

    [+] [-]
В моей версии или в TX2000 ?
----------
В моей версии определение по
forx \Windows\System32\cmd.exe,cm,0, (или по explorer.exe лучше)
у него по другому
FORX \Windows\System32\wpeinit.exe,cm,0,
FORX \Windows\System32\colorui.dll,cm,0,

Страница 1 из 2


Показать сообщения:    

Текущее время: 12-Дек 19:29

Часовой пояс: UTC + 3


Вы не можете начинать темы
Вы не можете отвечать на сообщения
Вы не можете редактировать свои сообщения
Вы не можете удалять свои сообщения
Вы не можете голосовать в опросах
Вы не можете прикреплять файлы к сообщениям
Вы можете скачивать файлы