اجرای کدهای مربوط cmd

[m_d6712]

دوستی سوال فرمودند:

سلام
به چه صورت می توان با اجرای یک ماکر

1-سیستم restart شود
2-سیستم log off شود
3-سیستم shut downشود
4-نام user name ویندوز را دهد
5-ip ویندوز را بدهد


با احترام فراوان

جواب سوال شما به این صورت است:

برای این کار ها شما فقط نیاز دارید که بتوانید یک سری کدهای cmd (dos ) رو روی کامپیوتر ران کنید. و برای احرای این کد ها از دستور زیر:

Dim cmd As String 
Dim ret As Double 
 
cmd =  "cmd.exe /c dir C: > C:\contents.txt" 
ret = Shell(cmd, vbHide)

استفاده کنید.

برای آشنایی با دستورات مورد نظر در cmd به لینک زیر مراجعه کنید:
http://www.exnol.com/shutdown-command-prompt
http://en.kioskea.net/faq/553-command-to-detect-your-ip-address

اما برای دریافت اطلاعات کامپیوتر از جمله IP راههای دیگری نیز وحود دارد که در یک تاپیک دیگر در این تالار وجود دارد...
http://forum.exceliran.com/thread-953.html?highlight=User
http://forum.exceliran.com/thread-224.html
و یکی دو تا تاپیک که دیگه که نتونستم پیدا کنم. شما بگردی پیدا می کنی حتما.

لینک های دیگری هم در اینترنت وجود داره: برای نمونه:
http://stackoverflow.com/questions/287369/use-wmi-to-get-current-windows-username-in-vba
http://stackoverflow.com/questions/4972532/word-vba-to-retrieve-ip-address-silently


موفق و پیروز باشید.

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[hajihadi]

متشکرم