نمایش نتایج: از شماره 1 تا 9 , از مجموع 9

موضوع: users

  1. #1


    آخرین بازدید
    2022/09/06
    تاریخ عضویت
    November 2010
    نوشته ها
    140
    امتیاز
    23
    سپاس
    22
    سپاس شده
    25 در 22 پست
    سطح اکسل
    68.00 %

    Question users

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

    اخطار: این یک موضوع قدیمی است
    به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.
    مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)

  2. سپاس ها (1)


  3.  

  4. #2


    آخرین بازدید
    2016/08/18
    تاریخ عضویت
    December 2010
    نوشته ها
    398
    امتیاز
    253
    سپاس
    750
    سپاس شده
    383 در 159 پست
    تعیین سطح نشده است

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

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

  5. سپاس ها (2)


  6. #3


    آخرین بازدید
    2020/11/10
    تاریخ عضویت
    October 2013
    محل سکونت
    اصفهان
    نوشته ها
    38
    امتیاز
    173
    سپاس
    10
    سپاس شده
    183 در 34 پست
    سطح اکسل
    0.00 %

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


  7. #4


    آخرین بازدید
    2022/09/06
    تاریخ عضویت
    November 2010
    نوشته ها
    140
    امتیاز
    23
    سپاس
    22
    سپاس شده
    25 در 22 پست
    سطح اکسل
    68.00 %

    سلام
    ممنونم كه جواب دادين
    اما منظور بنده شناسايي كاربر نبود بلكه شناسايي كامپيوتري كه كاربر با اون وارد سيستم شده .
    مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)

  8. #5


    آخرین بازدید
    2020/11/10
    تاریخ عضویت
    October 2013
    محل سکونت
    اصفهان
    نوشته ها
    38
    امتیاز
    173
    سپاس
    10
    سپاس شده
    183 در 34 پست
    سطح اکسل
    0.00 %

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

    اگه ممکنه نمونه فایلتون را ارسال کنید
    دوستان سوالاتشون را کامل بنویسن --------- اون جوابه که مختصر و مفیده میدن
    فايل هاي پيوست شده فايل هاي پيوست شده
    ویرایش توسط rezajaberpour : 2013/10/23 در ساعت 18:50

  9. سپاس ها (1)


  10. #6


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    با سلام دوست عزیز برای پیدا کردن یوزنیم کامپیوتر فعال از کدهای زیر استفاده کن
    کد:
    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 در محل مورد نظر استفاده کن
    مهدی کریمی


  11. #7


    آخرین بازدید
    2022/09/06
    تاریخ عضویت
    November 2010
    نوشته ها
    140
    امتیاز
    23
    سپاس
    22
    سپاس شده
    25 در 22 پست
    سطح اکسل
    68.00 %

    سلام
    ممنونم آقاي كريمي بسيار عالي بود . خيلي استفاده كرديم .
    يه سوال ديگه . ميشه آي پي كامپيوتر رو هم شناسايي كرد؟
    مواظب باشید به تابوت من آگهی تبلیغاتی نچسبانند (حسين پناهي)

  12. #8


    آخرین بازدید
    2022/12/26
    تاریخ عضویت
    November 2010
    محل سکونت
    کرج
    نوشته ها
    362
    امتیاز
    295
    سپاس
    193
    سپاس شده
    596 در 151 پست
    تعیین سطح نشده است

    MEYTI به Yahoo ارسال پیام
    با سلام خواهش میکنم دوست عزیز
    از کد زیر جهت بدست آوردن 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


    مهدی کریمی

  13. سپاس ها (2)


  14. #9

    آخرین بازدید
    2022/08/16
    تاریخ عضویت
    October 2018
    نوشته ها
    2
    امتیاز
    10
    سپاس
    0
    سپاس شده
    0 در 0 پست
    سطح اکسل
    74.00 %

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


اطلاعات موضوع

کاربرانی که در حال مشاهده این موضوع هستند

در حال حاضر 1 کاربر در حال مشاهده این موضوع است. (0 کاربران و 1 مهمان ها)

بازدید کنندگان با جستجو های زیر این صفحه را پیدا کرده اند

انجمن اكسل ايران , اكسل , اكسس , سوال و جواب اكسل , سوال اكسس , انجمن اكسل ايران , توابع اكسل, آموزش اكسل, آموزش اكسس, VBA, ويژوال بيسيك

کلمات کلیدی این موضوع

علاقه مندی ها (Bookmarks)

مجوز های ارسال و ویرایش

  • شما نمیتوانید موضوع جدیدی ارسال کنید
  • شما امکان ارسال پاسخ را ندارید
  • شما نمیتوانید فایل پیوست کنید.
  • شما نمیتوانید پست های خود را ویرایش کنید
  •  
  • BB code ها فعال هستند
  • شکلک ها فعال هستند
  • کد [IMG] فعال است
  • کد [VIDEO] فعال است
  • کد HTML غیر فعال است