這個(gè)腳本的功能是運(yùn)行后自動(dòng)將查詢到的計(jì)算機(jī)相關(guān)信息記錄到一個(gè)文檔中，然后在經(jīng)過(guò)FTP將生成的文件上傳至服務(wù)器保存，最后在清除運(yùn)行腳本是生成的文件并刪除自身。

代碼如下:

'#####收集計(jì)算機(jī)信息_開始#####

On Error Resume Next

Set fso = CreateObject("Scripting.FileSystemObject")

Set f1 = fso.CreateTextFile("info")

strComputer = "."

If Err.Description = "" Then

'收集本地計(jì)算機(jī)名稱

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)

J = 0

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.Name)) Else f1.write (Trim(objItem.Name)) '收集本地計(jì)算機(jī)名稱

J = J + 1

Next

'收集計(jì)算機(jī)登錄帳戶

f1.write (chr(10))

f1.write (";")

f1.write (chr(10))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)

J = 0

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.UserName)) Else f1.write (Trim(objItem.UserName)) '收集計(jì)算機(jī)登錄帳戶

J = J + 1

Next

'收集CPU信息

f1.write (chr(10))

f1.write (";")

f1.write (chr(10))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_Processor", , 48)

J = 1

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.Name)) Else f1.write (Trim(objItem.Name) & "||")

J = J + 1

Next

'收集內(nèi)存總?cè)萘?/P>

f1.write (chr(10))

f1.write (";")

f1.write (chr(10))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)

J = 2

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.TotalPhysicalMemory)/1024/1024 & " GB") Else f1.write (Trim(objItem.TotalPhysicalMemory)/1024/1024 & " GB" & "||")

J = J + 1

Next

'收集顯卡信息

f1.write (chr(10))

f1.write (";")

f1.write (chr(10))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_VideoController", , 48)

J = 4

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.Caption) & (objItem.VideoModeDescription)) Else f1.write (Trim(objItem.Caption) & (objItem.VideoModeDescription) & "||")

J = J + 1

Next

'收集硬盤基本信息

f1.write (chr(10))

f1.write (";")

f1.write (chr(10))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_DiskDrive", , 48)

J = 5

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.Model) & (objItem.Size)/1024/1024/1024 & " GB" & (objItem.Partitions)) Else f1.write (Trim(objItem.Model) & "--" & (objItem.Size)/1024/1024/1024 & " GB" & "--" & (objItem.Partitions) & "||")

J = J + 1

Next

'收集聲卡信息

f1.write (chr(10))

f1.write (";")

f1.write (chr(10))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_SoundDevice", , 48)

J = 6

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.ProductName)) Else f1.write (Trim(objItem.ProductName) & "||")

J = J + 1

Next

'收集網(wǎng)卡信息

f1.write (chr(10))

f1.write (";")

f1.write (chr(10))

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_NetworkAdapter", , 48)

J = 7

For Each objItem In colItems

If J = 0 Then f1.write (Trim(objItem.NetConnectionID) & (objItem.Description) & (objItem.MACAddress) & (objItem.Manufacturer)) Else f1.write (Trim(objItem.NetConnectionID) & "--" & (objItem.ProductName) & "--" & (objItem.MACAddress) & "--" &(objItem.Manufacturer) & "||")

J = J + 1

Next

End If

f1.Close

'#####收集計(jì)算機(jī)信息_結(jié)束#####

'#####上傳_開始#####

Dim WshShell, curDir, wShell, file

Set wShell = WScript.CreateObject("Shell.Application")

Set WshShell = WScript.CreateObject("WScript.Shell")

Set FileSystem = WScript.CreateObject("Scripting.FileSystemObject")

Set OutPutFile = FileSystem.OpenTextFile("upload",2,True)

Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from Win32_ComputerSystem", , 48)

J = 0

For Each objItem In colItems

If J = 0 Then file = "info " & Trim(objItem.Name) & ".csv" Else file = "info " & Trim(objItem.Name) & ".csv"

J = J + 1

Next

OutPutFile.WriteLine "open 192.168.0.254 2020"

OutPutFile.WriteLine "user iplog iplog"

OutPutFile.WriteLine "put " & file

OutPutFile.WriteLine "bye"

OutPutFile.Close

Wshshell.run "ftp -n -s:upload"

Set wShell = Nothing

Set WshShell = Nothing

Set FileSystem = Nothing

Set OutPutFile = Nothing

'#####上傳_結(jié)束#####

'#####自刪除_開始#####

'wscript.sleep 2000

'Set obj = CreateObject("Scripting.FileSystemObject")

'obj.DeleteFile("upload")

'obj.DeleteFile("info")

'obj.DeleteFile(WScript.ScriptName)

WScript.Quit(0)

'#####自刪除_結(jié)束#####