vb 取得计算机名及目录

Public gCompName

'取得计算机名及Windows目录
   Dim i%
   Dim c$
   Dim cSql As String
   Dim cProduct As String
   c = Space(256)
   i = GetComputerName(c, 256)
   gCompName = Trim(c)
   gCompName = Left(gCompName, Len(gCompName) - 1)

   '读取MAC地址
    Dim NetCarts As SWbemObjectSet
    Dim NetCart As SWbemObject
    Set NetCarts = GetObject("winmgmts:{impersonationLevel=impersonate}") _
                   .InstancesOf("Win32_NetworkAdapter")
    gNetMac = ""
    For Each NetCart In NetCarts
        If NetCart.MACAddress <> "" And InStr(1, NetCart.Name, "WAN") = 0 Then
            gNetMac = gNetMac & NetCart.MACAddress & "   "
        End If
    Next
    gNetMac = Trim(gNetMac)

   i = GetWindowsDirectory(c, 256)
   gWindowsDir = Left(c, i)

转载于:https://www.cnblogs.com/A-I/archive/2008/07/30/1256209.html

vb 取得计算机名及目录相关推荐

封装出现用户.计算机,ES4封装WIN7出现[Administrator.计算机名]目录的可能解决方案...
受https://www.itiankong.net/thread-36634-1-1.html这个贴子中的思路启发,算是彻底解决了[Administrator.计算机名]目录的问题,打算把整理的方法 ...
ug12在win8计算机名错,Win8安装UG9.0时出错提示“UGII_TMP_DIR 被设为一个有无效（非ASCII)字符的目录”怎么办...
在win8操作系统中安装程序软件总会遇到一些故障问题的,这不有位用户说Win8安装UG9.0时出错提示"UGII_TMP_DIR 被设为一个有无效(非ASCII)字符的目录"(如下 ...
python获取本机 ip地址、mac地址（物理地址）、计算机名、硬盘序列号、CPU序列号、主板序列号、bios序列号、bios uuid号
文章目录 python获取本机IP地址.mac地址(物理地址).计算机名物理地址计算机名.ip地址硬盘序列号 CPU序列号主板序列号 bios序列号 bios uuid号 python获取本机 ...
计算机二级考试vb内容,计算机二级考试VB重点内容.doc
计算机二级考试VB重点内容变量或常量的命名规则 1)必须以字母或汉字开头,由字母.汉字.数字或下划线组成,长度≤255个字符; 2)不能使用VB中的关键字,并尽量不与VB中标准函数名同名;如:Dim ...
用WMI修改计算机名和IP
' 01 输入计算机编号 strIP = InputBox("Enter IP Name",title,"", 3200, 3200) strComputer ...
域用户绑定计算机批量设置,Windows 2008 AD域账户与计算机名批量绑定
最近在绑定计算机AD账户和计算机名的时候,发现用户账户过多,手动绑定手都抽筋了.所以找朋友要了个脚本,朋友只在2003上面执行过,不知道2008上面执行是否有问题,所以就测试了一把.完美执行: 1.复 ...
Android 获取本地外网IP、内网IP、计算机名等信息
一.获取本地外网IP public static String GetNetIp() { URL infoUrl = null; InputStream inStream = null; try { ...
服务器上的电脑登不上oracle,Oracle服务器改计算机名后报错之解决方法
昨天2台服务器一台主(2K3)一台备(2k)一路装上来,系统-->驱动-->补丁-->ORALCE-->PLSQL-->IBM-MQ-->重启一切都正常,但是后来因 ...
从网络访问计算机不能添加用户名,windows7 和 XP 能互相用\\ip访问，但是不能通过计算机名访问...
只要你的二台机器(winxp.win7)都能PING通对方的IP地址,并且能够通过IP正常访问,只是不能通过同一工作组的计算机名访问(其实,你先PING过一次要使用的对方的计算机名,就能直接在地址栏 ...

vb 取得计算机名及目录

vb 取得计算机名及目录相关推荐

最新文章

热门文章