شماره سریال دیسکت

[HadiVB]

با این کد می تونی هر چی از سریال ها را بخواهی بدست بیاری!
Dim objs AsObject
Dim obj AsObject
Dim WMI AsObject
WMI = GetObject("WinMgmts:")
objs = WMI.InstancesOf("Win32_BaseBoard")
ForEach obj In objs
Label11.Text = obj.product
Next obj


به جای
"Win32_BaseBoard"
می تونی
"Win32_processor"
و به جای
Label11.Text = obj.product
می تونی
Label11.Text = obj.ID