OpenTextFile ( logfile, ForAppend, True ) If bHeader Then appendout. FileExists ( logfile ) Then bHeader = True set appendout = fso. ExpandEnvironmentStrings ( "%userprofile%" ) & "\desktop\MonitorInfo.csv" 'setup Log Const ForAppend = 8 Set fso = CreateObject ( "Scripting.FileSystemObject" ) If Not fso. Quit strComputer = UCase ( strComputer ) If batch Then Dim fso, logfile, appendout logfile = wshShell. ExpandEnvironmentStrings ( "" ) strComputer = InputBox ( "Check Monitor info for what PC", "PC Name?", strComputer ) End If If strcomputer = "" Then WScript. Arguments ( 0 ) ' batch = True Else strComputer = wshShell. CreateObject ( "WScript.Shell" ) Dim strComputer, message Dim intMonitorCount Dim oRegistry, sBaseKey, sBaseKey2, sBaseKe圓, skey, skey2, ske圓 Dim sValue dim i, iRC, iRC2, iRC3 Dim arSubKeys, arSubKeys2, arSubKeys3, arrintEDID Dim strRawEDID Dim ByteValue, strSerFind, strMdlFind Dim intSerFoundAt, intMdlFoundAt, findit Dim tmp, tmpser, tmpmdl, tmpctr Dim batch, bHeader batch = False If WScript. If the data is not displayed, this can mean two things: 1) the necessary information is missing in the computer BIOS or registry, 2) the data was not polled because the options were not selected (see the below screenshot).Option Explicit Dim WshShell Set WshShell = WScript. The following options should be selected: "System model ", "System", "System enclosure".
Warning! In order to read asset tags successfully, please do not forget to select corresponding data groups when configuring the computer data collection. Usually, only branded PC and laptops contain the asset tag information in their BIOS and Windows (HP, Dell, etc.) The DIY computers made by enthusiasts or by unknown vendors do not contain this data. Also, you can find a laptop model here, at the " Model" item (desktops usually display a motherboard's model here). See the " System" section, the " Serial Number" item.
You can find a remote computer's serial number on the " Processor and Motherboard" node in the " Hardware" tree.
0 kommentar(er)
