Description
Returns or sets the current user.
Property type
Read-write property
Syntax
object.User = [ value ] |
|
Return Type
String
Remarks
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.
Example
Displays information about the system in a message box.
| Example (VBScript) |  Copy Code |
|---|---|
| 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 | |