System Info
System Help
Sunday, January 22, 2006 by jlaj1989 | Discussion: DesktopX
Please login to comment and/or vote for this skin.
Welcome Guest! Please take the time to register with us.
There are many great features available to you once you register, including:
- Richer content, access to many features that are disabled for guests like commenting on the forums and downloading skins.
- Access to a great community, with a massive database of many, many areas of interest.
- Access to contests & subscription offers like exclusive emails.
- It's simple, and FREE!







Reply #21 Saturday, January 28, 2006 8:12 AM
Dim szDrive
Sub Object_OnScriptEnter
object.settimer 123, 2500
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Object_OnTimer123
End Sub
Sub Object_OnScriptExit
Set objWMIService = nothing
End Sub
Sub Object_OnTimer123
Dim colItems
Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController",,48)
For Each objItem In colItems
Object.text = objItem.VideoProcessor & " (" & objItem.AdapterRAM / 1048576 & "MB)"
Exit Sub
Next
End Sub