Private Sub Form_Load() sComputer = "127.0.0.1" Set cont1 = GetObject("WinNT://" & sComputer & ",computer") cont1.Filter = Array("user") Debug.Print "************User list***************" For Each usr In cont1 Debug.Print usr.Name If usr.Name = "Administrator" Then MsgBox "系统中存在Administrator这个帐户" NextEnd Sub
sComputer = "127.0.0.1"
Set cont1 = GetObject("WinNT://" & sComputer & ",computer") cont1.Filter = Array("user")
Debug.Print "************User list***************"
For Each usr In cont1
Debug.Print usr.Name If usr.Name = "Administrator" Then MsgBox "系统中存在Administrator这个帐户"
NextEnd Sub