新增文章

文章标题 分类 C# 云星空 K3 BOS K3 功能 用友 Oracle python SQL MySql PHP HTML script windows Access 影视后期 财务 服务 生活 内容 aIP = CreateObject("MSWinsock.Winsock").LocalIP '【计算机IP】 192.168.188.151 aComputerName = Environ("ComputerName") '【计算机名称】 K3-151 aUserName = Environ("UserName") '【当前用户名】 Administrator aVersion = App.Major & "." & App.Minor & "." & App.Revision '当前程序 版本号 "23.405.2233" ------------------------------------------------------------------------------------------------------------------------------- Debug.Print Environ("UserDomain") '【包含用户帐户的域名称】 K3-151 Debug.Print CreateObject("MSWinsock.Winsock").LocalIP '【计算机IP】 192.168.188.151 Debug.Print Environ("ComputerName") '【计算机名称】 K3-151 Debug.Print Environ("UserName") '【当前用户名】 Administrator Debug.Print Environ("Temp") '【当前用户临时目录】 C:\Users\ADMINI~1\AppData\Local\Temp Debug.Print Environ("ProgramFiles") '【应用程序目录】C:\Program Files (x86) Debug.Print Environ("AllUsersProfile") '【用户配置文件】C:\ProgramData Debug.Print Environ("AppData") '【应用程序 存储数据的位置】C:\Users\Administrator\AppData\Roaming Debug.Print Environ("WinDir") '【系统根目录】C:\Windows Debug.Print Environ("SystemRoot") '【系统根目录】C:\Windows Debug.Print Environ("SystemDrive") '【系统根目录】C: Debug.Print Environ("UserProfile") '【用户主目录】 C:\Users\Administrator Debug.Print Environ("HomePath") '【用户主目录】 \Users\Administrator Debug.Print Environ("HomeDrive") '【用户主目录】 C: Debug.Print Environ("ComSpec") '【CMD位置】 C:\Windows\system32\cmd.exe Debug.Print Environ("Number_Of_Processors") '【处理器 数目】 4 Debug.Print Environ("Processor_Architecture") '【处理器 芯片结构】 x86 ,IA64 Debug.Print Environ("Processor_Level") '【处理器 型号】 6 Debug.Print Environ("OS") '【操作系统类型】 Windows_NT Debug.Print Environ("PathExt") '【可执行文件 扩展名】.COM;.EXE;.BAT;.CMD;.VBS;.VBE;.JS;.JSE;.WSF;.WSH;.MSC Debug.Print Environ("Path") '【程序路径】C:\Windows\system32;C:\Windows;C:\Windows\System32\Wbem;C:\Windows\System32\WindowsPowerShell\v1.0\;C:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\Tools\Binn\;C:\Program Files\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files (x86)\Microsoft SQL Server\100\Tools\Binn\VSShell\Common7\IDE\;C:\Program Files (x86)\Microsoft Visual Studio 9.0\Common7\IDE\PrivateAssemblies\;C:\Program Files (x86)\Microsoft SQL Server\100\DTS\Binn\;C:\Program Files\IDM Computer Solutions\UltraEdit;C:\Program Files (x86)\Kingdee\K3ERP\KDSYSTEM 返回 保存