none
vbs和本地用户 RRS feed

  • 问题

  • 要求很简单 就是要获取本地计算机的用户名列表,然后进行下一步的循环动作。

    但是我只会设定某个用户组别的对象集合。比如:

    strComputer = "."
    
    Set objGp = GetObject("WinNT://" & strComputer & "/Administrators,group")  '这里是设定计算机下某个用户组别的对象。而我要的是本地计算机所有用户的对象集合。
    
    
    For Each objGPuser in objGP.Members  '这里循环的是组别中的用户,我要循环的是本地计算中中所有用户的集合。不论用户处于什么组别
    
    IF objGPuser.Name="testuser" then
    msbox(“存在testuser用户”)
    end if
    Next
    

    请赐教 谢谢!


    nn

    2020年11月30日 1:49

答案

  • Hi nyyswdxdcmis,

    Visual Basic 论坛讨论的内容与 VB.NET相关,很遗憾并不支持vbs, 如果想询问关于vbs的内容,你可以在以下论坛发帖。

    vbscript

    对于VB.NET来说,如果要获取计算机中本地用户用户名的列表,你可以使用以下代码。

    Imports System.Management
    
            Dim query As SelectQuery = New SelectQuery("Win32_UserAccount")
            Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(query)
    
            For Each envVar As ManagementObject In searcher.[Get]()
                Console.WriteLine($"Username : {envVar("Name")}")
            Next

    Best Regards,

    Xingyu Zhao


    Visual Basic and CLR forum will be migrating to a new home on Microsoft Q&A! (VB.NET and CLR) We invite you to post new questions in the new home on Microsoft Q&A ! For more information, please refer to the sticky post(VB.NET and CLR).

    2020年12月1日 1:35
    版主

全部回复

  • 补充一下是本地计算中所有的本地用户列表。谢谢

    nn

    2020年11月30日 1:50
  • Hi nyyswdxdcmis,

    Visual Basic 论坛讨论的内容与 VB.NET相关,很遗憾并不支持vbs, 如果想询问关于vbs的内容,你可以在以下论坛发帖。

    vbscript

    对于VB.NET来说,如果要获取计算机中本地用户用户名的列表,你可以使用以下代码。

    Imports System.Management
    
            Dim query As SelectQuery = New SelectQuery("Win32_UserAccount")
            Dim searcher As ManagementObjectSearcher = New ManagementObjectSearcher(query)
    
            For Each envVar As ManagementObject In searcher.[Get]()
                Console.WriteLine($"Username : {envVar("Name")}")
            Next

    Best Regards,

    Xingyu Zhao


    Visual Basic and CLR forum will be migrating to a new home on Microsoft Q&A! (VB.NET and CLR) We invite you to post new questions in the new home on Microsoft Q&A ! For more information, please refer to the sticky post(VB.NET and CLR).

    2020年12月1日 1:35
    版主