软件开发培训班 >> 编程开发 >> VbScript


濡備綍鐢╒BS鑴氭湰鏀堕泦杩滅▼璁＄畻鏈烘垨鏈湴璁＄畻鏈哄畨瑁呯殑杞欢

鐩爣

鐢╒BS鑴氭湰鏀堕泦鍩熶腑杩滅▼璁＄畻鏈烘垨鏈湴璁＄畻鏈哄畨瑁呯殑杞欢锛學indows鐗堟湰銆傚苟灏嗘敹闆嗙殑缁撴灉淇濆瓨鍒拌绠楁満鍚嶄负鏂囦欢鍚嶇殑鏂囨湰鏂囦欢涓�傛枃鏈枃浠跺彲浠ヤ繚瀛樺埌缃戠粶璺緞涓垨褰撳墠VBS鏂囦欢鎵�鍦ㄧ洰褰曘�傚悓鏃舵敮鎸?2浣嶅拰64浣嶇郴缁熴�?br /> 骞惰繃婊ゅ埌涓�浜涜ˉ涓佸寘銆丱ffice缁勪欢銆丯VIDIA銆両ntel®鐨勯┍鍔ㄧ瓑銆?/p>

鍒朵綔VBS鑴氭湰

淇濆瓨涓嬮潰鐨刅BS绋嬪簭浠ｇ爜鍒皏bs鏂囦欢涓?/p> 

On Error Resume Next  

Const HKCU   = &h80000001
Const HKLM   = &H80000002
Const strKeyPath = "SoftwareMicrosoftWindowsCurrentVersionUninstall"
Const str64KeyPath = "SOFTWAREWow6432NodeMicrosoftWindowsCurrentVersionUninstall"
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8

'FilePath  = "\Server-FilePCSoftList"
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_MACHINESYSTEMCurrentControlSetServicesTcpipParametersHostname")
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, "SOFTWAREMicrosoftWindows NTCurrentVersion","ProductName",strOSVersion)
If intRet = 0 Then
 intRet = objReg.GetStringValue(HKLM, "SOFTWAREMicrosoftWindows NTCurrentVersion","CSDVersion",strOSServicePack)
 intRet = objReg.GetStringValue(HKLM, "SOFTWAREWow6432NodeMicrosoftWindows NTCurrentVersion","ProductName",str64BitOSVersion)
 if intRet = 0 then
  strOSVersion = strOSVersion & " 64bit"
 end if
 intRet = objReg.GetStringValue(HKLM, "SYSTEMCurrentControlSetControlNlsLanguage","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
  '涓嶈緭鍑篠ecurity Update銆?NET Framework銆丮icrosoft Visual C++銆丯VIDIA銆両ntel(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
  '璁╀釜鐗堟湰鐨凮ffice鑳芥甯歌緭鍑?
  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

鍋囪淇濆瓨鐨勬枃浠跺悕涓篒nstalledSoftList.vbs銆備繚瀛樺湪D:

淇敼缁撴灉鏂囦欢淇濆瓨璺緞銆?/h2>

璇蜂慨鏀逛笅鍒椾唬鐮?/p> 

'FilePath  = "\Server-FilePCSoftList"
FilePath  = CreateObject("Scripting.FileSystemObject").GetFolder(".").Path & ""

褰撳墠榛樿鏄繚瀛樺埌InstalledSoftList.vbs鏂囦欢鎵�鍦ㄧ洰褰曘�傚彲浠ヤ笉淇敼銆?/p>

淇敼杩囨护鏉′欢锛堣缃笉鎯虫樉绀虹殑绋嬪簭鍚嶏級

璇蜂慨鏀逛笅鍒椾唬鐮?/p> 

 '涓嶈緭鍑篠ecurity Update銆?NET Framework銆丮icrosoft Visual C++銆丯VIDIA銆両ntel(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

榛樿涓嶆樉绀篠ecurity Update銆?NET Framework銆丮icrosoft Visual C++銆丯VIDIA銆両ntel®鐨勭▼搴?br /> 娴嬭瘯鍓嶅彲浠ヤ笉淇敼

娴嬭瘯

娴嬭瘯鏂规硶1

鏀堕泦褰撳墠璁＄畻鏈哄畨瑁呯殑杞欢

鐩存帴鍙屽嚮InstalledSoftList.vbs

鍋囪璁＄畻鏈哄悕涓篜C-Name01锛屼細鍦―:鎴栨寚瀹氱洰褰曚笅鐢熸垚涓�涓悕涓篜C-Name01.txt鐨勬枃浠躲�?/p>

娴嬭瘯鏂规硶2

鏀堕泦杩滅▼璁＄畻鏈轰笂瀹夎鐨勮蒋浠躲�?br /> 鍦–MD绐楀彛涓繍琛屼笅鍒楀懡浠ゃ�傦紙鍋囪璁＄畻鏈哄悕涓篜C-Name02锛?/p>

cscript d:InstalledSoftList.vbs PC-Name02

浼氬湪D:鎴栨寚瀹氱洰褰曚笅鐢熸垚涓�涓悕涓篜C-Name02.txt鐨勬枃浠躲�?/p>

娴嬭瘯鏂规硶2鐨勬敞鎰忎簨椤?/h4>

濡傛灉杩愯鍚庡緱鍒扮殑PC-Name02.txt鏂囦欢涓虹┖鏂囦欢銆傝纭涓嬪垪涓ら」鍐呭銆?/p>

  • 杩滅▼璁＄畻鏈哄繀椤讳簬杩愯鑴氭湰鐨勮绠楁満鏄悓涓�涓煙鐨勬垚鍛樿绠楁満
  • 杩滅▼璁＄畻鏈虹殑闃茬伀澧欎负鍏抽棴鐘舵�侊紝鎴栬缃簡銆愬叆绔欒鍒欍�戙�怶indows Management Instrumentation(WMI)銆戝厑璁?/li>

鍒版杩欑瘒鍏充簬濡備綍鐢╒BS鑴氭湰鏀堕泦杩滅▼璁＄畻鏈烘垨鏈湴璁＄畻鏈哄畨瑁呯殑杞欢鐨勬枃绔犲氨浠嬬粛鍒拌繖浜?鏇村鐩稿叧VBS鑴氭湰鏀堕泦璁＄畻鏈哄畨瑁呯殑杞唴瀹硅鎼滅储鑴氭湰涔嬪浠ュ墠鐨勬枃绔犳垨缁х画娴忚涓嬮潰鐨勭浉鍏虫枃绔犲笇鏈涘ぇ瀹朵互鍚庡澶氭敮鎸佽剼鏈箣瀹讹紒