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

[user2535]

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

[amirzazadeh]

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

Dim objnet As Object

Set objnet = CreateObject("WScript.Network")
MsgBox objnet.ComputerName & " - " & objnet.UserName
Set objnet = Nothing
.........................
موفق باشيد

[mohammadgij]

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

[user2535]

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

[HAMRAHSOFT.IR]

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


http://barnamenevis.org/forum/showpost.php?p=375517&postcount=142
http://barnamenevis.org/forum/showpost.php?p=373892&postcount=139
http://barnamenevis.org/forum/showpost.php?p=372863&postcount=129

[nemat2000]

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

[amirzazadeh]

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

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

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

[ryonis]

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

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