Using class
Dotnetfactory.CreateInstance("Microsoft.VisualBasic.Devices.Computer","Microsoft.VisualBasic")
Set Obj = otnetfactory.CreateInstance("Microsoft.VisualBasic.Devices.Computer","Microsoft.VisualBasic")
Set compinfo = Obj.Info
print "AvailablePhysicalMemory -" & compinfo.AvailablePhysicalMemory
print "Availablevirtualmemory-" & compinfo.Availablevirtualmemory
print "OSFullname -"& compinfo.OSFullname
print "OSPlatform- "& compinfo.OSPlatform
print "OSVersion -" & compinfo.OSVersion
print "TotalPhysicalmemory-" & compinfo.TotalPhysicalmemory
print "TotalVirtualmemory" & compinfo.TotalVirtualmemory
Set compinfo = nothing
No comments:
Post a Comment