Visual Basic Script Stuff

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

Read a Value from an INI File (GetINI)

Function GetINI(str_FileName,str_SectionName,str_ItemName, sDefault, iReturn)
'iReturn : 1 = File not found
' 2 = Section not found
' 3 = Item not found
Dim sTEMP, myFile, strFileName, strSectionName, strItemName
iReturn=0
strFileName=str_FileName
strSectionName=str_SectionName
strItemName=str_ItemName
GetINI = sDefault

strFileName=Trim(strFileName)
strSectionName=Trim(strSectionName)
strItemName=Trim(strItemName)

If Left(strSectionName,1) <> "[" Then
    strSectionName="[" + strSectionName
End If

If Right(strSectionName,1) <> "]" Then
    strSectionName=strSectionName + "]"
End If

If Not fso.fileexists(strFileName) Then
    iReturn = 1
    Exit Function
End If

Set MyFile = fso.OpenTextFile(strFileName, FOR_READING)
'Detect Empty File
If myfile.AtEndOfStream Then
    MyFile.Close
    Exit Function
End If
Do
    sTEMP = Trim(MyFile.ReadLine)
    If Left(sTEMP,1) = ";" Then ' ignore a line that start with a ";"
      sTEMP=""
    End If
Loop Until myfile.AtEndOfStream Or (InStr(UCase(sTEMP),UCase(strSectionName)) = 1)

If myfile.AtEndOfStream Then
    iReturn = 2
    MyFile.Close
    Exit Function
End If

Do
    sTEMP = Trim(MyFile.ReadLine)
    If Left(sTEMP,1) = ";" Then ' ignore a line that start with a ";"
      sTEMP=""
    End If
    If InStr(UCase(sTEMP),"[") = 1 Then ' Start of next section
      iReturn = 3
      MyFile.Close
      Exit Function
    End If
Loop Until myfile.AtEndOfStream Or (InStr(UCase(sTEMP),UCase(strItemName)) = 1)

MyFile.Close

If (InStr(UCase(sTEMP),UCase(strItemName)) <> 1) Then
    iReturn = 3
    Exit Function
End If

sTEMP=Trim(Right(sTEMP,Len(sTEMP) - (InStr(sTEMP,"="))))

If InStr(sTEMP,";") <> 0 Then ' Check for "on the line" comments
    sTEMP=Trim(Left(sTEMP,InStr(sTEMP,";")-1))
End If

If sTEMP <> "" Then : GetINI=sTEMP
End Function