[уже неактуально]помогите пожалуйста со скриптом VB

nas1234

 

On Error Resume Next 

strComputer = "." 

Set objWMIService = _ 

GetObject("winmgmts:\\" & strComputer & "\root\cimv2") 

'motherboard

Set mothItems = _ 

objWMIService.ExecQuery("Select * from Win32_ComputerSystem"48)  

mothstr = "Материнская плата: " & VbCrlf & vbLf

For Each objItem in mothItems 

mothstr = mothstr & "Модель: " & vbtab & objItem.Model & VbCrlf

mothstr = mothstr & "Производитель: " & vbtab & objItem.Manufacturer & VbCrlf

mothstr = mothstr & "----------------------" & VbCrlf '& vbLf

Next

Wsсriрt.Echo mothstr  

пишет что в последней строчке в 3 символе ошибка.
я в этом ничего вообще не понимаю, скрипт из инета.

v_Alex

может, WSсriрt вместо Wsсriрt?
ЗЫ. тоже ничего в этом не понимаю)

nas1234

всё, уже неактуально.