users

[intro]

سلام
فايلي دارم كه ورود اطلاعات و گزارشگيري از طريق فرمهايي كه ساختم و كاربران صرفا فرمها را مي بينند ودسترسي به شيتها را ندارند . ورود به وسيله يوزرنيم و پسورد هست . حال ميخوام آي پي كاربري كه وارد شده را شناسايي كنم و در يه شيت نگهداري كنم ساعت و تاريخ ورود كاربر را تونستم در يه شيت انجام بدم ولي شناساي كامپيوتري كه كاربر توسط اون تونسته اين تغييرات را بده نتونستم انجام بدم. و همچنين تغييراتي را كه انجام ميده را د رمقابل آي پي اون نشون بده .

[Amin_D]

سلام
فايلي دارم كه ورود اطلاعات و گزارشگيري از طريق فرمهايي كه ساختم و كاربران صرفا فرمها را مي بينند ودسترسي به شيتها را ندارند . ورود به وسيله يوزرنيم و پسورد هست . حال ميخوام آي پي كاربري كه وارد شده را شناسايي كنم و در يه شيت نگهداري كنم ساعت و تاريخ ورود كاربر را تونستم در يه شيت انجام بدم ولي شناساي كامپيوتري كه كاربر توسط اون تونسته اين تغييرات را بده نتونستم انجام بدم. و همچنين تغييراتي را كه انجام ميده را د رمقابل آي پي اون نشون بده .

سلام دوست عزیز ، اگر ممکنه نمونه ای از فایلتون رو بزاریدو
با تشکر

[rezajaberpour]

با عرض سلام
فکر کنم جوابتون تو فایل ضمیمه باشه
رمز : reza
پسورد : 123
وارد شوید به کدها و نمونه ها توجه کنید می تونین اسم خودتون را با رمز در قسمت شیت یک وارد کنید و نتیجه را ببینید

[intro]

سلام
ممنونم كه جواب دادين
اما منظور بنده شناسايي كاربر نبود بلكه شناسايي كامپيوتري كه كاربر با اون وارد سيستم شده .

[rezajaberpour]

با سلام
من متوجه منظورتون نشدم ولی فکر کنم منظورتون اینه که بتونیم تشخیص بدیم که فایلی که اجرا می شه از طریق سریال نامبر و یا کدهای داخلی خود کامپیوتر اجرا بشه
یه نمونه براتونمی زارم ببینم منظورتون همینه

اگه ممکنه نمونه فایلتون را ارسال کنید
دوستان سوالاتشون را کامل بنویسن --------- اون جوابه که مختصر و مفیده میدن

[MEYTI]

با سلام دوست عزیز برای پیدا کردن یوزنیم کامپیوتر فعال از کدهای زیر استفاده کن

Dim USER As String

strComputer = "."
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem")
For Each objComputer In colSettings

USER = objComputer.UserName
Next

از مقدار user در محل مورد نظر استفاده کن

[intro]

سلام
ممنونم آقاي كريمي بسيار عالي بود . خيلي استفاده كرديم .
يه سوال ديگه . ميشه آي پي كامپيوتر رو هم شناسايي كرد؟

[MEYTI]

با سلام خواهش میکنم دوست عزیز
از کد زیر جهت بدست آوردن ip address استفاده کن

Sub IPtest()
Dim wsh As Object
Dim RegEx As Object, RegM As Object
Dim FSO As Object, fil As Object
Dim ts As Object, txtAll As String, TempFil As String
Set wsh = CreateObject("WScript.Shell")
Set FSO = CreateObject("Scripting.FileSystemObject")
Set RegEx = CreateObject("vbscript.regexp")
TempFil = "C:\myip.txt"
' Save ipconfig info to temporary file
wsh.Run "%comspec% /c ipconfig > " & TempFil, 0, True
With RegEx
.Pattern = "(\d{1,3}\.){3}\d{1,3}"
.Global = False
End With
Set fil = FSO.GetFile(TempFil)
' Access temporary file
Set ts = fil.OpenAsTextStream(1)
txtAll = ts.ReadAll
Set RegM = RegEx.Execute(txtAll)
' Return IP address to Activesheet cell A1 by parsing text
ActiveSheet.Range("A1").Value = RegM(0)
' ActiveSheet.Range("A1").EntireColumn.AutoFit
ts.Close
' Remove temp file
Kill TempFil

Set ts = Nothing
Set wsh = Nothing
Set fil = Nothing
Set FSO = Nothing
Set RegM = Nothing
Set RegEx = Nothing
End Sub

[alirazavi58]

سلام
کد ارور میده