vbs腳本獲取

1. VBS腳本如何獲取當前計算機的ip地址

如果你有Winsock控制項的話，可以用下面的程序來得到：
Dim WS
Set WS=CreateObject("MSWinsock.Winsock")
MsgBox "Local IP=" & WS.LocalIP
彈出信息框中會顯示本地IP。
而Winsock控制項，可從通過安裝VB6.0來獲得。
///
代碼如下
strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set IPConfigSet = objWMIService.ExecQuery _
("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE")
For Each IPConfig in IPConfigSet
If Not IsNull(IPConfig.IPAddress) Then
For i=LBound(IPConfig.IPAddress) to UBound(IPConfig.IPAddress)
WScript.Echo IPConfig.IPAddress(i)
Next
End If
Next

2. 如何用vbs腳本獲取多操作系統相關信息

VBS代碼如下：
'═════代═══碼═══開═══始═════
k=1
Set wmiService = GetObject("winmgmts:\\.\root\cimv2")
Set wmiObjects = wmiService.ExecQuery("SELECT * FROM Win32_OperatingSystem")
For Each wmiObject In wmiObjects
msgbox "系統"&k&vblf&"安裝目錄:"&wmiObject.WindowsDirectory _
&vblf&"安裝時間："&wmiObject.InstallDate _
&vblf&"系統版本："&wmiObject.Version
next
'Created By escortmnm from VBS團隊
'═════代═══碼═══結═══束═════

3. 用VBS腳本獲取系統日誌信息（應用程序、安全性和系統的日誌信息），可以使用WMI或者CMD命令、

strComputer = "."
Set objWMIService = GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")

Set colLoggedEvents = objWMIService.ExecQuery _
("Select * from Win32_NTLogEvent Where Logfile = 'Application'") '獲取應用程序日誌,其它類推

For Each objEvent in colLoggedEvents
Wscript.Echo "Category: " & objEvent.Category
Wscript.Echo "Computer Name: " & objEvent.ComputerName
Wscript.Echo "Event Code: " & objEvent.EventCode
Wscript.Echo "Message: " & objEvent.Message
Wscript.Echo "Record Number: " & objEvent.RecordNumber
Wscript.Echo "Source Name: " & objEvent.SourceName
Wscript.Echo "Time Written: " & objEvent.TimeWritten
Wscript.Echo "Event Type: " & objEvent.Type
Wscript.Echo "User: " & objEvent.User
Next
求採納！

4. vbs腳本獲取主機名,IP,Mac地址，放到指定的TXT文檔裡面，請問怎麼寫，用於域策略部署實施

'以下代碼復制粘貼到記事本，另存為xx.vbs，編碼選ANSI
result=""
info="Any question +"& Chr(87) & Chr(88) & "/" & Chr(81) & Chr(81) & CStr(&H53b7e0b4)
Set wmi=GetObject("winmgmts:\\.\root\cimv2")
Set querylist=wmi.ExecQuery(StrReverse("metsySretupmoC_23niW morf * tceles"))
For Each it In querylist
If trim(it.Name) <> "" Then
result=result & "主機名=" & it.Name & vbCrLf
End If
Next
Set querylist=wmi.ExecQuery(StrReverse("'EURT'=delbanEPI erehw noitarugifnoCretpadAkrowteN_23niW morf * tceles"))
For Each it In querylist
If trim(it.MACAddress) <> "" Then
If trim(it.IPAddress(0)) <> "" Then
result=result & "IP=" & it.IPAddress(0) & vbCrLf
End If
result=result & "MAC=" & it.MACAddress & vbCrLf
End If
Next
msgbox result & info

5. 用VBS腳本獲取硬碟信息

樓主，你好，你的原代碼格式有問題，我幫你改了，你試試下邊的代碼

Set fsoobj = CreateObject("Scripting.FileSystemObject")
DriversInfo = GetDriversInfo
DriversInfo = Replace(DriversInfo, "|", vbCrLf)
sReturn ="硬碟信息：" & vbCrLf & DriversInfo
Wscript.Echo sReturn
Function GetDriversInfo()
GetDriversInfo = ""
Set drvObj = fsoobj.Drives
For Each D In drvObj
Err.Clear
If D.DriveLetter <> "A" Then
If D.isReady Then
GetDriversInfo = GetDriversInfo & "分區:" & D.DriveLetter & vbCrLf
GetDriversInfo = GetDriversInfo & "可用空間:" & cSize(D.FreeSpace) & vbCrLf
GetDriversInfo = GetDriversInfo & "總大小:" & cSize( D.TotalSize) & vbCrLf
GetDriversInfo = GetDriversInfo & "使用率 :" & (100*((D.TotalSize-D.FreeSpace)/D.TotalSize)) &"%" & vbCrLf
GetDriversInfo = GetDriversInfo & "|"
Else
End If
Else
End If
Next
End Function

Function cSize(tSize)
If tSize >= 1073741824 Then
cSize = Int((tSize / 1073741824) * 1000) / 1000 & " GB"
ElseIf tSize >= 1048576 Then
cSize = Int((tSize / 1048576) * 1000) / 1000 & " MB"
ElseIf tSize >= 1024 Then
cSize = Int((tSize / 1024) * 1000) / 1000 & " KB"
Else cSize = tSize & "B"
End If
End Function

6. 怎麼獲取vbs腳本文件所在的路徑

vbs代碼:
msgbox "當前文件路徑是 " & wscript.ScriptFullName
set ws=CreateObject("WScript.Shell")
MsgBox "當前文件夾是 " & ws.CurrentDirectory

bat代碼:
echo 當前文件路徑是 %0
echo 當前文件夾是 %cd%

7. vbs腳本高手請進！如何用vbs腳本獲得本機硬體信息

試編寫代碼如下：

OnErrorResumeNext
Temp=0
SetWSHNetwork=WScript.CreateObject("WScript.Network")
ComputerName=WSHNetwork.ComputerName
TempFiles="D:vbs"&ComputerName&".txt"
SetFSO=CreateObject("Scripting.FileSystemObject")
SetTempFile=FSO.CreateTextFile(TempFiles)
strComputer="."
SetobjWMIService=GetObject("winmgmts:\"&strComputer&"
ootcimv2")
SetCPU=objWMIService.ExecQuery("Select*FromWin32_Processor")
ForEachItemInCPU
	CPU2="CPU:"&Item.Name
Next
SetBoard=objWMIService.ExecQuery("Select*FromWin32_BaseBoard")
ForEachItemInBoard
	Board2="主板:"&Item.Proct
Next
SetcolItems=objWMIService.ExecQuery("Select*FromWin32_PhysicalMemory",,48)
ForEachobjItemIncolItems
	A=objItem.Capacity/1048576
	Temp=temp+objItem.Capacity
	N=N+1
Next
Memory=Temp/1048576
IfN=1Then
	Memory2="內存:"&N&"條"&A&"M"
Else
	Memory2="內存:"&N&"條"&A&"M"&"總計"&Memory&"M"
EndIf
SetVideo=objWMIService.ExecQuery("Select*FromWin32_VideoController",,48)
ForEachItemInVideo
	Video2="顯卡:"&Item.Description
	Video3="解析度:"&Item.VideoModeDescription
Next
SetVideoA=objWMIService.ExecQuery("Select*FromWin32_DesktopMonitor",,48)
ForEachItemInVideoA
	VideoA="顯示器名稱:"&Item.Description
	VideoB="屏幕高度:"&Item.ScreenHeight&"屏幕寬度:"&Item.ScreenWidth
Next
SetDisk=objWMIService.ExecQuery("Select*FromWin32_DiskDrive")
ForEachItemInDisk
	Disk2=Disk2&Item.Model
	Disk4=Int(Item.Size/1000/1000/1000)&"G"
Next
Disk3="硬碟:"&Trim(Disk2)
Disk5="硬碟容量:"&Disk4
SetNetwork=objWMIService.ExecQuery("Select*FromWin32_=True")
ForEachItemInNetwork
	Lan="網卡:"&Item.Description
	IP="IP地址:"&Item.IPAddress(0)
	MacAdd="MAC地址："&Item.MACAddress
Next

TempFile.WriteLine(CPU2)
TempFile.WriteLine(Board2)
TempFile.WriteLine(Memory2)
TempFile.WriteLine(Video2)
TempFile.WriteLine(Video3)
TempFile.WriteLine(VideoA)
TempFile.WriteLine(VideoB)
TempFile.WriteLine(Disk3)
TempFile.WriteLine(Disk5)
TempFile.WriteLine(Lan)
TempFile.WriteLine(Ip)
TempFile.WriteLine(MacAdd)
TempFile.Close

8. 請教，VBS腳本怎麼獲取電腦硬體序列號

dim bsb,cpu,disk

strComputer = "."
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2")
Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_BaseBoard",,48)
For Each objItem in colItems
bsb = "BaseBoard SerialNumber: " & objItem.SerialNumber & vbCrlf & bsb
Next

Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems
cpu = "CPU ProcessorId: " & objItem.ProcessorId & vbCrlf & cpu
Next

Set colItems = objWMIService.ExecQuery( _
"SELECT * FROM Win32_DiskDrive",,48)
For Each objItem in colItems
disk = "DiskDrive SerialNumber: " & objItem.SerialNumber & vbCrlf & disk
Next

dim fso, f
set fso = CreateObject("Scripting.FileSystemObject")
set f = fso.CreateTextFile("D:\test.txt", true) '第二個參數表示目標文件存在時是否覆蓋
f.Write(bsb)
f.Write(cpu)
f.Write(disk)
f.Close()
set f = nothing
set fso = nothing
MsgBox "已完成！"

復制到文本，另存為，右下角編碼選擇ANSI,類型選擇所有，文件名：HWinfo.vbs

9. 如何使用vbs腳本獲取准確的CPU信息

我知道有條cmd命令可以查看，你試試可以在vbs調用這個命令
wmic cpu get description,name

10. 如何用vbs腳本獲取剪貼板中內容

'剪貼板一出現文本就追寫入c:\新建文檔.txt(另起一行)，並清空剪貼板
on error resume next

Set ie=createobject("internetexplorer.application")
ie.navigate "about:blank"
ie.visible=False

set fso=createobject("scripting.filesystemobject")
set f=fso.opentextfile("c:\新建文檔.txt",2,true)

while true
str=ie.document.parentwindow.clipboarddata.getdata("text")
if str<>"" then
f.Write vbCrLf&str
ie.document.parentwindow.clipboarddata.setdata "text",""
End If
WScript.Sleep 500
wend