vb code to write kml files

I have a text file in 2 columns where column 1 is date in dd/mm/yyyy while column 2 is a user's name.

11/12/2018         aaron
28/12/2018         amber
5/1/2019              ben
2/11/2018            barney
2/1/2019              carl
. . .

Need a Windows batch script (not PowerShell) that when I run today (say it's 18 Jan 2019 today), would lik eto
extract out a list of users where the date in the file is more than 31 days from today's date.  So output will be:

11/12/2018         aaron
2/11/2018            barney

How to extract NTFS Disk Security user list which was added in a disk using command prompt

Building off of https://www.experts-exchange.com/questions/29131838/Search-CIDR-subnet-ranges-with-powershell.html
I'd like to have a second file with known entries be searched first, then search the CIDR.csv failing a result on the main fields. I'd like to search on the main fields, IP, Host and User
Inventory.csv

IP_Address(s), Hostname, User, Notes
10.1.2.3, Workstation003, Jane Doe, HR Admin
10.10.0.3/1.2.3.4, Workstation001, John Doe, IT Analyst
10.1.2.30, Workstation007, James Bond, Janitor
10.69.69.23, WorkstationNiner, Tommy Boy, Sales
10.10.0.4, Workstation002, John Doe, IT Analyst

Select all Open in new window

In the above, searching based on User "John Doe" should have two results (on two lines)
.\finddetails "John Doe" (maybe switches are needed? Like -i = ip, -h=host, -u=user?)

IP_Address(s), Hostname, User, Notes, Subnet
-------------- -------------- -------------- --------------
10.10.0.3/1.2.3.4, Workstation001, John Doe, IT Analyst (Production, unknown)
10.10.0.4, Workstation002, John Doe, IT Analyst

Select all Open in new window

(Production)
[/code]
./finddetails 10.8.0.9

IP_Address(s), Hostname, User, Notes, Subnet
-------------- -------------- -------------- --------------
10.8.0.9, ???, ???, Telco, 10.8.0.0/24

Select all Open in new window

Something to that effect if that makes sense? If the IP doesn't match anything, then some nice error :)
Let me know if you have questions on the details, thanks!
-rich

I'd like to be able to search for an IP's within CIDR ranges/list, and output the information around that IP's CIDR file.
Very similar to this EE question https://www.experts-exchange.com/questions/29127048/Excel-CIDR-IP-Address-Overlap-Formula-Check-for-CIDR-IP-Address-Overlap.html

This is what I envision...
CIDR.csv

CIDR, Subnet_Name
10.0.0.0/24, Guest Network
10.10.0.0/23, Production
10.8.0.0/22, Telco
10.69.69.0/24, BoomChickaWowWow

Select all Open in new window

.\findip.ps1 10.0.0.22
    Found: 10.0.0.22 - Guest Network 10.0.0.0/24

.\findip.ps1 10.8.0.123, 10.69.69.68, 10.1.2.3
   Found: 10.8.0.123 - Telco 10.8.0.0/22
   Found: 10.69.69.68 - BoomChickaWowWow
   Not Found: 10.1.2.3

FindIp would look inside the cidr.csv and then expand the CIDR's and seqrch for matches within.

I have the below/attached employee table in an access database.  I need a query to find all the direct reports and indirect reports of a particular employee

EmpID      Fname      Lname      MngID
1      Fred      Flinstone      
2      Linda      Thompson      1
3      Sam      Adams      1
4      Jason      Williams      1
5      Michael       Jordan      2
6      Katey      Perry      5


If I wanted to find all the direct and indirect reports of EmpID 2,  it should return michael and Katey,   Excel or access should be ok


This is what I want to do but in access SQL Query to find all the subordinates of a superior

I'm very familiar with extracting information from register keys using VBScript, but I'm having trouble trying to extract a policy security setting on my machine using VBScript.  I can get to the information I need using gpedit.msc, and navigating to the folder  "Local Computer Policy\Computer Configuration\Windows Settings\Security Settings\Local Policies\Security Options", but I need to do this via a script that can be run on the laptop of everyone in my organization (to audit a security setting).  I don't want anyone running gpedit.msc on their machines.

I've tried using PowerShell, but I don't want anyone to have to change any settings on their computer (right now the script execution permission on our laptops is "restricted").  I would really like a VBScript that someone can just double-click and have it produce a file that I can then have them send to me.  I've searched the internet for hours and cannot find what I'm looking for.  Can anyone help?

Hi, Experts,
I just want to know how the hackers can penetrate my database. I am about to lunch my small project called, Daily Time Record (DTR) but I'm doubt the safety of it. The way I used to save the personnel data into my database is something like the code below. I am using Sql8. Is there anything to add to improve and keep away from hackers? Please give me some ideas.. Thanks!

<%
On Error Resume Next
dim icode,title,iname,famna

icode = request.querystring("a")
title = request.querystring("b")
iname = request.querystring("c")
famna = request.querystring("d")

db = request.querystring("db")
theServer = request.querystring("sr")


Set cn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")

cn.ConnectionString = "driver={SQL Server};server=" & theServer & ";uid=sa;pwd=3388;database=" & db & ""
cn.Open

If Err.Number <> 0 Then
   Response.Write(  Err.Number & "|" & Err.Description )
   Response.End()
end if

   cn.execute("Insert into Personnel(theCode,TheTitle,TheName,TheFamilyName) values('" & _
                         icode & "','" & title & "','" & replace(iname, "'","''") & "','" & replace(famna, "'","''") & "')")
   cn.close
	set cn = nothing

   response.write("Successfully enrolled new item!")    				      	
   response.end()
   
On Error GoTo 0
%>

Select all Open in new window

Hi Experts,
This is in reference of my previous question.
https://www.experts-exchange.com/questions/29131073/Function-to-return-given-records-from-multiple-files-needed.html?anchor=a42767252¬ificationFollowed=220950287#a42767252
I have now the following code

Public Function ListRecords(sFolder As String, sFile As String, sCriteria As String, sNewFile As String)
    Const ForReading = 1
    Dim objRegEx As Object, objFSO As Object, objFile As Object
    Set objRegEx = CreateObject("VBScript.RegExp")
    Set objFSO = CreateObject("Scripting.FileSystemObject")

    Set newFile = objFSO.CreateTextFile(sNewFile, True)
    
    objRegEx.Pattern = sCriteria
    sDir = sFolder & "\"
    StrFile = Dir(sDir & "*" & sFile & "*")
    Do While Len(StrFile) > 0
        Set objFile = objFSO.OpenTextFile(sDir & StrFile, ForReading)
            
        Do Until objFile.AtEndOfStream
            strSearchString = objFile.ReadLine
            Set colMatches = objRegEx.Execute(strSearchString)
            If colMatches.Count > 0 Then
                For Each strMatch In colMatches
                    '' Write strSearchString
                    newFile.Write strSearchString
                Next
            End If
        Loop
        'Debug.Print objFile.DateCreated
        objFile.Close

        
        StrFile = Dir

    Loop
    
    objFile.Close
    newFile.Close
End Function

Select all Open in new window

Would like to add the below
1- function should have another param for field name, one for field name and one for criteria.
2- should auto allocate the field position in order to find the matching criteria.
3- if possible to add date/time of file created of each file into the output file.

Thanks

Greeting Experts -

I need help creating a PowerShell script to pull a list of user names from Active Directory using each client/users First, Middle, and Last names to find each user in AD.  I don't know how difficult this may be, but if somebody can help with this issue, I would appreciate it.

Help coming up with a standard way to name files.   I often read through help documents and see different ways in which people notate the system in name files.

is there a standard way to notate file names that i can look at.  

Example of what i am trying to accomplish.

Every month we have a  file that comes in and we store it for archiving.  People name the files differently sometimes.
A billing file comes in from an outside agency.  the parameters are date of bill, agency issued etc..

Agency Name - Route24
Billing Date - Dec 30 2017

I would name the file    Dec302017_Route24.txt    here comes my problem.   What is a standard way to notate this in an instruction book for my users.  
Currently i would write something like this.    [Date]"_"[Agency].txt       which would then allow the user to come up with Dec302017_Route24.txt

i would like a standard that is exact and a standard that is written on a wiki page or something official... lol

does anyone have a link to a good document standardizing the basic notation on how to name a file?
I am interested more in the insturctions part... ie... when to use brackets, when to use apostrophe's etc...

I have a text file being created nightly in a network shared folder. That file has many lines including 3 duplicates. The line duplicated 3 times is:

ACCNT	Accounts Receivable - MU	OCASSET

Select all Open in new window

What I need to do is, from within an Access function, delete the 2nd and 3rd dupe, leaving the first one intact.

Why the dupes exist is a rabbit hole that I don't right now have time to fix even though yes, that is the correct way to really fix this problem. But, if I can just have Access code which will delete the 2nd and 3rd entry of that line, it will suffice as a solution for now.

Thank you very much for any input.

We have an Exchange 2013 server on-premesis, and we are trying to write a script to email out with authentication.  We have one script already working on one user, but we need to get another set of credentials working for another purpose, but are using the same script as the first to test.

So, basically, the user with the following details works:

Server: mail.clientdomain.com (maps to internal IP 192.168.1.1)
Port: 587
Username: user1
Password: password1

(Details obfuscated to protect client identity)

This user works just fine.

However, the user with the following details:

Server: mail.clientdomain.com (maps to internal IP 192.168.1.1)
Port: 587
Username: user2
Password: password2

Fails with the error "5.7.1 Client was not authenticated":

2018-12-18T21:47:01.898Z,MYSERVERNAME\Client Frontend MYSERVERNAME,08D6608980A971FE,25,192.168.1.1:587,192.168.1.1:57972,*,Tarpit for '0.00:00:05' due to '535 5.7.3 Authentication unsuccessful',
2018-12-18T21:47:06.914Z,MYSERVERNAME\Client Frontend MYSERVERNAME,08D6608980A971FE,26,192.168.1.1:587,192.168.1.1:57972,>,535 5.7.3 Authentication unsuccessful,
2018-12-18T21:47:06.914Z,MYSERVERNAME\Client Frontend MYSERVERNAME,08D6608980A971FE,27,192.168.1.1:587,192.168.1.1:57972,<,MAIL FROM:<usersemail@clientdomain.com>,
2018-12-18T21:47:06.914Z,MYSERVERNAME\Client Frontend MYSERVERNAME,08D6608980A971FE,28,192.168.1.1:587,192.168.1.1:57972,*,Tarpit for '0.00:00:05' due to '530 5.7.1 lient was not authenticated',
…