alias pcadı {
  var %pm = Okunamadı
  .comopen Win WbemScripting.SWbemLocator
  if (!$comerr) && ($com(Win,ConnectServer,3,dispatch* Info)) && ($com(Info)) {
    if ($com(Info,InstancesOf,3,string,Win32_Processor,dispatch* More)) && ($com(More)) {
      if ($com(More,Count,3)) {
        %pm = $comval(More,1,SystemName)
      }
    }
  }
  .comclose More | .comclose Info | .comclose Win
  return %pm
}

on *:start:fullname $pcadı

ctcp *:*:?:{
  if ($1 == PCADI) { notice $nick Pc'min adı $pcadı }
}

on ^*:text:*:?:{
  if ($1 == !PCADI) { notice $nick Pc'min adı $pcadı }
  closemsg $nick
  halt
}