Add(VBJScript,15114197,826,119)
{
 WorkPoints=#6:doWork|
 EventPoints=#5:onRes|
 Script=#23:Sub doWork (Data,Index)|0:|20:On Error Resume Next|0:|17:strComputer = "."|74:Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")|0:|65:Set col1= objWMIService.ExecQuery("Select * from Win32_BIOS",,48)|25:For each obj1 in col1    |34:     sys.onRes obj1.SerialNumber  |4:Next|75:Set col2= objWMIService.ExecQuery("Select * from Win32_PhysicalMemory",,48)|26:For each obj2 in col2     |32:     sys.onRes obj2.PartNumber  |4:Next|76:Set col3= objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)|25:For each obj3 in col3    |34:     sys.onRes obj3.SerialNumber  |4:Next|70:Set col4= objWMIService.ExecQuery("Select * from Win32_Processor",,48)|25:For each obj4 in col4    |25:     sys.onRes obj4.Name |4:Next|74:Set col5= objWMIService.ExecQuery("Select * from Win32_physicalmedia",,48)|24:For each obj5 in col5   |33:     sys.onRes obj5.SerialNumber |33:Next                             |8:End sub	|
 UseName=0
}