Environ چگونه کار می کند؟

[safaei.mehdi@mapnablade.com]

با سلام به اساتید ارجمند

می خواستم بدونم کد زیر چگونه نام کامپیوتر را می گیرد ( در حقیقت در مورد عملکرد Environ می خواستم بدونم)

Cells(1, 1) = Environ("computername")


و اگر مک آدرس رو هم بخوام، باید به همین شکل عمل کنم؟! :huh:

ممنون

[امين اسماعيلي]

RE: Environ چگونه کار می کند؟

با درود
هر چند زیاد اطلاعات خاصی ندارم. اما یه تابع هستش که اطلاعاتی از سیستم رو براتون بر میگردونه.که میتونسن ازش بهره بگیرین.
قرمز ها مثل هم عمل میکنن. و اون 2 تای دیگه هم مثل هم.

Cells(1, 2) = Environ("computername")
Cells(2, 2) = Application.UserName
Cells(3, 2) = Environ("userdomain")
Cells(4, 2) = Environ("username"

اگرم نیاز به دیگر کاربردهای این تابع یا دستود دارین و این. کد زیر رو در یک دکمه وارد کنید. تو ستون A بقیه موارد رو هم براتون میاره که نام های اورده شده را میتونن جای عبارت وسط " " بزارین و ازشون بهره بگیرین

Dim nCount As Integer
nCount = 1
Do Until Environ(nCount) = ""
Cells(nCount, 1).Value = Environ(nCount)
nCount = nCount + 1
Loop

[امين اسماعيلي]

RE: Environ چگونه کار می کند؟


با درود
Environ (و Environ$) اين تابع اطلاعات خاصي از سيستم مثل دايركتوري ويندوز Program Files ، Temp و يا UserName يا تعداد پردازشگر ها و ... رو برميگردونه.

[safaei.mehdi@mapnablade.com]

RE: Environ چگونه کار می کند؟

با درود
Environ (و Environ$) اين تابع اطلاعات خاصي از سيستم مثل دايركتوري ويندوز Program Files ، Temp و يا UserName يا تعداد پردازشگر ها و ... رو برميگردونه.

درود بر شما
ضمن تشکر فراوان از شما. مک آدرس رو چجوری بگیرم؟ :huh:

[امين اسماعيلي]

RE: Environ چگونه کار می کند؟

با درود
بابت تاخیر معذرت می خوام یکم درگیرم. استاد شمس هم همینطور. در ضمن مشکل اینترنت و سایت رو هم بهش اظافه منین که یکم بارم سبکتر بشه.
خویب اینم نمونه فایل شما


http://uplod.ir/thm8ymuvhg9f/Get_mac_address.rar.htm

[safaei.mehdi@mapnablade.com]

RE: Environ چگونه کار می کند؟

با درود
بابت تاخیر معذرت می خوام یکم درگیرم. استاد شمس هم همینطور. در ضمن مشکل اینترنت و سایت رو هم بهش اظافه منین که یکم بارم سبکتر بشه.
خویب اینم نمونه فایل شما


http://uplod.ir/thm8ymuvhg9f/Get_mac_address.rar.htm

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