Определяем модель материнской платы компьютера (например удаленного)

[Sir Arthur]

'@ Sir Arthur
Computer = "компьютер" ' хинт локальная машина обозначается .
'class Win32_BaseBoard : CIM_Card
''{
' string Caption;
' string ConfigOptions[];
' string CreationClassName;
' real32 Depth;
' string Description;
' real32 Height;
' boolean HostingBoard;
' boolean HotSwappable;
' datetime InstallDate;
' string Manufacturer;
' string Model;
' string Name;
' string OtherIdentifyingInfo;
' string PartNumber;
' boolean PoweredOn;
' string Product;
' boolean Removable;
' boolean Replaceable;
' string RequirementsDescription;
' boolean RequiresDaughterBoard;
' string SerialNumber;
' string SKU;
' string SlotLayout;
' boolean SpecialRequirements;
' string Status;
' string Tag;
' string Version;
' real32 Weight;
' real32 Width;
'};
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, (Security)}!\\" & Computer & "\root\cimv2")
Set Items = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")
For Each Item In Items
'Wscript.Echo Item.Product
strAlertToSend =Computer & VbCrLf _
& Item.Manufacturer &": " _
& Item.Product & VbCrLf '_
'Отправляем рузультат в e-mail
Set objMail = CreateObject("CDO.Message")
objMail.From = "от кого "
objMail.To = "кому"
Subject =("Motherboartd Model")
objMail.BodyPart.CharSet = "windows-1251"
objMail.Subject = Subject
objMail.Textbody =strAlertToSend
'You don't need this part if you have an active Outlook [Express] account use an SMTP server
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
' Name or IP of Remote SMTP Server
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "сервер"
' Server port (typically 25)
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
objMail.Configuration.Fields.Update
' End of SMTP usage
objMail.Send
Wscript.Quit
Exit For
Next

[shurutov]

Ужас какой. Вместо одной dmidecode|hwinfo...

[Sir Arthur]

shurutov,если отбросить рюшечки то останется только это

Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate, (Security)}!\\" & Computer & "\root\cimv2")
Set Items = objWMIService.ExecQuery("SELECT * FROM Win32_BaseBoard")
For Each Item In Items
'Wscript.Echo Item.Product
strAlertToSend =Computer & VbCrLf _
& Item.Manufacturer &": " _
& Item.Product & VbCrLf '_
Wscript.Echo strAlertToSend

[shurutov]

Sir Arthur, Вить, dmidecode или hwinfo в командной строке набрать - сурово короче...

[Sir Arthur]

Блиииин.
Набери в cmd win машины и посмотри куда тебя пошлют. Или
dmidecode или hwinfo
портировали?

[shurutov]

Sir Arthur, ты что, не понял, что просто издеваюсь над "мощью" пувершелла, это ведь он?
dmidecode или hwinfo портировали?

Dmidecode is known to work on the following systems:

* Linux i386, x86-64, ia64
* FreeBSD i386, x86-64
* NetBSD i386, x86-64
* OpenBSD i386
* BeOS i386
* Cygwin i386
* Solaris x86
Судя по выделенному - через анус автогеном, но есть же!
HWiNFO32™ - A powerful system information tool for Windows
таки да - если не портировали, то сразу виндо-версию делали...

[Brovey]

Sir Arthur, ты что, не понял, что просто издеваюсь над "мощью" пувершелла, это ведь он?


Судя по выделенному - через анус автогеном, но есть же!

таки да - если не портировали, то сразу виндо-версию делали...
кхе... я fpingerом польщуюсь, так инвентаризатор есть.:hacker:

[Sir Arthur]

ты что, не понял, что просто издеваюсь над "мощью" пувершелла, это ведь он?
нед, PoS это вообщем инструмент 2003 и 2008 окон.
Це VBS :punish:

---------- Добавлено в 13:35 ---------- Предыдущее сообщение было написано в 13:34 ----------

у повершела операнды, семантика и синтаксис другой

---------- Добавлено в 13:36 ---------- Предыдущее сообщение было написано в 13:35 ----------

И еще - это встроенный инструментарий ОС - ничего устанавливать не надо.
Впрочем - не хотите - как хотите

[shurutov]

еще - это встроенный инструментарий ОС - ничего устанавливать не надо.
Нееее, как по мне - найти инфу об организации /proc намного проще и легче, неежели осваивать визуалвасик...

[Slon]

да будет хуливар.
Михаил. Мне как сетевику вообще прощее не знать какая материнка стоит на компе. Вообще принять оный за blackbox c ip адресом (а может и просто входящий в подсеть такую то) и списком разрешённого трафика от него/к нему.
Яж не лезу !? или это фишка такая - вставить комент туда, где он как минимум не к месту ??