程序点滴jcodeer.blog.chinaunix.net
jcodeer
全部博文(171)
2012年(2)
2011年(70)
2010年(9)
2009年(14)
2008年(76)
Bean_lee
GY123456
armlife
linky521
g_progra
猥琐才是
athzhang
CU博客助
meiyang_
heq76
gaokeke1
yangyefe
yanganni
tomcodin
qhy95020
allaxin
suntao32
13661379
分类:
2008-05-24 22:10:37
'1.显示软盘信息 On Error Resume Next strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from Win32_FloppyDrive ") For Each objItem in colItems Wscript.Echo "Name:" & objItem.Name Wscript.Echo "DeviceID: " & objItem.DeviceID Wscript.Echo "Caption: " & objItem.Caption Wscript.Echo "Description: " & objItem.Description Wscript.Echo "SystemName: " & objItem.SystemName Wscript.Echo Next Wscript.StdIn.Read(1)
上一篇:获取硬盘信息
下一篇:网络适配器信息
登录 注册