Good afternoon,
I am using Openaudit and it Works very well . I am interested in making several changes, but when I verify the structure of the application I get confused, I want to create an option for audit.vbs so that it verifies the profiles that are in “documents and settings†and at the same time creates a list and adds it to the PC information. I have almost finished it but I have used the same table from pagefile.
How I can get the created list to be saved on a new table?
Thank you very much for your attention.
audit.vbs
'''''''''''''''''''''''''''''''''''' ' Pagefile information ' '''''''''''''''''''''''''''''''''''' comment = "Pagefile Info" Echo(comment) On Error Resume Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_PageFile",,48) For Each objItem in colItems form_input = "pagefile^^^" & clean(objItem.Name) & "^^^" & clean(objItem.InitialSize) & "^^^" & clean(objItem.MaximumSize) & "^^^" entry form_input,comment,objTextFile,oAdd,oComment form_input = "" Next
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Const USER_PROFILE = &H28& Dim objFolder, numSize
Set WSHNetwork = WScript.CreateObject ("WScript.Network") Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(USER_PROFILE) Set objFolderItem = objFolder.Self
Carpeta = "c:\Documents and Settings"
Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFolder = objFSO.GetFolder(Carpeta) Set colSubfolders = objFolder.Subfolders for Each objsubFolder in colSubfolders FileSize = int(objsubFolder.Size/1048576) MaxFileSize = int(objsubFolder.Size/1048576) form_input = "pagefile^^^" & objsubFolder.Name & "^^^" & FileSize & "^^^" & MaxFileSize & "^^^" entry form_input,comment,objTextFile,oAdd,oComment form_input = "" Next
''''''''''''''''''''''''''''''''''''''''' ' Motherboard information ' ''''''''''''''''''''''''''''''''''''''''' comment = "Motherboard Info" Echo(comment) On Error Resume Next
Set colItems = objWMIService.ExecQuery("Select * from Win32_BaseBoard",,48) For Each objItem in colItems Manufacturer = clean(objItem.Manufacturer) Product = clean(objItem.Product) Next ' Counting CPU sockets Set colItems = objWMIService.ExecQuery("SELECT * FROM Win32_Processor",,48) SocketDesignation = "" CpuSockets = 0 For Each objItem In colItems If Instr(SocketDesignation, objItem.SocketDesignation) = 0 Then CpuSockets = CpuSockets + 1 SocketDesignation = SocketDesignation & objItem.SocketDesignation End If Next ' Counting RAM slots Set colItems = objWMIService.ExecQuery("Select MemoryDevices FROM Win32_PhysicalMemoryArray ",,48) For Each objItem in colItems MemorySlots = objItem.MemoryDevices Next
form_input = "motherboard^^^" & Manufacturer & "^^^" & Product & "^^^" & CpuSockets & "^^^" & MemorySlots & "^^^" entry form_input,comment,objTextFile,oAdd,oComment form_input = ""
system_viewdef_os.php
"perfiles"=>array( "headline"=>__("Perfiles"), "sql"=>"SELECT * FROM pagefile WHERE pagefile_uuid = '".$_REQUEST["pc"]."' AND pagefile_name NOT LIKE '%pagefile.sys%' AND pagefile_timestamp = '".$GLOBAL["system_timestamp"]."' ORDER BY pagefile_name", "image"=>"images/shared_drive_l.png", "table_layout"=>"horizontal", "fields"=>array("10"=>array("name"=>"pagefile_name", "head"=>__("Name"),), "20"=>array("name"=>"pagefile_initial_size", "head"=>__("Initial Size"),), "30"=>array("name"=>"pagefile_max_size", "head"=>__("Maximum Size"),), ), ),
|