Uzak Pc Local Admin Yetkilerini Görme

Views

Networkunuz de bulunan bir pc'nin local admin grubunda hangi kullanıcıların olduğunu görmek için aşağıdaki içeriği .vbs yaparak kullanabilirsiniz.Listeyi alabilmek için pc'nizde excel programının yüklü olması gerekmektedir.

strComputer = InputBox ("Pc adı veya ip no")

Set objExcel = CreateObject("Excel.Application")
objExcel.Visible = True
objExcel.Workbooks.Add
intRow = 2

objExcel.Cells(1, 1).Value = "Machine Name"
objExcel.Cells(1, 2).Value = "User Name"

Set colGroups = GetObject("WinNT://" & strComputer & "/Administrators")
For Each objUser In colGroups.Members
objExcel.Cells(intRow, 1).Value = UCase(strComputer)
objExcel.Cells(intRow, 2).Value = objUser.Name
intRow = intRow + 1
Next

objExcel.Range("A1:B1").Select
objExcel.Selection.Interior.ColorIndex = 19
objExcel.Selection.Font.ColorIndex = 11
objExcel.Selection.Font.Bold = True
objExcel.Cells.EntireColumn.AutoFit

Set objSheet = objExcel.ActiveWorkbook.Worksheets(1)
Set objRange = objExcel.Range("B1")
objRange.Sort objRange,1,,,,,,1

MsgBox "Done (http://hidayetaltun.blogspot.com/)"