'#####收集計算機信息_開始##### 
On Error Resume Next 
Set fso = CreateObject("Scripting.FileSystemObject") 
Set f1 = fso.CreateTextFile("info") 
strComputer = "." 
If Err.Description = "" Then 
'收集本地計算機名稱 
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 + 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_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 + 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 
'收集內存總容量 
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 
'收集網卡信息 
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 
'#####收集計算機信息_結束##### 
'#####上傳_開始##### 
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 
'#####上傳_結束##### 
'#####自刪除_開始##### 
'wscript.sleep 2000 
'Set obj = CreateObject("Scripting.FileSystemObject") 
'obj.DeleteFile("upload") 
'obj.DeleteFile("info") 
'obj.DeleteFile(WScript.ScriptName) 
WScript.Quit(0) 
'#####自刪除_結束#####