اسکریپت به دست آوردن مشخصات سیستم عامل

[www.pc3enter.tk]

این کد قطعه کدی هست است برای بن دست اوردن ۴ جز از اطلاعات سیستم عامل هست


set wshShell = WScript.CreateObject( "WScript.Shell" )

' retrieve system variables
computername = wshShell.ExpandEnvironmentStrings( "%COMPUTERNAME%" )
os = wshShell.ExpandEnvironmentStrings("%OS%")
username = wshShell.ExpandEnvironmentStrings("%USERNAME%")

' execute command and get the output
set get_os_version = wshShell.exec("%comspec% /c ver")
os_version = get_os_version.stdout.readall
os_version = mid(os_version, 3, len(os_version)-3)

wscript.echo "Computer Name : " & computername
wscript.echo "Operating System: " & os
wscript.echo "OS Version : " & os_version
wscript.echo "User Name : " & username

[محسن واژدی]

سلام
همینطور میتونید مقدار متغیرهای محیطی را با قرار دادن آنها در تابع Environ بدست بیاورید.

Private Sub Command1_Click()
MsgBox Environ$("OS")
MsgBox Environ$("windir")
MsgBox Environ$("programfiles")
MsgBox Environ$("homedrive")
MsgBox Environ$("tmp")
End Sub

درپناه خدا
موفق و موید باشید

[www.pc3enter.tk]

سلام
همینطور میتونید مقدار متغیرهای محیطی را با قرار دادن آنها در تابع Environ بدست بیاورید.

Private Sub Command1_Click()
MsgBox Environ$("OS")
MsgBox Environ$("windir")
MsgBox Environ$("programfiles")
MsgBox Environ$("homedrive")
MsgBox Environ$("tmp")
End Sub

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

[محسن واژدی]

سلام
ببخشید مجموعه کامل این کد را.Environ$ که با مشخصات کامل سرکار داره
را از کجا میشه بدست اورد

سلام
این تابع مقدار متغیرهای محیطی ویندوز (شامل متغیرهای پیش فرض و متغیرهای تعریف شده توسط کاربر) را برمیگرداند،
از Control Panel برنامه System Properties (یا System در WinXP) را اجرا کنید، در سربرگ Advanced روی دکمه "Environment Variables" کلیک کنید تا لیست متغیرهای تعریف شده ظاهر شوند
یا هم میتوانید در برنامه CommandPrompt دستور Set را اجرا کنید تا متغیرهای محیطی ویندوز لیست بشن

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