Your IP Address is: 38.107.191.100
Last site update: 23 March 2009
You are visitor number:
| mystuff |
Your IP Address is: 38.107.191.100 |
| home | wsname | wallpaper creator | delphi stuff | vb script stuff | other stuff | contact me |
|
|
Here's a collection of Visual Basic (vb) Script functions I've collected over the years. Services Check if a particular service is running File System Delete a file Find a file if it's in the path Find the CDROM Drive Find CDROM Drive with Media Generate a filename and path for a working file in the %temp% directory Find the size of a file Find the location of PST files and log them in a SQL database  Network Renew a DHCP lease Ping a host (using WMI) Ping a host using the external ping.exe Convert an IP Address Mask to Slashed Notation Set a static IP address from a text file Registry Search through the registry using recursion Misc Including common functions and statement in your scripts Open the Control Panel Dialogue to the "Connections" option Convert a Binary File to a String Check if you're running on a Desktop or Laptop Working With Data Files (INI, XML, SQL) files Using SQL to Generate a Self Incrementing Computer Naming System Read a Value from an INI File (GetINI) Write to an INI file (WriteINI) Read a whole section of an INI file Write a whole section to an INI file Read a value from an XML file LDAP, AD, Exchange etc Get User Information from an Exchange 5.5 GAL Check to see if a User Account Exists in AD Get Members of an AD Group Update the Terminal Services Profile Path to point to a new Server Set Exchange 'Send As' and 'Receive As' Permissions
 Pass it the name of the group you're looking for, it will return an array of the members of that group aGroupMembers = GetGroupMembers("Administrators") For iI = LBound(aGroupMembers) To UBound(aGroupMembers) WScript.Echo aGroupMembers(iI) Next Function GetGroupMembers(sGroup) Dim objRootDSE, strDNSDomain, objCommand, objConnection, strQuery, objRecordSet, strBase Dim strFilter, strAttributes, aResult, aMembers ReDim aResult(-1) Set objRootDSE = GetObject("LDAP://RootDSE") strDNSDomain = objRootDSE.Get("defaultNamingContext") Set objCommand = CreateObject("ADODB.Command") Set objConnection = CreateObject("ADODB.Connection") objConnection.Provider = "ADsDSOObject" objConnection.Open "Active Directory Provider" objCommand.ActiveConnection = objConnection strBase = " strFilter = "(&(objectClass=group)(Name=" & sGroup & "))" strAttributes = "member" strQuery = strBase & ";" & strFilter & ";" & strAttributes & ";subtree" objCommand.CommandText = strQuery objCommand.Properties("Page Size") = 100 objCommand.Properties("Timeout") = 30 objCommand.Properties("Cache Results") = False Set objRecordSet = objCommand.Execute If Not objRecordSet.EOF Then aMembers = objRecordSet.Fields("member") End If if IsArray(aMembers) Then : aResult = aMembers GetGroupMembers = aResult End Function |