I'm showing v 1.0 on the home page after logging in. I upgraded after the opmantek changeover.
The filename might be misleading. I had a group policy that worked and don't like fixing things that aren't broke....
'''''''''''''''''''''''''''
' Video Information '
'''''''''''''''''''''''''''
comment = "Video Info"
Echo(comment)
On Error Resume Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
For Each objItem in colItems
If (Instr(objItem.Caption, "vnc") = 0 AND Instr(objItem.Caption, "Innobec SideWindow") = 0) then
LeftString = Left(objItem.DriverDate,
form_input = "video^^^" & int(objItem.AdapterRAM / 1024 / 1024) & "^^^" _
& clean(objItem.Caption) & "^^^" & clean(objItem.CurrentHorizontalResolution) & "^^^" _
& clean(objItem.CurrentNumberOfColors) & "^^^" & clean(objItem.CurrentRefreshRate) & "^^^" _
& clean(objItem.CurrentVerticalResolution) & "^^^" & clean(objItem.Description) & "^^^" _
& Left(LeftString, 4) & "/" & Mid(LeftString, 5, 2) & "/" & Right(LeftString, 2) & "^^^" _
& clean(objItem.DriverVersion) & "^^^" & clean(objItem.MaxRefreshRate) & "^^^" _
& clean(objItem.MinRefreshRate) & "^^^" & clean(objItem.DeviceID) & "^^^"
entry form_input,comment,objTextFile,oAdd,oComment
form_input = ""
if online = "p" then
oIE.document.WriteLn "<tr bgcolor=""#F1F1F1""><td>Video Card: </td><td>" & clean(objItem.Caption) & " mb</td></tr>"
oIE.document.WriteLn "<tr><td>Video Memory: </td><td>" & int(objItem.AdapterRAM / 1024 / 1024) & "</td></tr>"
oIE.document.WriteLn "<tr bgcolor=""#F1F1F1""><td>Video Driver Date: </td><td>" & Left(LeftString, 4) & "/" & Mid(LeftString, 5, 2) & "/" & Right(LeftString, 2) & "</td></tr>"
oIE.document.WriteLn "<tr><td>Video Driver Version: </td><td>" & clean(objItem.DriverVersion) & "</td></tr>"
end if
end if
Next
When I do a WMIC query, the data is there, just not making it into the DB. I'll make the change in my audit.config and see what happens.