باسلام
چگونه مي تونم نام يک کامپيوتر را به دست آورم .
براي ساير مشخصات کامپيوتر اگه توابع يا کدي هست لطفا بگيد
Printable View
باسلام
چگونه مي تونم نام يک کامپيوتر را به دست آورم .
براي ساير مشخصات کامپيوتر اگه توابع يا کدي هست لطفا بگيد
دوست عزيز از اين كد ميتونين براي گرفتن نام كامپيوتر و نام كاربراستفاده كنين .نقل قول:
نوشته شده توسط user2535
Dim objnet As Object.........................
Set objnet = CreateObject("WScript.Network")
MsgBox objnet.ComputerName & " - " & objnet.UserName
Set objnet = Nothing
موفق باشيد
خدايي نكرده اگر سرچ مي كردين حتما توابع API رو پيدا مي كردين با توضيحات كامل
دوست عزيز آقاي محمد گيج
من سرچ کردم چيزي پيدا نکردم لطفا اگه شما قبلا داخل فروم ديديد لينک شو به من بديد .ممنون
سلام دوست من اين لينكه كامل وجامع
https://barnamenevis.org/showpo...&postcount=142
https://barnamenevis.org/showpo...&postcount=139
https://barnamenevis.org/showpo...&postcount=129
دوست عزيز من مي خواهم از اين كد در form استفاده كنم من راهنماي كنيد
سلامنقل قول:
نوشته شده توسط nemat2000
در خط سوم اين كد رو جايگزين كنيد
Me.txtBox1= objnet.ComputerName & " - " & objnet.UserName
txtBox1 نام تكست باكس مورد نظر هست.
.............................
موفق باشيد
روش زير هم مشكلتون رو حل ميكنه . (لازم به ذكره قبلاً هم من اين سوال رو مطرح كرده بودم كه دوستان كمكم كردن )نقل قول:
نوشته شده توسط nemat2000
(Me.txtBox1=environ("computername"
البته ممكنه سيستم بهت error بده كه برميگرده به ocxها و Refrenceها. بفكر كنم بايد Sysmon.ocx رو داشته باشي :متفکر: :تشویق: