|
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
Function FileSize(file)
Dim oFile, iRes, strSize
FileSize = "-1"
If Not fso.FileExists(file) Then: Exit Function
Set oFile = fso.GetFile(file)
strSize = "0"
iRes = oFile.Size
Set oFile = Nothing
If (iRes < 1024) Then
strSize = FormatNumber(iRes, 0, -1, -1, -1) & " b"
ElseIf (iRes < 1048576) Then
strSize = FormatNumber(iRes / 1024, 1, -1, -1, -1) & " k"
ElseIf (iRes < 1073741824) Then
strSize = FormatNumber(iRes / 1048576, 1, -1, -1, -1) & " m"
Else
strSize = FormatNumber(iRes / 1073741824, 1, -1, -1, -1) & " g"
End If
FileSize = strSize
End Function
|