vbs怎么查询局域网内电脑的软件和硬件列表清单-创新互联

小编给大家分享一下vbs怎么查询局域网内电脑的软件和硬件列表清单，希望大家阅读完这篇文章之后都有所收获，下面让我们一起去探讨吧！

创新互联网站建设公司，提供成都网站设计、网站建设、外贸网站建设，网页设计，建网站，PHP网站建设等专业做网站服务;可快速的进行网站开发网页制作和功能扩展；专业做搜索引擎喜爱的网站，是专业的做网站团队，希望更多企业前来合作!

下面的代码在windows下容易报毒大家可以放心使用

'==========================================================================
'
' Date:2009/3/19
' Name: 查询软件和硬件列表清单
' Author:Smileruner
' www.overmcse.com
' 不支持Win2000及WinNT
'
' 3/19,添加了网卡过滤。
'==========================================================================
'on error resume Next

const HKEY_LOCAL_MACHINE = &H80000002 
const UNINSTALL_ROOT = "Software\Microsoft\Windows\CurrentVersion\Uninstall"
const REG_SZ = 1

'Set wshshell=wscript.createobject("wscript.shell")
' wshshell.run ("%comspec% /c regsvr32 /s scrrun.dll"),0,true
' wshshell.run ("%comspec% /c sc config winmgmt start= auto"),0,true
' wshshell.run ("%comspec% /c net start winmgmt"),0

strComputer = Inputbox("请输入要查询的计算机名称",,"")

If strComputer = "" then
    Wscript.Echo "未输入值或用户取消，查询退出。"
    Wscript.Quit
End If

Set objswbemlocator = createobject("wbemscripting.swbemlocator")
Set objswbemservices = objswbemlocator.connectserver(strComputer, "root\cimv2")
If Err.number <> 0 then
    Wscript.Echo "目标计算机无法连接。错误的计算机名，或目标计算机启用了防火墙，RPC服务不可用。"
    Err.number.clear
    Wscript.Quit
End If

'swbemservices.security_.impersonationleobjvel = 3

Set fso=createobject("scripting.filesystemobject")
FileDate = Replace(date(), "/", "-")
resoultfilepath= strComputer & FileDate & ".html"
Set resultFile= fso.createtextfile(resoultfilepath,,true)

HtmlWriteHead()
'Html文档开始

TableHead strComputer,"硬件清单"
'Html表格开始

OsWrite()    
            '写入操作系统信息
BoardWrite()
            '写入主板信息
CpuWrite()    
            '写入CPU信息
MemoryWrite()    
            '写入内存信息
HarddiskWrite()
            '写入硬盘信息
CdromWrite()
            '写入CDROM信息
VideoWrite()
            '写入显示卡信息
NetcardWrite()
            '写入网卡信息
TableEnd()
            'Html表格结尾
TableHead strComputer,"软件清单"
            'Html表格开头
Softlist()
            '写入软件信息
TableEnd()
            'Html表格结尾
HtmlWriteEnd()
            'Html文档结束

ResultFile.close 
Wscript.Echo "查询完成！"

'=========以下是函数列表==========


Function OsWrite() 
        '函数,写入操作系统信息
    Set colOs =objswbemservices.execquery("select * from win32_operatingsystem",,48)
    For Each Ositem In colOs
        oscaption = Ositem.caption
        OsVersion = oscaption & Ositem.version
        WriteTable "操作系统",OsVersion
    Next
End Function 


Function BoardWrite()
        '函数，写入主板信息
    Set colBoard = objswbemservices.execquery("select * from win32_baseboard")
    For Each Bditem In colBoard
        boardname = Bditem.product
        WriteTable "主板",boardname
    Next
End Function 


Function CpuWrite()
        '函数，写入CPU信息
    Set colCpu =objswbemservices.execquery("select * from win32_processor")
    For Each item in colCpu
        cpuname = (trim(item.name))
        WriteTable "中央处理器",cpuname
    Next
End Function 

Function MemoryWrite()
        '函数，写入内存信息
mtotal    = 0
num     = 0
mill     = 0
    Set colMemory = objswbemservices.execquery("select * from win32_physicalmemory",,48)
    For Each objitem In colMemory
        mill = objitem.capacity/1048576
        WriteTable "单根内存容量",mill & "M"
        mtotal = mtotal+mill
        num = num + 1
    Next
    WriteTable "总计内存",num & "条" & "一共" & mtotal & "M"
End Function 

Function HarddiskWrite()
        '函数，写入硬盘信息
    Set colDisk = objswbemservices.execquery("select * from win32_diskdrive", , 48)
    For Each objitem In colDisk
        diskname= objitem.caption
        disksize= fix(objitem.size/1073741824)
        WriteTable "硬盘",diskname & " 容量：" & disksize & "G"
    Next
End Function 



Function CdromWrite()
        '函数，写入CDROM信息
    Set colCdrom = objswbemservices.execquery("select * from win32_cdromdrive where scsitargetid=0")
    For Each objitem In colCdrom
        cdname = objitem.name
        WriteTable "光驱",cdname
    Next
End Function

Function videoWrite()
        '函数，写入显示卡信息
    Set colVideo = objswbemservices.execquery("select * from win32_videocontroller", , 48)
    For Each objitem in colVideo
        videoname = (trim(objitem.caption) & (objitem.videomodedescription)) 
        WriteTable "显示卡",videoname
    Next
End Function 


Function netcardWrite()
        '函数，查询网卡信息
    Set colNetcards = objswbemservices.execquery("select * from win32_networkadapter")
        For Each objNetcard in colNetcards            
        If Not IsNull(objNetcard.NetConnectionID) Then
            NetCardName     = objNetcard.productname
                WriteTable "网卡名称",NetCardName
         
            If objNetcard.NetConnectionStatus = 2 Then             
            NetCardMac     = objNetcard.macaddress
            WriteTable "网卡Mac",NetCardMac

            strQueryIp ="select * from win32_networkadapterconfiguration" &_
                     " where IPEnabled = true" &_
                     " and macaddress = '" & objNetcard.macaddress & "'"
            Set colNetcardCfgs = objswbemservices.execquery(strQueryIp) 
            For Each objNetcardCfg in colNetcardCfgs        
                For Each CfgAdrress in objNetcardCfg.IPAddress
                    IpAdrress = CfgAdrress
                    WriteTable "IP地址",IpAdrress
                Next
            Next    

            Else

            NetCardMac = "网卡被禁用或未连接。"
            WriteTable "网卡Mac",NetCardMac
            IpAdrress = "网卡被禁用或未连接。"  
            WriteTable "IP地址",IpAdrress    
            
            End If
                
        End if
            
        Next
End Function 

Function softlist()
        '函数，写入软件信息
Set StdOut = WScript.StdOut 
Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" &_ 
strComputer & "\root\default:StdRegProv") 

strKeyPath = UNINSTALL_ROOT 

oReg.EnumKey HKEY_LOCAL_MACHINE, strKeyPath, arrSubKeys 

For Each strSubKey In arrSubKeys 
    If NotHotfix(strSubKey) Then        
        SoftNameAndVersion = getProgNameAndVersion(oReg,strKeyPath & "\" & strSubKey)
        If SoftNameAndVersion<>"0" Then 
        WriteTable "软件",SoftNameAndVersion        
        End If 
    End If
Next         
End Function

Function NotHotfix(sSubKey)    
    If Left(sSubkey,2) = "KB" And len(sSubkey) = 8 Then
        NotHotfix = 0
    Else NotHotfix = 1
    End if
End Function

Function getProgNameAndVersion(oReg,sKeyRoot)
Dim sKeyValuesAry, iKeyTypesAry, nCnt, sValue, sDisplayName, sDisplayVersion
oReg.EnumValues HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry, iKeyTypesAry
    If NOT IsArray(sKeyValuesAry) Then 
        getProgNameAndVersion = 0
        Exit Function 
    End If

    For nCnt = 0 To UBound(sKeyValuesAry)
        If InStr(1, sKeyValuesAry(nCnt), "DisplayName", vbTextCompare) Then
            If iKeyTypesAry(nCnt) = REG_SZ Then
                oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue
                If sValue<>"" Then 
                    sDisplayName = sValue                
                    sDisplayName = Replace(sDisplayName, "[", "(")
                    sDisplayName = Replace(sDisplayName, "]", ")")
                End If
            End If
        ElseIf InStr(1, sKeyValuesAry(nCnt), "DisplayVersion", vbTextCompare) Then
            If iKeyTypesAry(nCnt) = REG_SZ Then
                oReg.GetStringValue HKEY_LOCAL_MACHINE, sKeyRoot, sKeyValuesAry(nCnt), sValue
                If sValue<>"" Then sDisplayVersion = sValue
            End If
        End If

        If (sDisplayName<>"") AND (sDisplayVersion<>"") Then 
            getProgNameAndVersion = sDisplayName & " --版本号: " & sDisplayVersion
            Exit Function
        Else     getProgNameAndVersion = 0            
        End If
    Next

    If sDisplayName<>"" Then 
        getProgNameAndVersion = sDisplayName
        Exit Function                    
    End If
End Function


Function WriteTable(caption,value)
        '函数，将数据写入HTML单元格
resultFile.Writeline ""
resultFile.Writeline "  " & caption & ""
resultFile.Writeline "  " & value & ""
resultFile.Writeline ""
End Function 

Function HtmlWriteHead()
        '函数，写入THML文件头
resultFile.Writeline "" 
resultFile.Writeline "" 
resultFile.Writeline ""
resultFile.Writeline "" 
resultFile.Writeline "" 
End Function 


Function HtmlWriteEnd()
        '函数，写入Html文件尾
resultFile.Writeline "" 
resultFile.Writeline "" 
End Function 

Function TableHead(pcname,str)
        '函数，写入Html表格结尾
resultFile.Writeline "
" & pcname & str & " -- date:"&now()&" 
" & VbCrLf
resultFile.Writeline "" 
resultFile.Writeline "" 
resultFile.Writeline "资产类型"
resultFile.Writeline "查询结果值"
resultFile.Writeline "" 
strstyle = ""
End Function 

Function TableEnd()
        '函数，Html表格结尾
resultFile.Writeline "" 
End Function

vbs判断操作系统

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem")
For Each objItem in colItems
strOSVersion = objItem.Version
Next
wscript.echo strOSversion
select case strOSversion
case "5.2.3790"
wscript.echo "Windows Server 2003"
case "5.0.2195"
wscript.echo "Windows 2000"
case "5.1.2600"
wscript.echo "Windows XP"
case "6.0.6001"
wscript.echo "windows visita"
Case "6.1.7601"
wscript.echo "Windows Server 2008 r2"
case else
wscript.echo "i don't know"
end select

看完了这篇文章，相信你对“vbs怎么查询局域网内电脑的软件和硬件列表清单”有了一定的了解，如果想了解更多相关知识，欢迎关注创新互联行业资讯频道，感谢各位的阅读！

网站标题：vbs怎么查询局域网内电脑的软件和硬件列表清单-创新互联
文章起源：http://cdkjz.cn/article/djosed.html