I’ve been using a routine to determine 64-bit v 32-bit workstations for some time checking the registry for the PROCESSOR_ARCHITECTURE in the HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment path. However, this was proving to be error prone. So, I just gave up that method altogether since all Windows x64 editions have a “%SystemDrive%\Program Files (x86)” directory. This makes it just a quick and easy call the folderexists method of the filesystemobject.
The only downside is that can’t be used remotely but since most of my scripts are used in local policies, this shouldn’t be an issue.
Cheers!
Private Function is64bit() Dim filesys : Set filesys = CreateObject("Scripting.FileSystemObject") Dim bln64bit : bln64bit = False If filesys.FolderExists("C:\Program Files (x86)") then bln64bit = True is64bit = bln64bit End Function
Due to some software requirements, there was a need to get JRE 1.5.0_09 rolled out across our enterprise. The requirements were pretty straight forward:
- Only install on client operating systems (Windows 2000, Windows XP, Windows Vista and Windows 7)
- Detect the versions of Java installed. If 1.5.0_09 is installed, exit. If 1.5.0_08 or less was installed, install this version. If it has a newer version, do nothing.
The best way of determining the Java versions is to look in %program files%. On 64-bit machines, this is “C:\program files (x86)\Java”. On 32-bit, this is “C:\program files\Java”. The script accounts for this.
I wanted to post this because several of the functions used are very useful. The share hosting the jre runtime needs to have wide open read-only access so the Local System account can access share (Domain Computers). This script can then be applied to machine accounts in group policy as a startup script. If you want to test this, just comment out line 111.
Cheers!
Download Compressed (.zip) script
'====================================================== ' VBScript Source File ' NAME: Java Runtime Environment Installation ' AUTHOR: Andrew J Healey ' DATE : 2010.07.15 ' COMMENT: This script will install the jre references based on processor, existing ' installations, and operating system. This script is to be run at startup ' under the Local System account. No user interaction is required for ' this script to work properly. '====================================================== Option Explicit If isClientOperatingSystem = False Then wscript.quit Dim jreVerMajor, jreVerMinor Dim strCommand, strPathToInstall, strInstallFile, strArguments '============== BEGIN CONFIGURATION SECTION ================= jreVerMajor = "jre1.5.0_" 'As string jreVerMinor = 9 'As Integer for <> operations strPathToInstall = "\\servername\Software\Java\" 'Point to share \\servername\share\folder\ strInstallFile = "jre-1_5_0_09-windows-i586-p.exe" strArguments = "/s /v /qn ADDLOCAL=jrecore,extra IEXPLORER=1 REBOOT=Suppress JAVAUPDATE=0 SYSTRAY=0 WEBSTARTICON=0" strCommand = strPathToInstall & strInstallFile & " " & strArguments '============== END CONFIGURATION SECTION ================= If checkForJRE(jreVerMajor, jreVerMinor) = False Then Call InstallJava(strCommand) End If Private Function checkForJRE(ByVal jreVerMajor, ByVal jreVerMinor) Dim jrePath Dim blnMajorFound : blnMajorFound = False Dim blnMinorFound : blnMinorFound = False If is32bit Then jrePath = "C:\Program Files\Java\" Else jrePath = "C:\Program Files (x86)\Java\" End If On Error Resume Next Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objFolder : Set objFolder = objFSO.GetFolder(jrePath) Dim colSubfolders : Set colSubfolders = objFolder.Subfolders Dim objSubfolder For Each objSubfolder in colSubfolders If Left(objSubfolder.Name,Len(jreVerMajor)) = jreVerMajor Then blnMajorFound = True If CInt(Right(objSubfolder.Name,2)) >= jreVerMinor Then blnMinorFound = True End If End If Next If Err.Number <> 0 Then chechForJRE = True Exit Function End If If blnMajorFound = False And blnMinorFound = False Then checkForJRE = False Else checkForJRE = True End If On Error GoTo 0 Set objSubfolder = Nothing Set colSubfolders = Nothing Set objFolder = Nothing Set objFSO = Nothing jrePath = Empty blnMajorFound = Null blnMinorFound = Null jreVerMajor = Empty jreVerMinor = Empty End Function Private Function is32bit() 'Get processor architecture; do not use remotely const HKEY_LOCAL_MACHINE = &H80000002 Dim oReg,strKeyPath,strValueName Dim strValue On Error Resume Next Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\.\root\default:StdRegProv") strKeyPath = "SYSTEM\CurrentControlSet\Control\Session Manager\Environment" strValueName = "PROCESSOR_ARCHITECTURE" oReg.GetStringValue HKEY_LOCAL_MACHINE,strKeyPath,strValueName,strValue If Err.Number <> 0 or strValue = "x86" Then is32bit = True Else is32bit = False End If Err.Clear On Error GoTo 0 Set oReg = Nothing strKeyPath = Empty strValueName = Empty End Function Private Function InstallJava(ByVal strCommand) On Error Resume Next Dim objWshShell, intRC Set objWshShell = WScript.CreateObject("WScript.Shell") intRC = objWshShell.Run(strCommand, 0, True) If intRC <> 0 Or Err.Number <> 0 Then InstallJava = "Failed" Else InstallJava = "Success" End If On Error GoTo 0 Set objWshShell = Nothing intRC = Empty End Function Private Function isClientOperatingSystem() Dim objWMIService, objItem, colItems Dim strOS On Error Resume Next ' WMI Connection to the object in the CIM namespace Set objWMIService = GetObject("winmgmts:\\.\root\cimv2") ' WMI Query to the Win32_OperatingSystem Set colItems = objWMIService.ExecQuery("Select * from Win32_OperatingSystem") ' For Each... In Loop (Next at the very end) For Each objItem in colItems strOS = objItem.Caption Next If InStr(strOS,"Windows 7") <> 0 Or InStr(strOS,"XP") <> 0 Or InStr(strOS,"2000 Professional") <> 0 Or InStr(strOS,"Vista") <> 0 Then isClientOperatingSystem = True Else isClientOperatingSystem = False End If If Err.Number <> 0 Then isClientOperatingSystem = False strOS = Empty Set objItem = Nothing Set colItems = Nothing Set objWMIService = Nothing On Error GoTo 0 End Function
Download Script: get-bad-hosts.zip
While troubleshooting some issues on an OWA Front-End server, I went over to the security log to see if the authentication attempts were getting past this box. The problem I found was the log was so full of failed logon attempts it was difficult to filter out what I was looking for. In a twelve hour period, there were thousands of 529 events in the security log. Now, I know this is nothing new, but I found a few patterns. I manually exported the log to a CSV, parsed out all the source ip addresses and opened it up in Excel. What I found was that 98.7% of failed logon attempts were made by just four different ip addresses. (I recommend using MaxMind’s GeoIP Address Locator for help in determining where the source addresses are located.)
Continue reading »
Download Script: move-pst-to-network.zip
So, my buddy (and former co-worker) called me yesterday for some help with a script he put together. His script checked the local profile in Outlook for any PST files that were stored locally. If it found any, it would them move them to the users home space. We tried and tried to get the script to work properly but it never seemed to work 100%. Being that he is a good friend and this would be useful at work, I decided to take the work he had put in and get the thing working.
Continue reading »
Update 2009.04.16: At the request of a commenter, I added a couple lines to the script that will dump the output to a text file in the root of the C: drive. I also corrected a couple errors in the script.
I was tasked to get a dump of all the users in our Schema Admins, Enterprise Admins and Domain Admins for our Forest. I started thinking about it and realized a couple things. Two of the three groups reside at the forest root while the Domain Admins group exists for every domain in the forest. This meant I would need to enumerate every domain and depending on the domain, enumerate either all three groups or just one.
Continue reading »
So, I am constantly looking for ways of automating tasks. Too many admins do not take advantage of scripting and scheduled tasks/cron. Just this last week, I was implementing a new print server. Besides just building up the new server, I wanted to actually offer the users something new and useful.
I’ve been wanting to setup a network pdf printer for quite some time. I have played around with setting up a network PDF printer using cups. However, we seem to be so MS centric these days that I decided to use PDFCreator‘s print server. It was really a piece of cake. Just install the server portion, setup the service, create a share and watch the PDF’s spool.
I quickly found that the folder where PDF’s were written to, was quickly filling with PDF’s as users were not removing them. So, the solution was to write a little vbscript to purge any files older than an hour. There were two things I wanted:
- I have a file named “!FILES ARE PURGED AFTER ONE HOUR!”. I did not want this file removed. It serves as a warning for uses.
- I did not want to purge the folder every hour. I wanted to remove any files that were one hour old or greater. That way, if a user creates a PDF at 2:59pm, the 3:00pm run won’t delete it. It will be deleted on or after 3:59pm.
Here is the script I came up with:
strFolder = "C:\Folder\" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(strFolder) Set objFSO = CreateObject("Scripting.FileSystemObject") For Each strFileName in objFolder.Items If len(objFSO.GetExtensionName(strFileName)) > 0 Then Set objFile = objFSO.GetFile(strFolder & strFileName.Name) If DateDiff("N",objFile.DateLastModified,Now()) > 59 Then objFSO.DeleteFile(strFolder & strFileName.Name),True End If End If Next
The great thing about this is that you get a free network PDF printer that can be left alone. Your boss thinks you are a genius and there is no sweat on your brow.
Cheers!