اجرای کدهای مربوط 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]

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

متشکرم