[gptalk] Re: Determining Who Has Run a Login Script

We do something similar but in our case it logs who logins into what
machine into a SQL database.  Below is the code (somewhat sloppy) but
hopefully it will get you started.  This is more than likely overkill
for what you want (my assumption), since you only want to see if it has
been installed and then you probably won't care after that.

 

 

'Find User/Computer SQL

Call SQLInsert

Sub SQLInsert

On Error Resume Next

Const adClipString = 2 

Const adOpenStatic = 3 

Const adLockOptimistic = 3 

  

strComputer = "."

Set wshNet = WScript.CreateObject("WScript.Network")

Set objWMIService = GetObject("winmgmts:" _

& "{impersonationLevel=impersonate}!\\" & strComputer& "\root\cimv2")

Set colItems = objWMIService.ExecQuery("Select * from
Win32_OperatingSystem",,48)

For Each objItem In colItems

ComputerName = objItem.CSName

Next

strUser = ""

While strUser = ""

strUser = wshNet.UserName

MyTime = Time

MyDate = Date

MyDateTime = Date + Time

Wend

nStatus = 1 

 

sCS = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=<FSpecOfExistingTestMDB>" 

sCS = "Provider=SQLOLEDB;Data
Source=yourServer;Trusted_Connection=Yes;Initial Catalog=yourDB;User
ID=logon;Password=yourPassword;" 

 

Set oCnct = CreateObject( "ADODB.Connection" ) 

oCnct.Open sCS 

 

Set oRS = CreateObject("ADODB.Recordset") 

oRS.Open    "SELECT * FROM Logon WHERE ComputerName = '" + ComputerName
+ "'", oCnct, adOpenStatic, adLockOptimistic 

 

If oRS.EOF Then

oRS.AddNew 

oRS.Fields( "ComputerName" ) = ComputerName 

 

End If 

oRS.Fields( "Status" ) = nStatus

oRS.Fields( "UserName" ) = strUser

oRS.Fields( "TimeStamp" ) = MyDateTime  

oRS.Update 

oRS.Close 

 

oCnct.Close 

Set oCnct = Nothing 

End Sub

'End Find User/Computer SQL

 

From: gptalk-bounce@xxxxxxxxxxxxx [mailto:gptalk-bounce@xxxxxxxxxxxxx]
On Behalf Of EIS Lists
Sent: Monday, October 22, 2007 1:16 PM
To: gptalk@xxxxxxxxxxxxx
Subject: [gptalk] Determining Who Has Run a Login Script

 

Hi -

 

We want to run a little logon script (or maybe startup script) to
install fonts and make a reg change. Is there an easy way to "log" who
has run this script? I thought about writing a line to a shared text
file but have not had much luck with that. This would affect about 100
computers.

 

Thanks.

Other related posts: