WshShell Windows, , , .. CreateObject.
Set WshShell = CreateObject("WScript.Shell")
́ (. environment variables) , .
Microsoft Windows :
- .
- .
Windows , : set ( →).
Environment WshShell, . WshEnvironment
:
WshShell.Environment([strType])
strType "System", "User", "Volatile" "Process".
Volatile" , , "System", "User" "Process" .
, "System", "User" "Process"
| System | User | Process | ||
| NUMBER_OF_PROCESSORS | X | - | X | |
| PROCESSOR_ARCHITECTURE | X | - | X | |
| PROCESSOR_IDENTIFIER | X | - | X | |
| PROCESSOR_LEVEL | X | - | X | |
| OS | X | - | X | |
| COMSPEC | (cmd.exe command.com) | X | - | X |
| HOMEPATH | X | |||
| HOMEDRIVE | ( :) | - | - | X |
| PATH | X | X | X | |
| PATHEXT | (.exe,.com ..) | X | - | X |
| SYSTEMDRIVE | - | - | X | |
| SYSTEMROOT | Windows | - | - | X |
| WINDIR | Windows | X | - | X |
| TEMP TMP | - | X | X |
Environment, WSH, Count, , Item.
VBScript:
' WshShell:
Set WshShell = WScript.CreateObject("WScript.Shell")
' Environment PROCESS:
Set WshProEnv = WshShell.Environment("PROCESS")
SysInfo = " :" + Chr(10)+ Chr(10)
|
|
|
SysInfo = SysInfo + ": " + _
WshProEnv("NUMBER_OF_PROCESSORS") + Chr(10)
SysInfo = SysInfo + " Windows: " + _
WshProEnv("WINDIR") + Chr(10)
SysInfo = SysInfo + " : " + WshProEnv("TEMP") + Chr(10)
MsgBox SysInfo
Run WshShell .
:
object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])
object - WshShell
strCommand -
