如何用VBS腳本收集遠程計算機或本地計算機安裝的軟件
目標
用VBS腳本收集域中遠程計算機或本地計算機安裝的軟件,Windows版本。並將收集的結果保存到計算機名為文件名的文本文件中。文本文件可以保存到網絡路徑中或當前VBS文件所在目錄。同時支持32位和64位系統。
並過濾到一些補丁包、Office組件、NVIDIA、Intel®的驅動等。
制作VBS腳本
保存下面的VBS程序代碼到vbs文件中
On Error Resume Next Const HKCU = &h80000001 Const HKLM = &H80000002 Const strKeyPath = "Software\Microsoft\Windows\CurrentVersion\Uninstall\" Const str64KeyPath = "SOFTWARE\Wow6432Node\Microsoft\Windows\CurrentVersion\Uninstall\" Const ForReading = 1 Const ForWriting = 2 Const ForAppending = 8 'FilePath = "\\Server-File\PCSoftList\" FilePath = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path & "\" Set Wshell = CreateObject("Wscript.Shell") Set objFSO = CreateObject("Scripting.FileSystemobject") 'Set collected computers Name set argus=wscript.arguments if argus.count=0 then strComputerName = Wshell.RegRead("HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\Hostname") else strComputerName = argus(0) end if Set textWriteFile = objFSO.OpenTextFile(FilePath & ucase(strComputerName) &".txt",ForWriting,True,True) Set objReg = GetObject("winmgmts://" & strComputerName & "/root/default:StdRegProv") 'Get OS Version intRet = objReg.GetStringValue(HKLM, "SOFTWARE\Microsoft\Windows NT\CurrentVersion","ProductName",strOSVersion) If intRet = 0 Then intRet = objReg.GetStringValue(HKLM, "SOFTWARE\Microsoft\Windows NT\CurrentVersion","CSDVersion",strOSServicePack) intRet = objReg.GetStringValue(HKLM, "SOFTWARE\Wow6432Node\Microsoft\Windows NT\CurrentVersion","ProductName",str64BitOSVersion) if intRet = 0 then strOSVersion = strOSVersion & " 64bit" end if intRet = objReg.GetStringValue(HKLM, "SYSTEM\CurrentControlSet\Control\Nls\Language","InstallLanguage",OSLanguageCode) if intRet = 0 then select case OSLanguageCode case "0804" '中文 strOSVersion = strOSVersion & " Chinese Version" case "0411" '日文 strOSVersion = strOSVersion & " Japanese Version" case "0409" '英文 strOSVersion = strOSVersion & " English Version" case else '未知語言 strOSVersion = strOSVersion & " UnknownLanguage Version" end select end if Else strOSVersion = "OS Get Failed" strOSServicePack = "NoFind" End If if InStr(LCase(strOSVersion),"windows")>0 then textWriteFile.WriteLine("""" & ucase(strComputerName) & """" & vbTab & """" & strOSVersion & """" & vbTab & """" & strOSServicePack & """") end if 'Display User Software. objReg.EnumKey HKCU, strKeyPath,arrSubKeys For Each strSubKey In arrSubKeys intGet = objReg.GetDWORDValue(HKCU, strKeyPath & strSubKey,"SystemComponent",intSystemComponent) If IsNull(intSystemComponent) then intSystemComponent = 0 End If intRet = objReg.GetStringValue(HKCU, strKeyPath & strSubKey,"ParentDisplayName",strName) If intSystemComponent = 0 and intRet > 0 then intRet = objReg.GetStringValue(HKCU, strKeyPath & strSubKey,"DisplayName",strName) If strName <> "" And intRet = 0 And ignorePgm(strName) Then strName = replace(replace(strName,vbCrLf,""),vbTab,"") intRet = objReg.GetStringValue(HKCU, strKeyPath & strSubKey,"DisplayVersion",strVersion) textWriteFile.WriteLine("""" & ucase(strComputerName) & """" & vbTab & """" & strName & """" & vbTab & """" & strVersion & """") End If End If Next 'Display Machine 32bit Software. objReg.EnumKey HKLM, strKeyPath,arrSubKeys For Each strSubKey In arrSubKeys intGet = objReg.GetDWORDValue(HKLM, strKeyPath & strSubKey,"SystemComponent",intSystemComponent) If IsNull(intSystemComponent) then intSystemComponent = 0 End If intRet = objReg.GetStringValue(HKLM, strKeyPath & strSubKey,"ParentDisplayName",strName) If intSystemComponent = 0 and intRet > 0 then intRet = objReg.GetStringValue(HKLM, strKeyPath & strSubKey,"DisplayName",strName) If strName <> "" And intRet = 0 And ignorePgm(strName) Then ' strName = replace(replace(strName,vbCrLf,""),vbTab,"") intRet = objReg.GetStringValue(HKLM, strKeyPath & strSubKey,"DisplayVersion",strVersion) textWriteFile.WriteLine("""" & ucase(strComputerName) & """" & vbTab & """" & strName & """" & vbTab & """" & strVersion & """") End If End If Next 'Display Machine 64bit Software. objReg.EnumKey HKLM, str64KeyPath,arrSubKeys For Each strSubKey In arrSubKeys intGet = objReg.GetDWORDValue(HKLM, str64KeyPath & strSubKey,"SystemComponent",intSystemComponent) If IsNull(intSystemComponent) then intSystemComponent = 0 End If intRet = objReg.GetStringValue(HKLM, str64KeyPath & strSubKey,"ParentDisplayName",strName) If intSystemComponent = 0 and intRet > 0 then intRet = objReg.GetStringValue(HKLM, str64KeyPath & strSubKey,"DisplayName",strName) If strName <> "" And intRet = 0 And ignorePgm(strName) Then strName = replace(replace(strName,vbCrLf,""),vbTab,"") intRet = objReg.GetStringValue(HKLM, str64KeyPath & strSubKey,"DisplayVersion",strVersion) textWriteFile.WriteLine("""" & ucase(strComputerName) & """" & vbTab & """" & strName & """" & vbTab & """" & strVersion & """") End If End If Next textWriteFile.Close function ignorePgm(strPgm) If inStr(1,strPgm,"Microsoft Office ",1)<=0 then '不輸出Security Update、.NET Framework、Microsoft Visual C++、NVIDIA、Intel(R)的程序 ignorePgm = inStr(1,strPgm,"Security Update",1)<=0 _ And inStr(1,strPgm,".NET Framework",1)<=0 _ And inStr(1,strPgm,"Microsoft Visual C++",1)<=0 _ And inStr(1,strPgm,"NVIDIA",1)<=0 _ And inStr(1,strPgm,"Intel(R)",1)<=0 Else '讓個版本的Office能正常輸出 ignorePgm = inStr(1,strPgm,"Microsoft Office ",1)>0 _ And (inStr(1,strPgm," 2000 ",1)>0 _ Or inStr(1,strPgm," 2003 ",1)>0 _ Or (inStr(1,strPgm,"Microsoft Office Access ",1)=1 And inStr(1,strPgm," MUI",1)<=0) _ Or strPgm="Microsoft Office Professional Plus 2007" _ Or strPgm="Microsoft Office Professional Plus 2010" _ Or strPgm="Microsoft Office Professional Plus 2016" _ Or strPgm="Microsoft Office Standard 2007" _ Or strPgm="Microsoft Office Standard 2010" _ Or strPgm="Microsoft Office Standard 2016" _ Or strPgm="Microsoft Office Standard 2019") End If end function
假設保存的文件名為InstalledSoftList.vbs。保存在D:\
修改結果文件保存路徑。
請修改下列代碼
'FilePath = "\\Server-File\PCSoftList\" FilePath = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path & "\"
當前默認是保存到InstalledSoftList.vbs文件所在目錄。可以不修改。
修改過濾條件(設置不想顯示的程序名)
請修改下列代碼
'不輸出Security Update、.NET Framework、Microsoft Visual C++、NVIDIA、Intel(R)的程序 ignorePgm = inStr(1,strPgm,"Security Update",1)<=0 _ And inStr(1,strPgm,".NET Framework",1)<=0 _ And inStr(1,strPgm,"Microsoft Visual C++",1)<=0 _ And inStr(1,strPgm,"NVIDIA",1)<=0 _ And inStr(1,strPgm,"Intel(R)",1)<=0
默認不顯示Security Update、.NET Framework、Microsoft Visual C++、NVIDIA、Intel®的程序
測試前可以不修改
測試
測試方法1
收集當前計算機安裝的軟件
直接雙擊InstalledSoftList.vbs
假設計算機名為PC-Name01,會在D:\或指定目錄下生成一個名為PC-Name01.txt的文件。
測試方法2
收集遠程計算機上安裝的軟件。
在CMD窗口中運行下列命令。(假設計算機名為PC-Name02)
cscript d:\InstalledSoftList.vbs PC-Name02
會在D:\或指定目錄下生成一個名為PC-Name02.txt的文件。
測試方法2的註意事項
如果運行後得到的PC-Name02.txt文件為空文件。請確認下列兩項內容。
- 遠程計算機必須於運行腳本的計算機是同一個域的成員計算機
- 遠程計算機的防火墻為關閉狀態,或設置瞭【入站規則】【Windows Management Instrumentation(WMI)】允許
到此這篇關於如何用VBS腳本收集遠程計算機或本地計算機安裝的軟件的文章就介紹到這瞭,更多相關VBS腳本收集計算機安裝的軟內容請搜索WalkonNet以前的文章或繼續瀏覽下面的相關文章希望大傢以後多多支持WalkonNet!
推薦閱讀:
- 怎麼查看office2016是否永久激活
- office2013 kms激活命令是什麼|怎麼用kms命令激活office2013
- office2016激活工具kms怎麼用|office2016激活工具使用教程
- office365激活碼 office365產品密鑰 office365永久激活密鑰key分享
- 群暉NAS利用Docker容器搭建KMS激活服務器實現激活windows系統和office(操作步驟)