Returns or sets the current user.
Read-write property
object.User = [ value ] |
String
On Windows CE / Pocket PC, the default user is the Name specified in the Owner Information dialog box. device's owner. On desktop Windows, the default user is the username of the person currently logged in.
Displays information about the system in a message box.
Example (VBScript) | ![]() |
---|---|
Sub DisplaySysInfo Dim strCSDVer, lngBldNum, lngMinorVer, lngMajorVer Dim lngPID, intPArch, intPLevel, lngPRev, lngPType Dim strPersonalFolder, strTempPath strCSDVer = Application.System.Properties("CSDVersion") lngBldNum = Application.System.Properties("BuildNumber") lngMinorVer = Application.System.Properties("MinorVersion") lngMajorVer = Application.System.Properties("MajorVersion") lngPID = Application.System.Properties("PlatformID") intPArch = Application.System.Properties("ProcessorArchitecture") intPLevel = Application.System.Properties("ProcessorLevel") lngPRev = Application.System.Properties("ProcessorRevision") lngPType = Application.System.Properties("ProcessorType") strPersonalFolder = Application.System.Properties("PersonalFolder") strTempPath = Application.System.Properties("TempPath") MsgBox "CSDVersion: " & strCSDVer & VBCr &_ "BuildNumber: " & lngBldNum & VBCr &_ "MinorVersion: " & lngMinorVer & VBCr &_ "MajorVersion: " & lngMajorVer & VBCr &_ "PlatformID: " & lngPID & VBCr &_ "ProcessorArchitecture: " & intPArch & VBCr &_ "ProcessorLevel: " & intPLevel & VBCr &_ "ProcessorRevision: " & lngPRev & VBCr &_ "ProcessorType: " & lngPType & VBCr &_ "PersonalFolder: " & strPersonalFolder & VBCr &_ "TempPath: " & strTempPath _ ,vbInformation,"SYSTEM INFO" End Sub |