Fairly simple, requires newest beta version. This will ask you to enter a machine name (it defaults to your own) and then it will retrieve the Model Name and serial number of the monitor. Comments welcome.
$wbemFlagReturnImmediately = 0x10
$wbemFlagForwardOnly = 0x20
_StrComputer()
If Ping($strComputer, 200) = 0 Then
MsgBox(0, "Error", $strComputer & " could not be reached, please enter another.")
_StrComputer()
EndIf
_ObjWMI()
Func _ObjWMI()
Global $objWMIService = ObjGet ("winmgm