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 NextSet 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  opportsREM '运行的进程'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_Process ",,48)
For Each objItem in colItemsproc_c1=objItem.Captionproc_c = proc_c1  & " ; " & proc_c
Next
'Wscript.Echo "Process:" & proc_cREM '硬盘序列号'
Set colItems = objWMIService.ExecQuery("Select * from Win32_PhysicalMedia",,48)
For Each objItem in colItemsdisksn1 = objItem.SerialNumberdisksn = disksn1 & " ! " & disksn
Next
'WScript.Echo "SerialNumber: " & disksnREM '获取制造商'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems  Mauf=objItem.Manufacturer'Wscript.Echo "Mauf: " & Mauf
NextREM '获取型号'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems  Model=objItem.Model'Wscript.Echo "Model: " & Model
NextREM '获取生产日期'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_BIOS",,48)
For Each objItem in colItems  OpDte=objItem.ReleaseDate'Wscript.Echo "ReleaseDate: " & OpDte
NextREM '获取主板信息'
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
NextREM '获取系统类型及安装日期'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_OperatingSystem",,48)
For Each objItem in colItems  OS=objItem.Caption check1=objItem.InstallDate'Wscript.Echo "OS: " & OS
NextREM '获取CPU信息'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems Processor=objItem.Name 'Wscript.Echo "Processors:         " & Processor
NextREM '获取内存信息'
memcap=0
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_PhysicalMemory",,48)
For Each objItem in colItems Mem= objItem.Manufacturer & "/" & objItem.SpeedMemCap=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
'NextREM '获取声卡型号'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_SoundDevice",,48)
For Each objItem in colItems  Snd=objItem.Name'Wscript.Echo "Snd: " & Sndexit for '默认声卡为第一个
NextREM '获取硬盘信息'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DiskDrive",,48)
For Each objItem in colItems  Dsk=objItem.Model 'Wscript.Echo "Dsk: " & DskExit For
NextREM '获取光驱信息'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM CIM_CDROMDrive",,48)
For Each objItem in colItems Cdr=objItem.Name'Wscript.Echo "Cdr:" & Cdr
NextREM '获取显示器信息'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DesktopMonitor",,48)
For Each objItem in colItems Monitor=objItem.PNPDeviceID
NextREM '获取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: " &  network2REM '获取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
NextREM '获取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) ThenElseIPX=objItem.IPAddress(0)  LefIP=split(IPX,".")(0) If LefIP="10" OR LefIP="192" ThenIP=IPX 'Wscript.Echo "ip:" & IP End IfEnd If
NextREM '获取计算机名'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems  HostName=objItem.Name 'Wscript.Echo "HostName:" & HostName
NextREM '获取CPU使用率'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems  cpuUse=objItem.LoadPercentage 'Wscript.Echo "cpuUse:" & cpuUse
NextREM '获取剩余内存'
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 NextREM '获取内存使用率'
Set colItems = objWMIService.InstancesOf("Win32_OperatingSystem")
For Each objItem in colItems  useMemory=((objItem.TotalVisibleMemorySize - objItem.FreePhysicalMemory) / objItem.TotalVisibleMemorySize)*100LeftUseMemory=split(useMemory,".")(0) 'Wscript.Echo "LeftUseMemory:" & LeftUseMemory
NextREM '获取CPU描述信息'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_Processor",,48)
For Each objItem in colItems cName=objItem.NameCaption=objItem.Caption cpuCaption = cName & ":" & Caption'Wscript.Echo "cpuCaption: " & cpuCaption
NextREM '获取显卡描述信息'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_DisplayConfiguration")
For Each objItem in colItems Version=objItem.DriverVersion DeviceName=objItem.DeviceNameDriverVersion = DeviceName & ":" & DeviceName'Wscript.Echo "DriverVersion: " & DriverVersion
NextREM '获取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
NextREM '厂商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:" & SPMaufend 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:" & spvend if
NextREM '厂商对应设备机型信息'
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:" & maufModelend if
NextREM '信息收集日期'
CurrentDate = year(Now) &"-"& Month(Now) &"-"& day(Now)
CurrentTime = Hour(Now) &":"& Minute(Now) &":"& Second(Now)
'Wscript.Echo "CurrentTime:" & CurrentDate &"/"& CurrentTimeREM '获取亚信软件版本'
Const sBaseKey = _"Software\Microsoft\Windows\CurrentVersion\Uninstall\"oReg.EnumKey HKEY_LOCAL_MACHINE, sBaseKey, arrSubKeysSet 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 arrSubKeysintRet = oReg.GetStringValue(HKEY_LOCAL_MACHINE, sBaseKey & strSubKey, _"DisplayName", strValue)  intver = oReg.GetStringValue(HKEY_LOCAL_MACHINE, sBaseKey & strSubKey, _"DisplayVersion", strValue4)If intRet <> 0 ThenintRet = oReg.GetStringValue(HKEY_LOCAL_MACHINE, sBaseKey & strSubKey, _"QuietDisplayName", strValue)End IfIf (strValue <> "") and (intRet = 0)   Thensf4=strValue4sf3= strValue & " | " & strValue4 yxsf= sf3  & " ; " & vbLf &   yxsf'WScript.Echo sf3End IfREM textWritrFile.WriteLine(sf)REM textWritrFile.Closeyx = InStr(yxsf,"亚信安全")if yx <> 0 Thensof = split(yxsf,"亚信安全 |")(1)yxsoftw = split(sof,";")(0)'WScript.Echo "softw:" & softwREM elseREM  softw = "没有查询到亚信安全软件信息"end if
NextREM 获取机器运行时长
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 colLoggedEventsFlag = Flag +1If Flag = 1 ThenstartTime=UTCtoNow(objEvent.TimeWritten)End If
NextCurrentDate = year(Now) &"-"& Month(Now) &"-"& day(Now)
CurrentTime = Hour(Now) &":"& Minute(Now) &":"& Second(Now)currentTime = CurrentDate &" "& CurrentTimedifMinute = 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) ThenSet SWDT = CreateObject("WbemScripting.SWbemDateTime")SWDT.Value = nDUTCtoNow = SWDT.GetVarDate(True)End If
End FunctionREM '获取系统补丁包信息'
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.HotFixIDfixdate1=objQuickFix.installedonIF fixdate1 <> "" thenIF Cdate(fixdate) < Cdate(fixdate1)  then fixdate = fixdate1end iflfixdate = fixdate1end ifIf 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 IfIf 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 IfIf 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 IfIf objQuickFix.HotFixID = cve20200601  Then 'Wscript.Echo "KB4534270(win10) cve20200601补丁已安装"chkfix3 = "KB4534270(win10) cve20200601补丁已安装"End If'Hotfix=Hotfix & " " & Hotfix1Hotfix2 = Hotfix2 + 1'Wscript.Echo "Hotfix:" & Hotfix2
NextREM '获取系统补丁最后更新时间'
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:" & lfixdateREM '获取管理员用户'
dim strTemp
dim strTemp1
Set objGroup = GetObject("WinNT://./administrators")
adcount2=0
For each objMember in objGroup.Membersif objMember.Name <> ("Domain Admins") and objMember.Name <> ("lc-admin")then'Wscript.Echo objMember.class & "=" & objMember.Nameset 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 colItemshs=objItem.NamehsTemp = objItem.Namehshare = hstemp  & " ; " &   hshare'Wscript.Echo "hshare:" & hshare
NextREM '获取系统补丁更新服务器地址'
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：" & wuserverREM '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：" &  mcfdateREM '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, arrSubKeysFor Each strSubKey In arrSubKeysintRet = 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 ThenintRet = oReg.GetStringValue(HKEY_LOCAL_MACHINE, strBaseKey & strSubKey, _"QuietDisplayName", strValue)End IfIf (strValue <> "") and (intRet = 0)   Thensf1=strValuesf2=strValue2sf4=strValue4sf3= strValue & " | " & strValue2 & " | " & strValue4 & " |  SC=" & strValue5 & " |  PKN=" & strValue6sf= sf3  & " ; " &   sf'WScript.Echo sf3End IfNext'WScript.Echo sfREM '获取当前登录用户'
Set colItems = objWMIService.ExecQuery( _ "SELECT * FROM Win32_ComputerSystem",,48)
For Each objItem in colItems  cuser=objItem.UserNameoptype=objItem.SystemType'Wscript.Echo "cuser: " & cuser 'Wscript.Echo "optype: " & optype
NextREM '获取系统类型32 64'
REM OS=OS  & " ; " & optype
'Wscript.Echo "OS: " & OSREM '定义查询sql串'
dim sqlStrREM 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

Windows vbs脚本获取系统信息相关推荐

VBS脚本获取安全标识符SID（Security Identifiers）的方法
一.SID简介 SID也就是安全标识符(Security Identifiers),是标识用户.组和计算机帐户的唯一的号码.在第一次创建该帐户时,将给网络上的每一个帐户发布一个唯一的 S ...
Windows bat脚本获取IP
初次接触windows脚本,感觉还不错,主要是可以使用记事本编写,方便!!保存成.bat格式的就可以直接运行!在Windows脚本这篇博客里,我已经写过了输出hello world!这里就给贴个获取当 ...
Windows bat脚本获取administrator权限
代码: @echo off echo 获取Administrator权限 cacls.exe "%SystemDrive%\System Volume Information" & ...
html文档php 取mac地址_cpu序列号_硬盘序列号,用vbs脚本获取网卡MAC,CPUID,硬盘序列号的实现代码...
这里先给大家分享一个分配静态ip地址的代码 ' Assign a Static IP Address strComputer = "." Set objWMIService = G ...
转：获取脚本运行路径的VBS脚本
有一篇蛮不错的文章,收录如此,供参考! -------------------------------------------------------------------------------- ...
那些年，我写过的设置Windows系统变量的vbs脚本
下面是我之前整理过的三段vbs代码,他们的主要都是用于快速设置Windows系统变量的.这些代码,在使用的过程中,都做了很多修改,已经记不清最初从哪里学来的了. 第一段: Set WshShell=C ...
windows下vbs脚本隐藏控制台
每次想写python代码时,都需要打开IDE进行编写,并且需要创建许多小文件.如果使用jupyter就能够直接书写.但是jupyter需要手动通过控制台打开,这不够方便.通过把jupyter note ...
windows下运行vbs脚本
windows下运行vbs脚本 vbs基础教程简单的代码(此代码来自脚本之家,如果侵犯了您的权利请与本人联系) REM 输入并回显你的名字 '使用InputBox和Msgbox函数 '(上面及本行可 ...
脚本 | 获取windows安装软件列表
@echo off & setlocal enabledelayedexpansion title 已安装程序列表获取脚本 :: 友情提醒:此脚本获取的已安装程序列表,仅针对正常安装的程序,那 ...

Windows vbs脚本获取系统信息

Windows vbs脚本获取系统信息

Windows vbs脚本获取系统信息相关推荐

最新文章

热门文章