Skip to main content

VB script Getting members of a particular group in AD


Dim objGroup, objUser, objFSO, objFile, strDomain, strGroup, Domain, Group, objFolder, OpenCMD, f

strDomain = Inputbox ("Enter the Domain name", "DB Data Exporter", "Enter domain name")

strGroup = InputBox ("Enter the Group name", "DB Data Exporter", "Enter group name")
Set objFSO = CreateObject("Scripting.FileSystemObject")


Dim
OpenCMD = CreateObject("wscript.shell")

set f="dsget group"+
OpenCMD.run(

'Set objFolder = objFSO.CreateFolder("D:\eis"&s)
'Set objFile = objFSO.CreateTextFile("Path for keeping file"&strGroup&".csv")
'Set objGroup = GetObject("WinNT://" & strDomain & "/" & strGroup & ",group")
'objFile.WriteLine "EMP ID"
'For Each objUser In objGroup.Members
 '   objFile.WriteLine objUser.Name
'Next
'objFile.Close
'Set objFile = Nothing
'Set objFSO = Nothing
'Set objUser = Nothing
'Set objGroup = Nothing
Wscript.Echo "Please find the output is created "




*for getting Updates / if you are liking the posts and if this is useful Please follow the blog*

Comments

Post a Comment

Popular posts from this blog

restart services remotely using power-shell script( restart.ps1)

FUNCTION Restart-Service { PARAM([STRING]$SERVERNAME=$env:COMPUTERNAME,[STRING]$SERVICENAME) #MSSQLSERVER FOR DEFAULT INSTANCE FOR NAMED INSTANCE MSSQL`$KAT $SERVICE = GET-SERVICE -COMPUTERNAME $SERVERNAME -NAME $SERVICENAME -ERRORACTION SILENTLYCONTINUE IF( $SERVICE.STATUS -EQ "RUNNING" ) { $DEPSERVICES = GET-SERVICE -COMPUTERNAME $SERVERNAME -Name $SERVICE.SERVICENAME -DEPENDENTSERVICES | WHERE-OBJECT {$_.STATUS -EQ "RUNNING"} IF( $DEPSERVICES -NE $NULL ) { FOREACH($DEPSERVICE IN $DEPSERVICES) { Stop-Service -InputObject (Get-Service -ComputerName $SERVERNAME -Name $DEPSERVICES.ServiceName) } }   Stop-Service -InputObject (Get-Service -ComputerName $SERVERNAME -Name $SERVICE.SERVICENAME) -Force    if($?)    {    Start-Service -InputObject (Get-Service -ComputerName $SERVERNAME -Name $SERVICE.SERVICENAME) $DEPSERVICES = GET-SERVICE -COMPUTERNAME $SERVERNAME -NAME $SERVICE.SERVICENAME -DEPENDENTSERVICES | WHERE-OBJECT ...
Post a Comment
Read more

Encryption and Decryption functions for Java

    public static String encrypt(String key, String initVector, String value) {         try {             IvParameterSpec iv = new IvParameterSpec(initVector.getBytes("UTF-8"));             SecretKeySpec skeySpec = new SecretKeySpec(key.getBytes("UTF-8"), "AES");             Cipher cipher = Cipher.getInstance("AES/CBC/PKCS5PADDING");             cipher.init(Cipher.ENCRYPT_MODE, skeySpec, iv);             byte[] encrypted = cipher.doFinal(value.getBytes());             System.out.println("encrypted string: "                     + Base64.encodeBase64String(encrypted));             return Base64.encodeBase64String(encrypted);         } catch (Exception ex) {   ...
Post a Comment
Read more

Disabling DEP(data Excecution prevention) for third party softwares in windows

1.go to system properties. 2.go to Advanced system settings . 3. go to Advance tab ,performance settings,Data execution prevention tab make sure u have selected 1st option as highlighted in screenshot.after making changes you must restart system
Post a Comment
Read more