Windows vbs脚本获取系统信息

Windows vbs脚本获取系统信息

• 运行的进程
• 硬盘序列号
• 获取制造商
• 获取型号
• 获取生产日期
• 获取主板信息
• 获取SN号
• 获取系统类型及安装日期
• 获取CPU信息
• 获取内存信息
• 获取显卡信息
• 获取声卡型号
• 获取硬盘信息
• 获取光驱信息
• 获取显示器信息
• 获取Network 网卡信息
• 获取Network enable信息
• 获取MAC地址
• 获取IP地址
• 获取计算机名
• 获取CPU使用率
• 获取剩余内存
• 获取内存使用率
• 获取DNS地址
• 获取指定文本中指定内容
• 获取当前时间
• 获取系统补丁包信息
• 获取系统补丁最后更新时间
• 获取管理员用户
• 获取共享文件
• 获取系统补丁更新服务器地址
• 获取已安装软件
• 获取当前登录用户
• 获取系统类型32 64
• 输出格式为json串

strComputer = "." 
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\CIMV2") 
set oReg=Getobject("winmgmts:\\" & strComputer & "\root\default:StdRegProv")

On Error Resume Next

Set fso=CreateObject("Scripting.FileSystemObject")
set obshell = wscript.createobject("wscript.shell")
Set openFile=fso.OpenTextFile("C:/temp/wmic/opports.txt",1,true)
alllines ="" 
Do while not openfile.atendofstream
line = openfile.readline
'Wscript.Echo "line: " & line
if instr(line,"LISTENING") then
alllines = alllines & line & vbnewline
end if
loop
opports=alllines
set openFile=nothing
'Wscript.Echo  opports


REM '运行的进程' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_Process ",,48)  
For Each objItem in colItems
	proc_c1=objItem.Caption
        proc_c = proc_c1  & " ; " & proc_c
Next
'Wscript.Echo "Process:" & proc_c


REM '硬盘序列号' 
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia",,48)
For Each objItem in colItems
    disksn1 = objItem.SerialNumber
    disksn = disksn1 & " ! " & disksn
Next
'WScript.Echo "SerialNumber: " & disksn


REM '获取制造商' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_ComputerSystem",,48)  
For Each objItem in colItems  
	Mauf=objItem.Manufacturer
	'Wscript.Echo "Mauf: " & Mauf 
Next

REM '获取型号' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_ComputerSystem",,48)  
For Each objItem in colItems  
	Model=objItem.Model
	'Wscript.Echo "Model: " & Model
Next

REM '获取生产日期' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_BIOS",,48)  
For Each objItem in colItems  
	OpDte=objItem.ReleaseDate
	'Wscript.Echo "ReleaseDate: " & OpDte
Next

REM '获取主板信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_BaseBoard",,48)  
For Each objItem in colItems 
	MdBd=objItem.Manufacturer & "/" & objItem.Product & "/" & objItem.Version
	'Wscript.Echo "MdBd:" & MdBd
Next  

REM '获取SN号' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_BIOS",,48)  
For Each objItem in colItems  
	Sn=objItem.SerialNumber 
	'Wscript.Echo "Sn: " & Sn
Next

REM '获取系统类型及安装日期' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_OperatingSystem",,48)  
For Each objItem in colItems  
	OS=objItem.Caption 
        check1=objItem.InstallDate
	'Wscript.Echo "OS: " & OS
Next


REM '获取CPU信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_Processor",,48)  
For Each objItem in colItems 
	Processor=objItem.Name 
	'Wscript.Echo "Processors:         " & Processor 
Next

REM '获取内存信息' 
memcap=0 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_PhysicalMemory",,48)  
For Each objItem in colItems 
	Mem= objItem.Manufacturer & "/" & objItem.Speed
	MemCap=MemCap+objItem.Capacity
Next
Mem=Mem & "/" & round(MemCap/1024^3) & "GB"
'Wscript.Echo "Memory: " & Mem

'REM '获取显卡信息' 
'Set colItems = objWMIService.ExecQuery( _ 
'	"SELECT * FROM Win32_VideoController",,48)  
'For Each objItem in colItems 
'	Vdo=objItem.Name
	'Wscript.Echo "Vdo:" & Vdo
'Next

REM '获取声卡型号' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_SoundDevice",,48)  
For Each objItem in colItems  
	Snd=objItem.Name
	'Wscript.Echo "Snd: " & Snd
	exit for '默认声卡为第一个
Next
  
REM '获取硬盘信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_DiskDrive",,48)  
For Each objItem in colItems  
	Dsk=objItem.Model 
	'Wscript.Echo "Dsk: " & Dsk
	Exit For
Next

REM '获取光驱信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM CIM_CDROMDrive",,48)  
For Each objItem in colItems 
	Cdr=objItem.Name
	'Wscript.Echo "Cdr:" & Cdr
Next

REM '获取显示器信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_DesktopMonitor",,48)  
For Each objItem in colItems 
	Monitor=objItem.PNPDeviceID
Next

REM '获取Network 网卡信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE  IPEnabled = True",,48)  
For Each objItem in colItems 
	Network1=Mid(objItem.Caption,InStr(objItem.Caption,"]")+1) & " ; " & objItem.MACAddress & " ; " & objItem.IPAddress(0)
        Network=Network1 & " ! " & Network
	'Wscript.Echo "Network: " & Network 
Next

'REM '获取Network enable信息' 
'Set colItems = objWMIService.ExecQuery( _ 
'	"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE  IPEnabled = 'True",,48)  
'i=0
'redim arr_network(8) 
'For Each objItem in colItems 
'	Network1=Mid(objItem.Caption,InStr(objItem.Caption,"]")+1) & " ; " & 'objItem.MACAddress & " ; " & objItem.IPAddress(0)
'        Network=Network1 & " ! " & Network
'        arr_network(i)=Network1
'	'Wscript.Echo "Network: " &  arr_network(i)
'i=i+1
'Next
'network=arr_network(0)
'network2=arr_network(1)
'Wscript.Echo "Network: " &  network
'Wscript.Echo "Network2: " &  network2

REM '获取MAC地址' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE  IPEnabled = True",,48)  
For Each objItem in colItems  
	Mac=objItem.MACAddress 
	'Wscript.Echo "MACAddress: " & Mac 
Next

REM '获取IP地址' 
REM '判断DNS是否为空，判断IP地址开头是否为10或192' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE",,48)  
For Each objItem in colItems  
	If isNULL(objItem.DNSServerSearchOrder) Then
	Else
		IPX=objItem.IPAddress(0)  
		LefIP=split(IPX,".")(0) 
		If LefIP="10" OR LefIP="192" Then
			IP=IPX 
			'Wscript.Echo "ip:" & IP 
		End If
	End If
Next

REM '获取计算机名' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_ComputerSystem",,48)  
For Each objItem in colItems  
	HostName=objItem.Name 
	'Wscript.Echo "HostName:" & HostName 
Next






REM '获取CPU使用率'
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_Processor",,48)  
For Each objItem in colItems  
	cpuUse=objItem.LoadPercentage 
	'Wscript.Echo "cpuUse:" & cpuUse 
Next

REM '获取剩余内存'
REM Set colItems = objWMIService.ExecQuery( _ 
REM 	"SELECT * FROM Win32_PerfRawData_PerfOS_Memory",,48)  
REM For Each objItem in colItems  
REM 	freeMemory=objItem.AvailableMBytes / 1024
REM 	'Wscript.Echo "freeMemory:" & freeMemory 
REM Next



REM '获取内存使用率'
Set colItems = objWMIService.InstancesOf("Win32_OperatingSystem")  
For Each objItem in colItems  
	useMemory=((objItem.TotalVisibleMemorySize - objItem.FreePhysicalMemory) / objItem.TotalVisibleMemorySize)*100
	LeftUseMemory=split(useMemory,".")(0) 
	'Wscript.Echo "LeftUseMemory:" & LeftUseMemory
Next


REM '获取CPU描述信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_Processor",,48)  
For Each objItem in colItems 
	cName=objItem.Name
	Caption=objItem.Caption 
	cpuCaption = cName & ":" & Caption
	'Wscript.Echo "cpuCaption: " & cpuCaption 
Next


REM '获取显卡描述信息' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_DisplayConfiguration")  
For Each objItem in colItems 
	Version=objItem.DriverVersion 
	DeviceName=objItem.DeviceName
	DriverVersion = DeviceName & ":" & DeviceName
	'Wscript.Echo "DriverVersion: " & DriverVersion 
Next

REM '获取DNS地址' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled=TRUE",,48)  
For Each objItem in colItems  
	DNS = objItem.DNSServerSearchOrder(0)
	'Wscript.Echo "DNS:" & DNS 
Next


REM '厂商SP版本信息'
REM '厂商信息'
maufinfo = split(createobject("scripting.filesystemobject").opentextfile("C:\SPVersion.txt").readall,vbcrlf)
For i = 0 to ubound(maufinfo)
	if instr(maufinfo(i),"厂商") then 
		SPMauf = split(maufinfo(i),":")(1)
		'WScript.Echo "SPMauf:" & SPMauf
	end if
Next
REM '厂商对应SP版本信息'
spversion = split(createobject("scripting.filesystemobject").opentextfile("C:\SPVersion.txt").readall,vbcrlf)
For i = 0 to ubound(spversion)
	if instr(spversion(i),"SP版本") then 
		spv = split(spversion(i),":")(1)
		'WScript.Echo "spv:" & spv
	end if
Next

REM '厂商对应设备机型信息'
model = split(createobject("scripting.filesystemobject").opentextfile("C:\SPVersion.txt").readall,vbcrlf)
For i = 0 to ubound(model)
	if instr(model(i),"机型") then 
		maufModel = split(model(i),":")(1)
		'WScript.Echo "maufModel:" & maufModel
	end if
Next


REM '信息收集日期'
CurrentDate = year(Now) &"-"& Month(Now) &"-"& day(Now)
CurrentTime = Hour(Now) &":"& Minute(Now) &":"& Second(Now)
'Wscript.Echo "CurrentTime:" & CurrentDate &"/"& CurrentTime

REM '获取亚信软件版本'
Const sBaseKey = _
     "Software\Microsoft\Windows\CurrentVersion\Uninstall\"
 oReg.EnumKey HKEY_LOCAL_MACHINE, sBaseKey, arrSubKeys

Set objFSO = CreateObject("Scripting.FileSystemObject")
Const ForWriting = 2
REM Set textWritrFile = objFSO.OpenTextFile(FilePath & ucase(strComputerName) &".txt",ForWriting,True,True)
Set textWritrFile = objFSO.OpenTextFile("C:\software.txt",ForWriting,True,True)
For Each strSubKey In arrSubKeys
	intRet = oReg.GetStringValue(HKEY_LOCAL_MACHINE, sBaseKey & strSubKey, _
		"DisplayName", strValue)  
	intver = oReg.GetStringValue(HKEY_LOCAL_MACHINE, sBaseKey & strSubKey, _
		"DisplayVersion", strValue4)
	If intRet <> 0 Then
		intRet = oReg.GetStringValue(HKEY_LOCAL_MACHINE, sBaseKey & strSubKey, _
		"QuietDisplayName", strValue)
	End If
	
	If (strValue <> "") and (intRet = 0)   Then
        sf4=strValue4
        sf3= strValue & " | " & strValue4 
        yxsf= sf3  & " ; " & vbLf &   yxsf
        'WScript.Echo sf3
		
    End If
	REM textWritrFile.WriteLine(sf)
	REM textWritrFile.Close
	
	yx = InStr(yxsf,"亚信安全")
	if yx <> 0 Then
		sof = split(yxsf,"亚信安全 |")(1)
		yxsoftw = split(sof,";")(0)
		'WScript.Echo "softw:" & softw
	REM else
	REM	softw = "没有查询到亚信安全软件信息"
	end if
Next




REM 获取机器运行时长
Set WMI = GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\cimv2")
Set colLoggedEvents = WMI.ExecQuery("Select * from Win32_NTLogEvent Where Logfile = 'System' And EventCode = '6005' Or EventCode = '6006'")
For Each objEvent In colLoggedEvents
    Flag = Flag +1
    If Flag = 1 Then
        startTime=UTCtoNow(objEvent.TimeWritten)
    End If
Next

CurrentDate = year(Now) &"-"& Month(Now) &"-"& day(Now)
CurrentTime = Hour(Now) &":"& Minute(Now) &":"& Second(Now)

currentTime = CurrentDate &" "& CurrentTime

difMinute = datediff("s",startTime,currentTime ) / 60 / 60
difM = round(difMinute,2)
min=split(difM,".")(1)*60/100
m=Round(min,0)
hou=split(difM,".")(0)

diftime = hou &" 小时 "& m &" 分钟"
REM Wscript.Echo "difM:" & h &" 小时 "& m &" 分钟"
REM Wscript.Echo "diftime" & diftime
Function UTCtoNow(nD)
    If Not IsNull(nD) Then
    Set SWDT = CreateObject("WbemScripting.SWbemDateTime")
    SWDT.Value = nD
    UTCtoNow = SWDT.GetVarDate(True)
    End If
End Function



	
REM '获取系统补丁包信息' 
checkhot= "KB4012212"
checkhot2="KB4012598"
checkhot3="KB4012215"
checkhot4="KB4493470"
checkhot5="KB4462923"
checkhot6="KB4489878"
checkhot7="KB4471318"
checkhot8="KB4467684"
checkhot9="KB4489882"
cve07081="KB4499175"
cve07082="KB4499164"
cve07083="KB4500331"
cve10401="KB4503269"
cve10402="KB4503267"
cve10403="KB4503292"
cve20200601="KB4534270"
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_QuickFixEngineering",,48)  
Hotfix2 = 0
fixdate = 0
For Each objQuickFix in colItems  
	Hotfix1=objQuickFix.HotFixID
        fixdate1=objQuickFix.installedon
        IF fixdate1 <> "" then
         IF Cdate(fixdate) < Cdate(fixdate1)  then 
         fixdate = fixdate1
         end if
        lfixdate = fixdate1
        end if
        If objQuickFix.HotFixID = checkhot or objQuickFix.HotFixID = checkhot2 or objQuickFix.HotFixID = checkhot3 or  objQuickFix.HotFixID = checkhot4  or  objQuickFix.HotFixID = checkhot5 or  objQuickFix.HotFixID = checkhot6  or  objQuickFix.HotFixID = checkhot7 or  objQuickFix.HotFixID = checkhot8 or objQuickFix.HotFixID = checkhot9 Then 
        'Wscript.Echo "KB4012212 KB4012215 KB4462923 KB4471318 KB4489878 (win7) or KB4012598(winxp) or KB4493470 KB4467684 KB4489882(win10)已安装"
        chkhotfix = "KB4012212 KB4012215 KB4462923 KB4471318 KB4489878 (win7) or KB4012598(winxp)已安装 or KB4493470 KB4467684 KB4489882(win10)已安装"
        End If

       If objQuickFix.HotFixID = cve07081 or objQuickFix.HotFixID = cve07082 or objQuickFix.HotFixID = cve07083 Then 
       'Wscript.Echo "KB4499164  KB4499175 (win7) or KB4500331(winxp) cve20190708补丁已安装"
        vdo = "KB4499164  KB4499175 (win7) or KB4500331(winxp) cve20190708补丁已安装"
        End If

       If objQuickFix.HotFixID = cve10401 or objQuickFix.HotFixID = cve10402  or objQuickFix.HotFixID = cve10403 Then 
       'Wscript.Echo "KB4503269  KB4503292(win7) or KB4503267(win10) cve20191040补丁已安装"
        chkfix1 = "KB4503269  KB4503292(win7) or KB4503267(win10) cve20191040补丁已安装"
        End If

       If objQuickFix.HotFixID = cve20200601  Then 
       'Wscript.Echo "KB4534270(win10) cve20200601补丁已安装"
       chkfix3 = "KB4534270(win10) cve20200601补丁已安装"
        End If

        'Hotfix=Hotfix & " " & Hotfix1
        Hotfix2 = Hotfix2 + 1
	'Wscript.Echo "Hotfix:" & Hotfix2 
Next

REM '获取系统补丁最后更新时间' 
Hotfix3 = cstr(Hotfix2)
'fixdate= cstr(fixdate)
fixdate= RIGHT(fixdate,4)&"/"&LEFT(fixdate,LEN(fixdate)-5)
'Wscript.Echo "Hotfix: " & fixdate 
'Wscript.Echo "Hotfix: " & Hotfix3 
'Wscript.Echo "Hotfix:" & lfixdate


REM '获取管理员用户' 
dim strTemp
dim strTemp1
Set objGroup = GetObject("WinNT://./administrators")
adcount2=0
For each objMember in objGroup.Members
 if objMember.Name <> ("Domain Admins") and objMember.Name <> ("lc-admin")then
 'Wscript.Echo objMember.class & "=" & objMember.Name
 set objAd = GetObject("WinNT://" & strComputer & "/" & objMember.name)
 'Wscript.Echo objMember.Name & ":" & objAd.AccountDisabled
strTemp = objMember.class & "=" & objMember.Name  & "|" & objAd.AccountDisabled
strTemp1 = strTemp   & " ; " &   strTemp1
adcount2=adcount2 + 1 
 end if
Next
set objAd = GetObject("WinNT://" & strComputer & "/Guest")
guests=  "Guest|" & objAd.AccountDisabled
strTemp1 = strTemp1  & " ; " & guests
aduser = strTemp1
adcount = cstr(adcount2)
'Wscript.Echo "administrator count:" & adcount
'Wscript.Echo "administrator:" & strTemp1 

REM '获取共享文件' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_Share where type=0",,48)  
For Each objItem in colItems
	hs=objItem.Name
        hsTemp = objItem.Name
        hshare = hstemp  & " ; " &   hshare
	'Wscript.Echo "hshare:" & hshare
Next

REM '获取系统补丁更新服务器地址' 
Const HKEY_LOCAL_MACHINE = &H80000002
strkeypath="SOFTWARE\Policies\Microsoft\Windows\WindowsUpdate"
strvaluename="WUServer"
strvaluename1="WUStatusServer"
oReg.GetStringValue HKEY_LOCAL_MACHINE,strkeypath,strvaluename1,strValue
wuserver = strValue
'Wscript.Echo "Wuserver：" & wuserver

REM 'Mcafee杀毒软件更新日期'
mcfkeypath="SOFTWARE\McAfee\AVEngine"
mcfkeypath64="SOFTWARE\Wow6432Node\McAfee\AVEngine"
mcfvaluename="AVDatDate"
oReg.GetStringValue HKEY_LOCAL_MACHINE,mcfkeypath,mcfvaluename,mcf
oReg.GetStringValue HKEY_LOCAL_MACHINE,mcfkeypath64,mcfvaluename,mcf64
mcfdate=mcf & mcf64
'Wscript.Echo "Mcafeeupdate：" &  mcfdate

REM 'USB口使用状态'
usbkeypath="SYSTEM\CurrentControlSet\Services\USBSTOR"
usbvaluename="Start"
oReg.GetDwordValue HKEY_LOCAL_MACHINE,usbkeypath,usbvaluename,usbValue
usbstat = usbValue
'Wscript.Echo "Usbstat：" & usbstat

'获取已安装软件'
Const strBaseKey = _
     "Software\Microsoft\Windows\CurrentVersion\Uninstall\"
oReg.EnumKey HKEY_LOCAL_MACHINE, strBaseKey, arrSubKeys
 
For Each strSubKey In arrSubKeys
    intRet = oReg.GetStringValue(HKEY_LOCAL_MACHINE, strBaseKey & strSubKey, _
        "DisplayName", strValue)
    inttime = oReg.GetStringValue(HKEY_LOCAL_MACHINE, strBaseKey & strSubKey, _
        "Installdate", strValue2)
    intver = oReg.GetStringValue(HKEY_LOCAL_MACHINE, strBaseKey & strSubKey, _
        "DisplayVersion", strValue4)
    intSC= oReg.GetDwordValue(HKEY_LOCAL_MACHINE, strBaseKey & strSubKey, _
        "SystemComponent", strValue5)
    intpkn= oReg.GetStringValue(HKEY_LOCAL_MACHINE, strBaseKey & strSubKey, _
        "ParentKeyName", strValue6)
    If intRet <> 0 Then
        intRet = oReg.GetStringValue(HKEY_LOCAL_MACHINE, strBaseKey & strSubKey, _
        "QuietDisplayName", strValue)
    End If

    If (strValue <> "") and (intRet = 0)   Then
       sf1=strValue
       sf2=strValue2
       sf4=strValue4
       sf3= strValue & " | " & strValue2 & " | " & strValue4 & " |  SC=" & strValue5 & " |  PKN=" & strValue6
       sf= sf3  & " ; " &   sf
       'WScript.Echo sf3
     End If
  Next

'WScript.Echo sf



REM '获取当前登录用户' 
Set colItems = objWMIService.ExecQuery( _ 
	"SELECT * FROM Win32_ComputerSystem",,48)  
For Each objItem in colItems  
	cuser=objItem.UserName
        optype=objItem.SystemType
	'Wscript.Echo "cuser: " & cuser 
        'Wscript.Echo "optype: " & optype
Next

REM '获取系统类型32 64' 
REM OS=OS  & " ; " & optype
'Wscript.Echo "OS: " & OS


REM '定义查询sql串'
dim sqlStr

REM sqlStr = "{" & chr(34) & "Mauf" & chr(34) & ":" & chr(34) & SPMauf & ":" & maufModel & chr(34) & "," & chr(34) & "DNS" & chr(34) & ":" & chr(34) & DNS & chr(34) & "," & chr(34) & "Processor" & chr(34) & ":" & chr(34) & Processor & chr(34) & "," & chr(34) & "Mem" & chr(34) & ":" & chr(34) & Mem & chr(34) & ","	& chr(34) & "DESKINFO" & chr(34) & ":" & chr(34) & disksn & chr(34) & ","	& chr(34) & "Mainboard" & chr(34) & ":" & chr(34) & MdBd & chr(34) & ","	& chr(34) & "cpuUse" & chr(34) & ":" & chr(34) & cpuUse & "%" & chr(34) & "," & chr(34) & "UseMemory" & chr(34) & ":" & chr(34) & LeftUseMemory & "%" & chr(34) & ","	& chr(34) & "MainboardTemp" & chr(34) & ":" & chr(34) & MainboardTemp & chr(34) & "," & chr(34) & "Driver" & chr(34) & ":" & chr(34) & cpuCaption & "/" & DriverVersion & "/" & Network & chr(34) & ","	& chr(34) & "MaufSp" & chr(34) & ":" & chr(34) & SPMauf & ":" & spv & chr(34) & "," 	& chr(34) & "Virus" & chr(34) & ":" & chr(34) & softw & chr(34) & "," & chr(34) & "Mac" & chr(34) & ":" & chr(34) & Mac & chr(34) &  ","  & chr(34) & "script_name" & chr(34) & ":" & chr(34) & "C:\\EntegorAgent\\scripts\\collect\\code.vbs"  & chr(34) & ","& chr(34) & "diftime" & chr(34) & ":" & chr(34) & diftime & chr(34) & "}"
sqlStr = "{" & chr(34) & "Mauf" & chr(34) & ":" & chr(34) & SPMauf & ":" & maufModel & chr(34) & "," & chr(34) & "DNS" & chr(34) & ":" & chr(34) & DNS & chr(34) & "," & chr(34) & "Processor" & chr(34) & ":" & chr(34) & Processor & chr(34) & "," & chr(34) & "Mem" & chr(34) & ":" & chr(34) & Mem & chr(34) & ","	& chr(34) & "DESKINFO" & chr(34) & ":" & chr(34) & disksn & chr(34) & ","	& chr(34) & "Mainboard" & chr(34) & ":" & chr(34) & MdBd & chr(34) & ","	& chr(34) & "cpuUse" & chr(34) & ":" & chr(34) & cpuUse & "%" & chr(34) & "," & chr(34) & "UseMemory" & chr(34) & ":" & chr(34) & LeftUseMemory & "%" & chr(34) & ","	& chr(34) & "MainboardTemp" & chr(34) & ":" & chr(34) & MainboardTemp & chr(34) & "," & chr(34) & "Driver" & chr(34) & ":" & chr(34) & cpuCaption & " / " & DriverVersion & " / " & Network & chr(34) & ","	& chr(34) & "MaufSp" & chr(34) & ":" & chr(34) & SPMauf & ":" & spv & chr(34) & "," 	& chr(34) & "Virus" & chr(34) & ":" & chr(34) & softw & chr(34) & "," & chr(34) & "Mac" & chr(34) & ":" & chr(34) & Mac & chr(34) &  ","  & chr(34) & "script_name" & chr(34) & ":" & chr(34) & "C:\\EntegorAgent\\scripts\\collect\\code.vbs"  & chr(34) & "," & chr(34) & "Model" & chr(34) & ":" & chr(34) & Model & chr(34) & "," & chr(34) & "OpDte" & chr(34) & ":" & chr(34) & OpDte & chr(34) & "," & chr(34) & "sn" & chr(34) & ":" & chr(34) & sn & chr(34) & "," & chr(34) & "OS" & chr(34) & ":" & chr(34) & OS & chr(34) & "," & chr(34) & "IP" & chr(34) & ":" & chr(34) & IP & chr(34) & "," & chr(34) & "HostName" & chr(34) & ":" & chr(34) & HostName & chr(34) & ","& chr(34) & "dte" & chr(34) & ":" & chr(34) & CurrentDate &"-"& CurrentTime & chr(34) & ","& chr(34) & "aduser" & chr(34) & ":" & chr(34) & aduser & chr(34) & ","& chr(34) & "chkhotfix" & chr(34) & ":" & chr(34) & chkhotfix & chr(34) & ","& chr(34) & "software" & chr(34) & ":" & chr(34) & sf & chr(34) & ","& chr(34) & "usbstat" & chr(34) & ":" & chr(34) & usbstat & chr(34) & ","& chr(34) & "mcfdate" & chr(34) & ":" & chr(34) & mcfdate & chr(34) & ","& chr(34) & "fixdate" & chr(34) & ":" & chr(34) & fixdate & chr(34) & ","& chr(34) & "diftime" & chr(34) & ":" & chr(34) & diftime & chr(34) & ","& chr(34) & "backName" & chr(34) & ":" & chr(34) & backName & chr(34) & "}"
REM sqlStr = "{" & chr(34) & "Model" & chr(34) & ":" & chr(34) & Model & chr(34) & "," & chr(34) & "OpDte" & chr(34) & ":" & chr(34) & OpDte & chr(34) & "," & chr(34) & "sn" & chr(34) & ":" & chr(34) & sn & chr(34) & "," & chr(34) & "OS" & chr(34) & ":" & chr(34) & OS & chr(34) & "," & chr(34) & "IP" & chr(34) & ":" & chr(34) & IP & chr(34) & "," & chr(34) & "HostName" & chr(34) & ":" & chr(34) & HostName & chr(34) & ","& chr(34) & "dte" & chr(34) & ":" & chr(34) & CurrentDate &"-"& CurrentTime & chr(34) & ","& chr(34) & "aduser" & chr(34) & ":" & chr(34) & aduser & chr(34) & ","& chr(34) & "chkhotfix" & chr(34) & ":" & chr(34) & chkhotfix & chr(34) & ","& chr(34) & "software" & chr(34) & ":" & chr(34) & sf & chr(34) & ","& chr(34) & "usbstat" & chr(34) & ":" & chr(34) & usbstat & chr(34) & ","& chr(34) & "mcfdate" & chr(34) & ":" & chr(34) & mcfdate & chr(34) & ","& chr(34) & "fixdate" & chr(34) & ":" & chr(34) & fixdate & chr(34) & ","& chr(34) & "diftime" & chr(34) & ":" & chr(34) & diftime & chr(34) & "}"


Wscript.Echo sqlStr