vbs鏌ヨ灞�鍩熺綉鍐呯數鑴戠殑杞欢鍜岀‖浠跺垪琛ㄦ竻鍗? target= |
|
本文标签：杞欢鍒楄〃,纭欢鍒楄〃 涓嬮潰鐨勪唬鐮佸湪windows涓嬪鏄撴姤姣掑ぇ瀹跺彲浠ユ斁蹇冧娇鐢?/p>
'==========================================================================
'
' Date:2009/3/19
' Name: 鏌ヨ杞欢鍜岀‖浠跺垪琛ㄦ竻鍗?
' Author:Smileruner
' www.overmcse.com
' 涓嶆敮鎸乄in2000鍙奧inNT
'
' 3/19,娣诲姞浜嗙綉鍗¤繃婊ゃ�?
'==========================================================================
'on error resume Next
const HKEY_LOCAL_MACHINE = &H80000002
const UNINSTALL_ROOT = "SoftwareMicrosoftWindowsCurrentVersionUninstall"
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, "rootcimv2")
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()
'鍑芥暟锛屽啓鍏PU淇℃伅
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()
'鍑芥暟锛屽啓鍏DROM淇℃伅
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 & "
ootdefault: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 "<tr>"
resultFile.Writeline "<td align=""left"" width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row""> " & caption & "</td>"
resultFile.Writeline "<td bgcolor=""#ffffff""> " & value & "</td>"
resultFile.Writeline "</tr>"
End Function
Function HtmlWriteHead()
'鍑芥暟锛屽啓鍏HML鏂囦欢澶?
resultFile.Writeline "<html>"
resultFile.Writeline "<head>"
resultFile.Writeline "<title>杞‖浠堕厤缃竻鍗?lt;/title>"
resultFile.Writeline "</head>"
resultFile.Writeline "<body>"
End Function
Function HtmlWriteEnd()
'鍑芥暟锛屽啓鍏tml鏂囦欢灏?
resultFile.Writeline "</body>"
resultFile.Writeline "</html>"
End Function
Function TableHead(pcname,str)
'鍑芥暟锛屽啓鍏tml琛ㄦ牸缁撳熬
resultFile.Writeline "<h3>" & pcname & str & " -- date:"&now()&" </h3>" & VbCrLf
resultFile.Writeline "<table width=""90%"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""1"" bgcolor=""#0000ff"">"
resultFile.Writeline "<tr>"
resultFile.Writeline "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""col"">璧勪骇绫诲瀷</th>"
resultFile.Writeline "<th bgcolor=""#ffffff"" scope=""col"">鏌ヨ缁撴灉鍊?lt;/th>"
resultFile.Writeline "</tr>"
strstyle = "<th width=""30%"" height=""25"" bgcolor=""#ffffff"" scope=""row"">"
End Function
Function TableEnd()
'鍑芥暟锛孒tml琛ㄦ牸缁撳熬
resultFile.Writeline "</table>"
End Function
vbs鍒ゆ柇鎿嶄綔绯荤粺
strComputer = "."
Set objWMIService = GetObject("winmgmts:\" & strComputer & "
ootcimv2")
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鏌ヨ灞�鍩熺綉鍐呯數鑴戠殑杞欢鍜岀‖浠跺垪琛ㄦ竻鍗曠殑鏂囩珷灏变粙缁嶅埌杩欎簡,鏇村鐩稿叧鏌ヨ杞欢鍜岀‖浠跺垪琛ㄦ竻鍗曞唴瀹硅鎼滅储鑴氭湰涔嬪浠ュ墠鐨勬枃绔犳垨缁х画娴忚涓嬮潰鐨勭浉鍏虫枃绔犲笇鏈涘ぇ瀹朵互鍚庡澶氭敮鎸佽剼鏈箣瀹讹紒 |
