'######Collect computer information_Start######
On Error Resume Next
Set fso = CreateObject("")
Set f1 = ("info")
strComputer = "."
If = "" Then
'Collect local computer names
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_ComputerSystem", , 48)
J = 0
For Each objItem In colItems
If J = 0 Then (Trim()) Else (Trim()) 'Collect local computer names
J = J + 1
Next
'Collect computer login accounts
(chr(10))
(";")
(chr(10))
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_ComputerSystem", , 48)
J = 0
For Each objItem In colItems
If J = 0 Then (Trim()) Else (Trim()) 'Collect computer login accounts
J = J + 1
Next
'Collection of CPU information
(chr(10))
(";")
(chr(10))
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_Processor", , 48)
J = 1
For Each objItem In colItems
If J = 0 Then (Trim()) Else (Trim() & "||")
J = J + 1
Next
'Total memory capacity collected
(chr(10))
(";")
(chr(10))
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_ComputerSystem", , 48)
J = 2
For Each objItem In colItems
If J = 0 Then (Trim()/1024/1024 & " GB") Else (Trim()/1024/1024 & " GB" & "||")
J = J + 1
Next
'Collect graphics card information
(chr(10))
(";")
(chr(10))
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_VideoController", , 48)
J = 4
For Each objItem In colItems
If J = 0 Then (Trim() & ()) Else (Trim() & () & "||")
J = J + 1
Next
'Collect basic information of hard disk
(chr(10))
(";")
(chr(10))
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_DiskDrive", , 48)
J = 5
For Each objItem In colItems
If J = 0 Then (Trim() & ()/1024/1024/1024 & " GB" & ()) Else (Trim() & "--" & ()/1024/1024/1024 & " GB" & "--" & () & "||")
J = J + 1
Next
'Collect sound card information
(chr(10))
(";")
(chr(10))
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_SoundDevice", , 48)
J = 6
For Each objItem In colItems
If J = 0 Then (Trim()) Else (Trim() & "||")
J = J + 1
Next
'Collect network card information
(chr(10))
(";")
(chr(10))
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_NetworkAdapter", , 48)
J = 7
For Each objItem In colItems
If J = 0 Then (Trim() & () & () & ()) Else (Trim() & "--" & () & "--" & () & "--" &() & "||")
J = J + 1
Next
End If
'######Collect computer information_end#######
'######Upload_Start######
Dim WshShell, curDir, wShell, file
Set wShell = ("")
Set WshShell = ("")
Set FileSystem = ("")
Set OutPutFile = ("upload",2,True)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colItems = ("Select * from Win32_ComputerSystem", , 48)
J = 0
For Each objItem In colItems
If J = 0 Then file = "info " & Trim() & ".csv" Else file = "info " & Trim() & ".csv"
J = J + 1
Next
"open 192.168.0.254 2020"
"user iplog iplog"
"put " & file
"bye"
"ftp -n -s:upload"
Set wShell = Nothing
Set WshShell = Nothing
Set FileSystem = Nothing
Set OutPutFile = Nothing
'######Upload_end######
'######Delete_Start######
' 2000
'Set obj = CreateObject("")
'("upload")
'("info")
'()
(0)
'######self-delete_end########