vbs鑾峰彇鎿嶄綔绯荤粺鍙婂叾鐗堟湰鍙? target= |
|
本文标签：vbs,鎿嶄綔绯荤粺 vbs鑾峰彇鎿嶄綔绯荤粺鍙婂叾鐗堟湰鍙?/h2>
'**************************************
'*by r05e
'*鎿嶄綔绯荤粺鍙婂叾鐗堟湰鍙?
'**************************************
strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" & strComputer & "
ootcimv2")
Set colOperatingSystems = objWMIService.ExecQuery _
("Select * from Win32_OperatingSystem")
For Each objOperatingSystem in colOperatingSystems
Wscript.Echo objOperatingSystem.Caption & " " & objOperatingSystem.Version
Next
Function X86orX64()
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem",,48)
For Each objItem in colItems
If InStr(objItem.SystemType, "64") <> 0 Then
X86orX64 = "x64"
Else
X86orX64 = "x86"
End If
Next
End Function
Function showOsInfo()
Dim res
On Error Resume Next
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootcimv2")
Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem",,48)
res ="infoStart"
For Each objItem in colItems
res =res & "_" & objItem.Caption
res =res & "_" & objItem.SystemDrive
res =res & "_" & objItem.Version
'WScript.Echo objItem.OSArchitecture
Next
res =res & "_" & X86orX64()
res =res & "_infoEnd"
WScript.Echo res
End Function
call showOsInfo()
WScript.Echo "complete!"
cmd鑴氭湰锛?/p>
@echo off
SETLOCAL ENABLEDELAYEDEXPANSION
rem 鏈剼鏈敤浜庣‘瀹氬綋鍓峮t5浠ヤ笂妗嗘灦宸ヤ綔绔欑郴缁熺殑绾у埆鐗堟湰鍜岀被鍨嬶紝闇�vbs/wmi 鏀寔
>%temp%verx.vbs echo Set wmi=GetObject("winmgmts:\.")
>>%temp%verx.vbs echo Set operation=wmi.instancesof(^"win32_Operatingsystem^")
>>%temp%verx.vbs echo For Each sys In operation
>>%temp%verx.vbs echo WScript.Echo sys.caption^&","^&sys.Version^&","^&sys.OSArchitecture
>>%temp%verx.vbs echo Next
set "winver=Unkonw"
for /f "skip=2 delims=, tokens=1,2,3" %%c in ('cscript "%temp%verx.vbs"') do (
echo %%c,%%d,%%e
echo ===========================================================
for /f "delims=. tokens=1,2" %%i in ("%%d") do (
if %%i.%%j equ 10.0 set "winver=Win_10"
if %%i.%%j equ 6.2 set "winver=Win_8"
if %%i.%%j equ 6.1 set "winver=Win_7"
if %%i.%%j equ 6.0 set "winver=Win_Vista"
if %%i.%%j equ 5.2 set "winver=Win_XP"
if %%i.%%j equ 5.1 set "winver=Win_XP"
if %%i.%%j equ 5.0 set "winver=Win_2K"
)
for /f "delims=- tokens=1" %%i in ("%%e") do (
set "winver=!winver!.%%i"
if %%i equ 32 set "winver=!winver:.%%i=.x86!"
if %%i equ 64 set "winver=!winver:.%%i=.x64!"
)
)
echo !winver!
鐢?vbs 璋冪敤 wmi 鏄剧ず 绯荤粺 name 鐩殑鏄?涓轰簡 涓?閫氳繃 version 寰楀嚭鐨勭郴缁焠ame瀵规瘮銆?br /> 鍏跺疄鍗曠嫭 鑾峰彇 version 鍙渶瑕?ver 鍛戒护 閰嶅 for 灏卞彲浠ヤ簡锛屼笉鐢ㄥ啀鏈?绗笁涓閮ㄥ懡浠ゃ�?/p> 鑰屼笖 version 纭畾绯荤粺name 鐨勬柟娉曟湰韬渶瑕佸弬鑰?ms 鐨勭郴缁焠ame涓巚ersion鍒楄〃锛屾湁鐨?server 鐗堜笌 workstation 鐗?鐢ㄤ竴涓獀ersion,鑰?xp 鏇存槸 鏈?5.1 5.2 涓や釜version cmd 涓?璋冪敤 wmic 鐨勬椂鍊?锛寃mic 鏈変竴涓?bug 灏辨槸 鍦ㄨ緭鍑?鏂囨湰娴?鏃讹紝姣忎竴琛岀粨灏鹃兘鐢?杞洖杞?纭洖杞?涓や釜绗﹀彿琛ㄧず鎹㈣锛岃�?杞洖杞︾鍙?浼氬湪 鑴氭湰涓弬涓?set 鐨勫彉閲忚缃�?br /> 鎵�浠ワ紝鎴戝湪鐢?wmic 鐨?get 鐨勬椂鍊?閮戒細闄勫甫涓�涓棤鐢ㄧ殑瀛楁鍚屾椂 鍔?/format:csv鍙傛暟锛岃鏃犵敤瀛楁鏉ュ寘鍚崲琛岀鍙凤紝閬垮厤瑕侀噰闆嗙殑鏁版嵁瀛楁鍖呭惈鎹㈣绗︺�?br /> 鐪嬫潵 浣犵敤 findstr 姝ｅ垯鐨勬柟寮忚В鍐?杩樹笉閿欙紝灏辨槸濡傛灉娑夊強 鍏朵粬闈炴暟瀛楃殑瀛楁灏辫鍙︽兂鍔炴硶銆?/p> 鍦?娌℃湁 wmi 鐨勬儏鍐典笅 锛岄�氳繃 vbs 鑾峰彇绯荤粺鐗堟湰锛屽彲浠ラ�氳繃 vbs 鑾峰彇 绯荤粺 explorer.exe 鐨勬枃浠剁増鏈?鏉ョ‘瀹氱郴缁焩ersion ,閫氳繃 鏄庣‘绯荤粺鏄惁瀛樺湪 SysWOW64 鏂囦欢澶?鏉ョ‘瀹?鏄惁涓?x64. VBS 鑾峰彇鎸囧畾鐢佃剳鐨勯儴鍒嗕俊鎭?/h2>
Program Name: Get_Remote_PC_Partial_Information.vbs
----The Code as Below
'--------------------------
'Author By: Wei_Zhu
'Creation Date: 2010-03-08
'--------------------------
On Error Resume Next
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook=objExcel.Workbooks.Add() 'This is add new
Set objRange = objExcel.Range("A1","E1")
objRange.Font.Size = 10
objrange.Font.Bold = True
objrange.Font.Name = "Times New Roman"
objrange.Cells(1).Value="Domain"
objrange.Cells(2).Value="IP"
objrange.Cells(3).Value="Manufacturer"
objrange.Cells(4).Value="Model"
objrange.Cells(5).Value="Serial Number"
objrange.Interior.ColorIndex = 34 'Set BackColor
objRange.Borders.LineStyle = 1
Set objRange = objExcel.ActiveCell.EntireColumn
objRange.AutoFit()
'----Auto Fill The Column Width---
Set objcol = objExcel.Columns("A:E").EntireColumn
objcol.AutoFit
set ws=createobject("wscript.shell")
set fso=createobject("scripting.filesystemobject")
set folder=fso.getfolder(ws.CurrentDirectory&"/Computer")
Set fc = folder.Files
For Each f1 in fc
s = folder&"/" & f1.name
set ts = fso.OpenTextFile(s, ForReading)
lint_line =2
Do While Not ts.AtEndOfStream
l_ip = ts.ReadLine
GetPCInfo l_ip,f1.Name,lint_line
lint_line = lint_line +1
Loop
lint_line=0
ts.Close
Next
objExcel.DisplayAlerts = False 'Close the Alert
'objExcel.ActiveWorkBook.Saveas lstg_to_f,-4143
'msgbox lstg_to_f
objExcel.ActiveWorkBook.Saveas folder&".xls",-4143
objExcel.DisplayAlerts = False ''Close the Save Alert
objExcel.ActiveWorkbook.Close
objExcel.DisplayAlerts = False
objExcel.Application.Quit
Function GetPCInfo(ByVal ip, ByVal l_fn, ByVal l_line)
'Function GetPCInfo(l_fn,l_line)
strComputer = ip
objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!//" & strComputer & "/root/cimv2")
colItems = objWMIService.ExecQuery("Select * from Win32_SystemEnclosure")
l_Array = Split(l_fn, ".", -1, 1)
For Each objItem In colItems
'MsgBox "Manufacturer: " & objItem.Manufacturer
' Msgbox "Product: " & objItem.Product
' Msgbox "Serial Number: " & objItem.SerialNumber
objRange = objExcel.Range("A" & l_line, "E" & l_line)
objRange.Cells(1).value = l_Array(0)
objRange.Cells(2).value = ip
objRange.Cells(3).value = objItem.Manufacturer
objRange.Cells(4).value = objItem.Model
objRange.Cells(5).value = objItem.SerialNumber
Next
'----Auto Fill The Column Width---
objcol = objExcel.Columns("A:E").EntireColumn
objcol.AutoFit()
鍒版杩欑瘒鍏充簬vbs鑾峰彇鎿嶄綔绯荤粺鍙婂叾鐗堟湰鍙风殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧vbs鎿嶄綔绯荤粺淇℃伅鍐呭璇锋悳绱㈣剼鏈箣瀹朵互鍓嶇殑鏂囩珷鎴栫户缁祻瑙堜笅闈㈢殑鐩稿叧鏂囩珷甯屾湜澶у浠ュ悗澶氬鏀寔鑴氭湰涔嬪锛?/p> |
