'保存以下代碼為VBS文件,雙擊就可看到
'Power by chenxdb
'2008-03-28
'Get SerialNumber from BIOS
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select SerialNumber From Win32_BIOS")
For Each objItem In colItems
msgbox "Your SerialNumber is:" & objItem.SerialNumber
Exit For
Next
Set colItems = Nothing
Set objWMIService = Nothing
[Quote=引用 3 楼 chenxdb 的回复:]
'保存以下代碼為VBS文件,雙擊就可看到
'Power by chenxdb
'2008-03-28
'Get SerialNumber from BIOS
Set objWMIService = GetObject("winmgmts:\\.\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select SerialNumber From Win32_BIOS")
For Each objItem In colItems
msgbox "Your SerialNumber is:" & objItem.SerialNumber
Exit For
Next
Set …
[/Quote]你太帅了