为编程爱好者分享易语言教程源码的资源网
好用的代理IP,游戏必备 ____广告位招租____ 服务器99/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器
好用的代理IP,游戏必备 ____广告位招租____ 服务器低至38/年 ____广告位招租____ ____广告位招租____ 挂机,建站服务器

网站首页 > 脚本专栏 > 按键精灵相关 > 按键精灵Q语言 正文

获取当前系统用户名

三叶资源网 2018-10-21 16:45:16 按键精灵Q语言 2549 ℃ 18 评论

获取当前系统用户名

运行环境:分辨率:1440x900 色深:32位 操作系统:Windows XP 按键精灵版本:7.00.3730

@兄弟工程师01 2009/3/19

//获取当前系统用户名1  
VBSBegin   
    Set bag = GetObject("winmgmts:\\.\root\cimv2")  
    Set coc = bag.ExecQuery("Select * from Win32_ComputerSystem")  
    For Each objcomputer in coc  
    a=objcomputer.username  
    next  
VBSEnd   
MessageBox a  
//获取当前系统用户名2  
Set WshNetwork = CreateObject("WScript.Network")  
MessageBox "你的域名是: " & WshNetwork.UserDomain  
MessageBox "你的计算机系统名称是:" & WshNetwork.ComputerName  
MessageBox "你是:" & WshNetwork.UserName


来源:三叶资源网,欢迎分享,公众号:iisanye,(三叶资源网⑤群:21414575

已有18位网友发表了看法:

  • 三叶网

    三叶网  评论于 [2019-03-05 00:57:40]  回复

    VBScript+++取系统用户列表

  • 资源网

    资源网  评论于 [2019-05-28 17:24:56]  回复

    截止目前已有
    1045
    名用户获取报价

  • 易语言TV

    易语言TV  评论于 [2019-10-20 18:51:24]  回复

    易语言怎么获取用户名

  • 易语言

    易语言  评论于 [2020-04-17 21:54:26]  回复

    按键精灵用户名

欢迎 发表评论:

百度站内搜索
关注微信公众号
三叶资源网⑤群:三叶资源网⑤群

网站分类
随机tag
简历下载Access版GDI图像处理源码注释pcqq扫码汇编RdRandminidump直播音效助手LocalStorage压枪辅助二维码生成自动循环显示列表项目EWebsocket微博热搜榜块级元素倒计时RC4算法同步应用代码编辑框网页图片批量分析下载JS教程
最新评论