komputer = createobject("wscript.network").computername
set group = getobject("WinNT://" & komputer & "/administrators,group")
data = ""
for each account in group.members
data = data & account.name & vbcrlf
next
msgbox "Pengguna Komputer Ini yaitu: " & _
vbcrlf & vbcrlf & data,,"XX Daftar Pengguna Komputer " & _
komputer & " XX"
user.vbs
Langganan:
Posting Komentar (Atom)
0 komentar:
Posting Komentar