به دست آوردن نام کامپيوتر

[user2535]

باسلام
چگونه مي تونم نام يک کامپيوتر را به دست آورم .
براي ساير مشخصات کامپيوتر اگه توابع يا کدي هست لطفا بگيد

[amirzazadeh]

باسلام
چگونه مي تونم نام يک کامپيوتر را به دست آورم .
براي ساير مشخصات کامپيوتر اگه توابع يا کدي هست لطفا بگيد

دوست عزيز از اين كد ميتونين براي گرفتن نام كامپيوتر و نام كاربراستفاده كنين .

 Dim objnet As Object



Set objnet = CreateObject("WScript.Network")

MsgBox objnet.ComputerName & " - " & objnet.UserName

Set objnet = Nothing

.........................
موفق باشيد

[mohammadgij]

خدايي نكرده اگر سرچ مي كردين حتما توابع API رو پيدا مي كردين با توضيحات كامل

[user2535]

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

[HAMRAHSOFT.IR]

سلام دوست من اين لينكه كامل وجامع


https://barnamenevis.org/showpo...&postcount=142
https://barnamenevis.org/showpo...&postcount=139
https://barnamenevis.org/showpo...&postcount=129

[nemat2000]

دوست عزيز من مي خواهم از اين كد در form استفاده كنم من راهنماي كنيد

[amirzazadeh]

دوست عزيز من مي خواهم از اين كد در form استفاده كنم من راهنماي كنيد

سلام
در خط سوم اين كد رو جايگزين كنيد

Me.txtBox1= objnet.ComputerName & " - " & objnet.UserName

txtBox1 نام تكست باكس مورد نظر هست.
.............................
موفق باشيد

[ryonis]

دوست عزيز من مي خواهم از اين كد در form استفاده كنم من راهنماي كنيد

روش زير هم مشكلتون رو حل ميكنه . (لازم به ذكره قبلاً هم من اين سوال رو مطرح كرده بودم كه دوستان كمكم كردن )
(Me.txtBox1=environ("computername"

البته ممكنه سيستم بهت error بده كه برميگرده به ocxها و Refrenceها. بفكر كنم بايد Sysmon.ocx رو داشته باشي