How to write a VBScript that checks for admin rights?

Question

Windows

In the company, administrator rights are given as follows:
1. The global group "CP-LOCALADMIN-computername" is created
2. This group is added to the group of local administrators of the computer
3. The user is added to the group "CP-LOCALADMIN-computername"
I wanted to write a simple script that checks the user has administrator rights and displays a list of groups (CP-LOCALADMIN-*) in which the user is a member, but there was not enough knowledge.
OS used: Windows 7, 8, 8.1

Answer 1

Good afternoon!
Colleague, excuse me, of course, but why did you choose VB? Are you taking coursework? Or do you want to solve a specific problem in the system?
If it's a coursework, then it's clear, if the task is for a production environment, then it's better to use Powershell.
If it's not difficult, describe the problem in full. What do you want to get as an output? It seems to me that it will be easier to implement all this with the help of Restricted Policy.

Answer 2

Hey!
PowerShell cannot be used, because execution of .ps1 for unknown reasons is prohibited on the computer. companies.
The script must check for the presence of the "CP-LOCALADMIN-computername" group in AD and the presence of a user in this group.
At the output, I want to get something like: Administrative access GRANTED or DENIED and a list of groups (starting with CP-LOCALADMIN-*) in which the user is a member.
Because our people are lazy, the authorities set the task: "Double click, after that the result of the check"

Answer 3

you can start here
stackoverflow.com/questions/1090336/querying-activ...
If
it doesn't work, I can help for a modest fee. )