فهمیدن نام سیستم جاری [بایگانی]

View Full Version : فهمیدن نام سیستم جاری

mjelecom

شنبه 19 شهریور 1384, 01:17 صبح

سلام
می خواستم ComputerName یه سیستم خاص رو که الان برنامه روش نصبه رو دربیارم و تو اسم یه فایلی ازش استفاده کنم می خواستم از راه کد نام سیستم رو بدست بیارم.لطفا کمک کنید.
مرسی

حامد مصافی

شنبه 19 شهریور 1384, 02:31 صبح

سلام

از این تابع استفاده کن
Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

lpBuffer : این متغیر توسط تابع مقدار دهی میشه و حاوی نام کامپیوتر محلی خواهد بود
nSize : طول بافر فوق (حداکثر طول نام کامپیوتر 31 است؛ پس با احتساب NullChar این مقدار رو 32 در نظر بگیرید)

amirhosein

یک شنبه 20 شهریور 1384, 09:02 صبح

برای تغییر نام کامپوتر هم می تونید از set computer nameاستفاده کنید