ورود

View Full Version : اجرای برنامه اکسس روی یک Station مشخص



SolmazV
چهارشنبه 10 خرداد 1385, 07:58 صبح
با سلام
من می خوام برنامه روی یک Station خاص اجرا شود. در واقع با کپی کردن روی دستگاه دیگه اجرا نشود. اگر ممکن است راهنمایی کنید. با تشکر

mohkhosh
شنبه 13 خرداد 1385, 16:10 عصر
یک فرم بساز و در startup بگذار
دو text box با نامهای user و user1 درست کن و در on open form این کدها را بنویس
("Set objWshnet = CreateObject("Wscript.Network
user = objWshnet.computername
("Set objWshnet = CreateObject("Wscript.Network
user1 = objWshnet.UserName
حالا می توانی با داشتن نام کاربر و نام کامپیوتر با شرط if بگویی اگر نام کامپیوتر برابر با mohsen بود اجرا شود else از فزمان quiet استقاده کنی
امیدوارم توانسته باشم کمکت کنم .

mohkhosh
شنبه 13 خرداد 1385, 16:10 عصر
یک فرم بساز و در startup بگذار
دو text box با نامهای user و user1 درست کن و در on open form این کدها را بنویس
("Set objWshnet = CreateObject("Wscript.Network
user = objWshnet.computername
("Set objWshnet = CreateObject("Wscript.Network
user1 = objWshnet.UserName
حالا می توانی با داشتن نام کاربر و نام کامپیوتر با شرط if بگویی اگر نام کامپیوتر برابر با mohsen بود اجرا شود else از فزمان quiet استقاده کنی
امیدوارم توانسته باشم کمکت کنم .

SolmazV
چهارشنبه 17 خرداد 1385, 08:37 صبح
دوست عزیز خیلی ممنون

SolmazV
چهارشنبه 17 خرداد 1385, 08:47 صبح
کاری که کرده بودم این بود که شماره سریال درایو C را میگرفتم که Uniqe هستش ولی حسنی که برنامه شما داره اینه که میتونم کاربر را هم چک کنم. خیلی عالی بود. ممنون