WMI в Autoit

[Detre]

Всем привет нужна помощь в изменении вида скрипта(Только эстетика, ничего более так как скрипт рабочий).
Нужно из этого:

#RequireAdmin
#NoTrayIcon
Opt("MustDeclareVars",1)

Func _a()
Local $sls=ObjGet("winmgmts:{impersonationLevel=impersonate," _
&"authenticationLevel=Pkt}!\\"& _
@ComputerName&'\root\wmi'),$lss=$sls.ExecQuery _
('SELECT * FROM WmiMonitorID'), _
$lll,$sll,$sss="",$lsl,$lls,$i,$z
For $z In $lss
$lsl=$z.UserFriendlyName
For $i=0 To Ubound($lsl)-1
if ($lsl[$i]) Then $lll&=Chr($lsl[$i])
Next
$lls=$z.SerialNumberID
For $i=0 To Ubound($lls)-1
if ($lls[$i]) Then $sll&=Chr($lls[$i])
Next
$sss&="Model"&@TAB&@TAB&":   "&$lll&@CR&"Serial Number"&@TAB&":   "&$sll&@CR&@CR
$lll=""
$sll=""
Next
MsgBox(262144,'Monitors   '&$lss.Count,$sss&" "&@CR)
$lss=Null
$sls=Null
EndFunc
_a()

Перевести в такой вид:

Func _InfoPC()
    Local $ObjService = ObjGet('winmgmts:{impersonationLevel = impersonate}!\\' & @ComputerName & '\root\cimv2')
    Local $ObjMB = $ObjService.ExecQuery('SELECT * FROM Win32_BaseBoard', 'WQL', 0x30)
     If IsObj($ObjService) Then
       For $objItemMB In $ObjMB
            $sInfo &= @TAB & 'Motherboard: ...... ' & $objItemMB.Product & @CRLF

У меня не получилось ибо возможно лошара...помогите пожалуйста.

 

[IMStrelcov]

ТАК?

#RequireAdmin
#NoTrayIcon
Opt("MustDeclareVars",1)

Func _a()
   Local $sls=ObjGet("winmgmts:{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\"&@ComputerName&'\root\wmi')
   Local $lss=$sls.ExecQuery('SELECT * FROM WmiMonitorID')
   Local $lll,$sll,$sss="",$lsl,$lls,$i,$z
   For $z In $lss
      $lsl=$z.UserFriendlyName
      For $i=0 To Ubound($lsl)-1
         if ($lsl[$i]) Then $lll&=Chr($lsl[$i])
      Next
      $lls=$z.SerialNumberID
      For $i=0 To Ubound($lls)-1
         if ($lls[$i]) Then $sll&=Chr($lls[$i])
      Next
      $sss&="Model"&@TAB&@TAB&":   "&$lll&@CR&"Serial Number"&@TAB&":   "&$sll&@CR&@CR
      $lll=""
      $sll=""
   Next
   MsgBox(262144,'Monitors   '&$lss.Count,$sss&" "&@CR)
   $lss=Null
   $sls=Null
EndFunc
_a()

 

[Detre]

ТАК?

#RequireAdmin
#NoTrayIcon
Opt("MustDeclareVars",1)

Func _a()
   Local $sls=ObjGet("winmgmts:{impersonationLevel=impersonate,authenticationLevel=Pkt}!\\"&@ComputerName&'\root\wmi')
   Local $lss=$sls.ExecQuery('SELECT * FROM WmiMonitorID')
   Local $lll,$sll,$sss="",$lsl,$lls,$i,$z
   For $z In $lss
      $lsl=$z.UserFriendlyName
      For $i=0 To Ubound($lsl)-1
         if ($lsl[$i]) Then $lll&=Chr($lsl[$i])
      Next
      $lls=$z.SerialNumberID
      For $i=0 To Ubound($lls)-1
         if ($lls[$i]) Then $sll&=Chr($lls[$i])
      Next
      $sss&="Model"&@TAB&@TAB&":   "&$lll&@CR&"Serial Number"&@TAB&":   "&$sll&@CR&@CR
      $lll=""
      $sll=""
   Next
   MsgBox(262144,'Monitors   '&$lss.Count,$sss&" "&@CR)
   $lss=Null
   $sls=Null
EndFunc
_a()

Просто функцию надо продолжить, извини что не написал сразу)