Detre
Новичок
- Сообщения
- 70
- Репутация
- 0
Всем привет нужна помощь в изменении вида скрипта(Только эстетика, ничего более так как скрипт рабочий).
Нужно из этого:
Перевести в такой вид:
У меня не получилось ибо возможно лошара...помогите пожалуйста.
Нужно из этого:
Код:
#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
У меня не получилось ибо возможно лошара...помогите пожалуйста.