如題，用VB
我要對winows2003 系統中，所有本地用戶和組中
用戶，全部列出，寫入資料庫。
以及所有的組，和組里面的用戶，也要記錄下來。
請教
uj5u.com熱心網友回復：
搞過，有個什么庫給你用的。忘了，當初搞時查了不少資料。
代碼也不知道丟哪了。
uj5u.com熱心網友回復：
Dim objSWbemLocator As SWbemLocator
Dim objSWbemServices As SWbemServices
Dim objSWbemObjectSet As SWbemObjectSet
Dim objSWbemObject As SWbemObject
Dim strComputer As String, strNameSpace As String, strClass As String
Public Function GetAllUser()
strComputer = "." '計算機名，.為本機
strNameSpace = "root\cimv2" '指定命名空間為root\cimv2
strClass = "Win32_UserAccount" '指定類為Win32_Service
Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") '建立1個WBEM物件的參考指標
Set objSWbemServices = objSWbemLocator.ConnectServer(strComputer, strNameSpace) '連接到指定計算機、命名空間的WMI，回傳一個對 SWbemServices 物件的參考
Dim i As Long
Dim tmpu As String
Set objSWbemObjectSet = objSWbemServices.ExecQuery("SELECT * FROM " & strClass) '通過WQL查詢，回傳指定類的所有
For Each objSWbemObject In objSWbemObjectSet
With objSWbemObject
tmpu = IIf(tmpu = "", .Name, tmpu & ";" & .Name)
' Debug.Print .AccountType & .installdate & .Name & "-" & .PasswordChangeable & .Status & .Domain & .SIDType & "哈哈" & .PasswordRequired & .SID & .PasswordExpires & .Description
End With
Next
GetAllUser = tmpu
End Function
uj5u.com熱心網友回復：
strComputer = "."
'strOutputFilePath ="\\server\sharefolder\"
Set objNetwork = CreateObject("Wscript.Network")
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objfil = objfso.CreateTextFile(strOutputFilePath & objnetwork.ComputerName & ".txt",True)
Set colGroups = GetObject("WinNT://" & strComputer & "")
colGroups.Filter = Array("group")
For Each objGroup In colGroups
objfil.WriteLine "Group: " & objGroup.Name
For Each objUser in objGroup.Members
objfil.WriteLine vbTab & objUser.Name
Next
Next
objfil.Close
http://bbs.winos.cn/thread-20965-1-1.html
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/108076.html
標籤：VB基礎類
上一篇：vb msdn有沒有綠色版的
下一篇：vb剛學習資料庫連接、執行，RS.RecordCount總是為-1,根據網上加了 RS.CursorLocation = adUseClient，結果還是不行