hey yer barred
Board Regular
- Joined
- Jun 19, 2007
- Messages
- 232
Hi All
Im having a major problem here.
Someone has 'got it in for me' and deleting my work of servers. They do it everyday, 2 database and all reports templates for it. Now im getting the stick for it
So, is there anyway I can use VB6 or a excel sheet to track who goes into this folder and what they do....or even if it tracks who goes in it would be great.
We do have a log ID capture tool here....the coding is
Option Explicit
Private Declare Function Get_User_Name Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUserName() As String
Dim lpBuff As String * 40
Get_User_Name lpBuff, 40
'Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
GetUserName = Mid(lpBuff, 1, InStr(lpBuff, Chr(0)) - 1)
End Function
Please help me!
Thanks
J
Im having a major problem here.
Someone has 'got it in for me' and deleting my work of servers. They do it everyday, 2 database and all reports templates for it. Now im getting the stick for it
So, is there anyway I can use VB6 or a excel sheet to track who goes into this folder and what they do....or even if it tracks who goes in it would be great.
We do have a log ID capture tool here....the coding is
Option Explicit
Private Declare Function Get_User_Name Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetUserName() As String
Dim lpBuff As String * 40
Get_User_Name lpBuff, 40
'Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)
GetUserName = Mid(lpBuff, 1, InStr(lpBuff, Chr(0)) - 1)
End Function
Please help me!
Thanks
J