Personal Version Control on the cheap (FREE!)

I've always been a fan of version control for my own documents. I can't even begin to tell you how many times I have edited and saved something (code, word documents, really anything) then went back to look for something that I in my infinite wisdom decided to delete because "it would never be needed". Well guess what? I was wrong.

Recently, I've been working much more on scripts mainly TSQL but also find myself building support documents, random documentation, spreadsheets for automation, etc...basically things that change periodically and that I would like to keep previous versions just in case :)

There are all kinds of version control software but I've been a fan of Tortoise SVN in the past and still am. It integrates well with Windows, yes I'm a Windows user; version control isn't only for Linux. TortoiseSVN is actually an Apache Subversion client. While this implies you need a server and really could have one running Subversion, you can also utilize Tortoise SVN to create a local Subversion repository. Note: This means if you care about your repository you will need to back it up.

Here are the steps to create yourself a local version controlled folder:

1. Download and Install the latest version of TortoiseSVN; this will be a next --> next --> Finish type install.

2. Create a new folder that you would like to be the root of your repository. For our example we'll call it C:\SVNRepository.

3. Right Click the folder you created (C:\SVNRepository), you should see a TortoiseSVN menu. Mouseover that menu and you will have numerous options. Choose "Create Repository Here"

4. You will receive a window to confirm. Here you could create the default folder structure of trunk/branch/tags. But I don't and unless you are well versed in using these different constructs I think it just becomes confusing. So, I recommend hitting Ok at this point or go read up on the trunk/branch/tags construct and see if it is something you'd like to try out. This isn't a life or death decision, these are basically just folders and if you end up not liking them well just delete them.

5. Assuming you eventually hit Ok, your folder will now have a different icon that is good. Create a folder in Windows that will serve as your working directory. For our example we'll call it C:\WorkingDirectory.

6. Right Click on C:\WorkingDirectory --> Left Click "SVN Checkout..."

7. You should now have a "Checkout" window open. For "URL of repository:" enter "file:///C:/SVNRepository". The "Checkout directory" should already be set to C:\WorkingDirectory. Click Ok.

8. Double click C:\WorkingDirectory, you now have an empty folder. You can create folders and files in here as you wish. Create something, anything for now.

9. So you've created something in step 8 and your folder is no longer empty. But it is not saved to the repository yet. Right click on C:\WorkingDirectory --> Left click "SVN Commit"

10. You will now have a "Commit" window. It will show you all the changes you have made and a comment box, you should only see new things that say non-versioned at this point and you can add a comment as appropriate. Click the check boxes next to the items you want to save to the repository and click ok. Click Ok again.

11. If you haven't already done so create a document or copy one over, make sure to commit changes as in step 9. You can also right click on a specific file and commit it rather than the entire structure. Modify this file a few times and commit so that we have some changes to revert or compare.

12. Now you should have one file that has multiple revisions, first make sure you left click the file --> then right click on this file --> Mouseover TortoiseSVN --> Left Click "Show Log".

13. You will now have a "Log Messages" window open and you can click on each version of your file. Right clicking any of these versions gives you a plethora of choices including comparing to current version, comparing to a previous version, reverting, saving off a revision as something else, etc...play around and see what you can do.

This is by no means an extensive tutorial on using TortoiseSVN or Apache Subversion but rather a quick and dirty setup guide and just enough to get you going and playing. There are other features you could use such as add (if you have a new file or folder that you create in the structure) this has the advantage of showing you that you have a new file that now doesn't match the repository without committing. You can also import files/folders from an existing location. There are tons of things you can do but you can read more about that at the Apache Subversion Documentation and TortoiseSVN Support websites. You may even find you want or need to setup an Apache Subversion server if you want to use it for more than your personal repository.

Has Rundll32 run away with your CPU?

So, the truth is you will probably get a call about application slowness and you will see rundll32.exe is taking up all the CPU. You will then proceed to call your server team and tell them to fix it. They will likely tell you that your application is causing it and that rundll32 could be any of a number of things. You will probably yell at them insisting that rundll32 is not part of your application. Luckily I've been a server guy and an application guy so I figured that out myself. But be warned this conversation has and will happen many times.

Easiest thing to start off with is simply trying to figure out what in the world rundll32.exe is actually attempting to do. There are probably many ways to find this but I simply opened up task manager --> clicked on the process tab --> went to the View menu --> Select Columns --> Check the box next to Command Line --> Click Ok.

You will now have an extra column for each process. Find your rundll32.exe process and look at the Command Line column. Hopefully you will see something you recognize but you may find something obscure that requires lots of research...your mileage may vary.

Back to my problem, here is what I found:

rundll32 C:\Windows\system32\spool\DRIVERS\x64\3\hpmsn130.dll,MonitorPrintJobStatus /pjob=31 /pname"printer-c"

That very quickly stood out as a printer related issue because of the spool directory, printer name which wasn't printer-c but changed for this example, MonitorPrintJobStatus, and well those dang hp dlls.

So for a while I cursed printers and HP unified print drivers but realized that wasn't going to fix my problem. I changed the print processor to winprint from the HP specific print processor but that didn't result in a fix.

I proceeded to poke around the printer properties and ran across and option called "Printer Status Notification:" which was the cause of the CPU hogging. I disabled this feature and all was good.

So I went back to cursing HP unified print drivers! But I will save that for another day (we'll call that day never)...I don't like printers.

TSQL to find database size

Earlier today I had the need to calculate both the size of my SQL database files as well as the amount of used space in the aforementioned database files. While I was at it I added a percent used column. I found lots of posts out there some horribly complicated and some way too simple and not providing enough detail.

The FILEPROPERTY (http://technet.microsoft.com/en-us/library/ms188401.aspx) was the key here and what I used to simply calculate the amount of space used within the database files.

Also make sure you replace the "<your_database_name_here>" at the beginning of the query or make sure you have the appropriate database selected in SSMS.

-- Title: SQL - Get Database Size -- Description: Displays Database Size, Size Used, and Percent Used -- Author: David Silva USE <your_database_name_here> -- Returns database size as it would be displayed in database properties SELECT ROUND(SUM(size)/128.0,2)*0.000976562 As GB_size FROM sys.sysfiles -- Returns data for database size, file usage, %used. Can be exported to Excel for Pivot rollup SELECT ROUND((size)/128.0,2)*0.000976562 As GB_Size, name, [filename], ((convert(Float,FILEPROPERTY (name, 'SpaceUsed'))) * (8192.0/1048576)) * 0.000976562 As GB_Used, (((convert(Float,FILEPROPERTY (name, 'SpaceUsed'))) * (8192.0/1048576)) * 0.000976562)/(ROUND((size)/128.0,2)*0.000976562) As '% Used' FROM sys.sysfiles

RDP Autologon; talk about a security issue

Recently I have been doing server admin work and discovered numerous servers at a facility had Terminal Services configured such that it automatically used credentials that were saved on the server for all Remote Desktop/Terminal Services clients.

I understand this might be ok on a real Terminal Server that provides user access to some limited applications but in this case it was an application server that had terminal services setup for remote administration.

The settings are in Terminal Services Configuration, then right click on the RDP-TCP and select properties. You will see a Logon Settings tab that defaults to "Use client-provided logon information" but you can select "Always use the following logon information" and then proceed to enter in a username/domain/password.

What more can I say "You should never enter in an Administrative user account into this section of the terminal services configuration!" If you have seen a legitimate reason for doing so I would love to hear your story...just post a comment.

Just some random VBA

Below is some vba code I wrote for a Excel 2007 spreadsheet. Essentially, it uses a proprietary add-in that will refresh data on calculate based on some date values. Then it moves that data to a temp sheet and does some massaging of the data. Then creates a pivot table that aggregates the data and a chart to show the data. I have written extensive comments to show what the code does.

'Declare intCount as a global to use in various sub procedures. Dim intCount As Integer 'The type command is one I find that people don't understand in all cases 'Secondly, even those that understand the concept didn't know you had 'the ability to create types in Excel VBA. 'Type allows you to create your own data type, an object for those object 'oriented programming folks. In this case, the type is used to represent 'a downtime event, including the code, description, and duration Type DowntimeData Fault As Integer Fault_Description As String Fault_Duration As Variant End Type 'This is my main sub routine, there is a button on the excel sheet 'that calls this subroutine when pressed. I like to use Main as my 'program control and call out to sub procedures. Sometimes you need 'to pass values back and forth between sub routines and the Main section 'gets cluttered with other items but I avoided that in this spreadsheet. 'Call allows you to call another subroutine. Sub Main() Call Refresh_Data Call Clear_Temp_Data Call Select_Useful_Data Call Copy_Data_To_Temp_Data Call Format_Data_In_Temp_Data Call Array_Populator Call Refresh_Pivot_Tables End Sub Sub Refresh_Data() 'Same as hitting F9 to re-calculate the values on the sheet Sheets("Data").Calculate End Sub Sub Clear_Temp_Data() 'Deletes all cells in Temp_Data sheet Sheets("Temp_Data").Cells.Delete End Sub Sub Select_Useful_Data() 'Using intCount to get a count of the data rows I have pulled 'dynamically and using it to figure out max potential data amounts 'Copying all the data cells needed using intCount to figure out the 'dynamic portion of data intCount = Sheets("Data").Range("A9").Value Sheets("Data").Range(Cells(9, 2), Cells(intCount + 8, 7)).Copy End Sub Sub Copy_Data_To_Temp_Data() 'Paste the values from Select_Useful_Data into a temp_data sheet Sheets("Temp_Data").Range("A1").PasteSpecial Paste:=xlPasteValues, _ Operation:=xlNone, SkipBlanks:=False, Transpose:=False End Sub Sub Format_Data_In_Temp_Data() 'Format Column A as a datetime with the format specified Sheets("Temp_Data").Columns("A:A").NumberFormat = "dd-mmm-yy hh:mm:ss" Sheets("Temp_Data").Columns("F:F")NumberFormat = "[h]:mm:ss;@" Sheets("Temp_Data").Columns("B:B").NumberFormat = "0" End Sub Sub Array_Populator() Dim arrdata() As DowntimeData Dim x As Integer ReDim arrdata(intCount) x = 1 For i = 1 To intCount If IsNumeric(Cells(i, 2).Text) = True Then If Cells(i, 2).Text <> 0 And Cells(i, 6).Text <> "" Then arrdata(x).Fault = Cells(i, 2).Text arrdata(x).Fault_Description = Cells(i, 3).Text arrdata(x).Fault_Duration = Cells(i, 6).Text x = x + 1 End If End If Next Call Dump_Array_To_Temp_Data(arrdata, x) End Sub Sub Dump_Array_To_Temp_Data(ByRef arrdata() As DowntimeData, ByVal x As Integer) Call Clear_Temp_Data Cells(1, 1).FormulaR1C1 = "Fault Code" Cells(1, 2).FormulaR1C1 = "Fault Duration" Cells(1, 3).FormulaR1C1 = "Fault Description" For i = 1 To x - 1 Cells(i + 1, 1).FormulaR1C1 = arrdata(i).Fault Cells(i + 1, 2).FormulaR1C1 = arrdata(i).Fault_Duration Cells(i + 1, 3).FormulaR1C1 = RTrim(arrdata(i).Fault & " - " & arrdata(i).Fault_Description) Next Columns("B:B").Select Selection.NumberFormat = "[h]:mm:ss;@" Columns("A:A").Select Selection.NumberFormat = "0" Cells.Select Cells.EntireColumn.AutoFit Call Create_Named_Range(x) End Sub Sub Create_Named_Range(ByVal x As Integer) Sheets("Temp_Data").Range("A1").Select Sheets("Temp_Data").Range(Cells(1, 1), Cells(x, 3)).Name = "Downtime_Data" End Sub Sub Refresh_Pivot_Tables() Sheets("Pivot_Table").Activate ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh Sheets("Chart_Sheet").Activate End Sub

Crystal ActiveX Viewer - Manual Install

The first things you will need is the ActiveXViewer.cab file usually found somewhere on your server if you have an application that uses it. I haven't found it easily downloadable, not sure why?

Once you have the file, follow the instructions below on how to manually install the ActiveX viewer.

a. Check to see if the following three files Exist on the Client
- CRVIEWER.DLL
- SWEBRS.DLL
- SVIEWHLP.DLL

b. If they exist, then un-register the files:
- Regsvr32 /u pathtofile\filename
- Rename each file to .OLD

c. Copy these three files from the server to the client’s windows\system32 directory
- CRVIEWER.DLL
- SWEBRS.DLL
- SVIEWHLP.DLL

d. Register each file.
- Regsvr32 pathtofile\filename

Performance Counter on XP with no PageFile What A PAIN!!!!

Yesterday, I was testing some software that uses performance counters and tracks history...etc....etc...very fancy.

When I realized that I didn't have a processor or memory performance object...

What the heck?

I mean these are standard Windows counters...after lots of work and digging I downloaded WindowsXP-KB838079-SupportTools-ENU.exe and using the tool that is part of the download called "exctrlst.exe". It allows you to enable performance objects and I enabled the PerfOS Object and life was good.

SSRS - SQL Server Reporting Services Scheduling Error

I've worked with SSRS 2000 and 2005. I have done very little in the way of report creation using SSRS. Mainly have used the Report Manager to schedule subscriptions. I also have dealt with issues on the SQL side of SSRS. My role related to SSRS has been the support of the existing infrastructure for SSRS.

Error 8198 - The job failed. Unable to determine if the owner (domain\username) of job myjob has server access (reason: Could not obtain information about Windows NT group/user 'domain\username'. [SQLSTATE 42000] (Error 8198)).

If running the SSRS Report Server service under a network account, you will be unable to schedule reports. The work around for us was to change the SQL Agent job owner to 'sa'. The issue is that once you change the owner to 'sa', you are no longer able to change the job's schedule from reporting services without changing the owner of the job back to the network account used to run the Report Server. So, I created a few shared schedules in SSRS and changed those jobs to an owner of 'sa'. I just assign one of these schedules to my reports. The only time I have to change the owner of a job is when I am changing or creating a new schedule within the Report Manager. I believe this issue will go away in SQL 2005 SSRS but haven't tested it out. If you do test it and find it resolves the issue let me know and I will update the site.

After resolving the issue above I found an article on Microsoft's website that states the cause and workaround. Click here to read it.

XML What's All That About Anyway?

I recently had to work with XML within SQL 2005. It was a learning experience for sure.

So what is XML?

- XML stands for Extensible Markup Language

- If you've ever seen HTML you'll see the similarity

- The purpose of XML as I understand it is to transport, store, and structure data.

XML seems to be getting bigger and bigger. It is everywhere you turn. Apparently it is a great way to structure data and pull/index data. My use for it was in a XML datatype column. It was an IP Address Management database and it was being used to track different devices such as printers, switches, routers, desktops, servers, etc...As such, these different devices types have different properties that needed to be tracked. The best solution was an XML datatype in SQL 2005 that defines the data for each of these devices.

Please feel free to make any corrections or post comments and I will make corrections. I am certainly not an XML expert.

Below is some sql code that I used to query a table...hopefully it will help someone out I wish I had the TSQL before I started.

Here is the csv that was exported from a test table I had setup to test.

18,<Device type="Printer" name="PJSS2234" manufacturer="Xerox" /> 19,<Device type="Printer" name="Pdfs222" manufacturer="Xerox" /> 21,<Device type="Workstation" manufacturer="Dell" Mac_Addr="0000.0000.0000" />

Please feel free to post any comments or questions...Enjoy your XML experience!!!

-- Selects all columns SELECT * FROM TEAM -- Selects my xml datatype column SELECT TeamDoc.query('/Device') FROM Team WHERE TeamDoc.exist ('/Device') = 1 -- Replaces the device where @name equals "P29sdas" and changes @name to "PJSS2234" UPDATE Team SET TeamDoc.modify(' replace value of (/Device/@name)[1] with "PJSS2234"') WHERE TeamDoc.exist ('/Device') = 1 AND TeamDoc.exist('/Device[@name="P29sdas"]')=1 -- Pulls only the @name value from the TeamDoc column using query as XML SELECT TeamDoc.query('data(/Device/@name)') As Name FROM Team WHERE TeamDoc.exist ('/Device') = 1 -- Pulls only the @name value from the TeamDoc column using value as text value SELECT TeamDoc.value('data(/Device/@name)[1]','nvarchar(255)') As Name FROM Team WHERE TeamDoc.exist ('/Device') = 1 -- Pulled all the items from the XML column Select TeamID, TeamDoc.query('data(/Device/@type)') As Type, TeamDoc.query('data(/Device/@name)') As Node_Name, TeamDoc.query('data(/Device/@manufacturer)') As Manufacturer FROM Team WHERE TeamDoc.exist ('/Device') = 1 -- Something you might have in a stored procedure...this was just a test nothing special here Declare @x xml Set @x = (SELECT TeamDoc FROM Team WHERE TeamDoc.exist ('/Device') = 1 FOR XML AUTO) SELECT @x SELECT Team.TeamDoc.value('@name','VARCHAR(25)')AS Node_Name, Team.TeamDoc.value('@type','VARCHAR(25)')AS Node_Type, Team.TeamDoc.value('@manufacturer','VARCHAR(25)')AS Manufacturer FROM @x.nodes('/Team/TeamDoc/Device') Team(TeamDoc) GO

Some links you might find useful(I borrowed some parts of the example from the first link...:

1. http://www.code-magazine.com/article.aspx?quickid=0605081&page=1
2. http://www.w3schools.com/xml/xml_whatis.asp
3. http://en.wikipedia.org/wiki/XML

Change local administrator account password

The script below changes the local administrator account for the PCs in Computers.txt and logs success to one log file, failure to another, and a third with the list of PCs that were registered as failures so that you can use that list to run the script again at a different time after fixing the errors. Some errors are ping failures and these obviously will be PCs that are not on the network. You will need to change the directories in the script or create the directory structure for this script to work. Note: When you run this you will need to be using an account that has administrative access to the PCs. I used my account that is in a group that is setup to be an administrator on all PCs.

On Error Resume Next Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\Computers.txt", 1) Set fsoLog = CreateObject("Scripting.FileSystemObject") Set objLog = fsoLog.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\" & Year(now) & Month(now) & Day(now) & " - " & Hour(now) & Minute(now) & ".log", 2, True) Set objLog2 = fsoLog.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\" & Year(now) & Month(now) & Day(now) & " - " & Hour(now) & Minute(now) & "Failed.log", 2, True) Set objLog3 = fsoLog.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\" & Year(now) & Month(now) & Day(now) & " - " & Hour(now) & Minute(now) & "FailedPCs.log", 2, True) Do Until objFile.AtEndOfStream strLine = objFile.ReadLine strComputer = strLine Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /c ping -n 1 -w 1000 " & strComputer & " >" & "C:\Shares\Scripts\ChangeAdminPW\objTempFile", 0, True Set objTextFile = objFSO.OpenTextFile("C:\Shares\Scripts\ChangeAdminPW\objTempFile", 1) i=i+1 strFailedPing = "" strSuccess="No" Do While objTextFile.AtEndOfStream <> True strText = objTextFile.ReadLine strFailedPing = strFailedPing & strtext If Instr(strText, "Reply") > 0 Then objLog.WriteLine("****************") objLog.WriteLine(i & ": Successful ping to " & strComputer) strSuccess="Yes" End If Loop If strSuccess = "No" Then objLog2.WriteLine("****************") objLog2.WriteLine(i & ": " & strComputer) objLog2.WriteLine("ERROR: " & strFailedPing) objLog2.WriteLine("****************") objLog3.WriteLine strComputer End if If strSuccess = "Yes" Then Set objUser = GetObject("WinNT://" & strComputer & "/administrator") err.clear objUser.SetPassword("YourPasswordHere") Select Case Err.number Case 0 objLog.WriteLine "Password Changed Successfully" Case -2147022651 objLog2.WriteLine(i & ": " & strComputer) objLog2.WriteLine "ERROR: Password Not Changed!" & "An Error occurred, Please try again." & "The specific Error number Is:" & err.number & " - " & err.description & "The error message is: The password does not meet the password policy requirements. Check the minimum password length, password complexity and password history requirements." objLog.WriteLine "Password Change Failed for " & strComputer objLog3.WriteLine strComputer Case Else objLog2.WriteLine(i & ": " & strComputer) objLog2.WriteLine "ERROR: Password Not Changed!" & "An error occurred, Please try again." & "The specific error number is:" & err.number & " - " & err.description & " - If no specific error description appears then a specific error message is not available via the err object." objLog.WriteLine "Password Change Failed for " & strComputer objLog3.WriteLine strComputer End Select objLog.WriteLine("****************") err.clear End If Loop

VBScript to change Excel Macro Security

The script below will change the Excel Macro Security to Low. I created it for the purpose of changing the macro security level to Low for running reports. The server was also used to edit Excel reports and thus the security always got changed to medium or high while people edited reports and often forgot to change it back to Low. Hence, the popup asking to enable/disable macros causing the report to sit there waiting for user input. This script ran prior to the scheduled reports running to ensure the security level was where it should be.

Const HKEY_CLASSES_ROOT = &H80000000 Const HKEY_CURRENT_USER = &H80000001 Const HKEY_LOCAL_MACHINE = &H80000002 Const HKEY_USERS = &H80000003 Const HKEY_CURRENT_CONFIG = &H80000005 Set objComputerSystem = GetObject("winmgmts:").InstancesOf ("Win32_ComputerSystem") for each objSystem in objComputerSystem strComputer = objSystem.Name next Set oReg=GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & "\root\default:StdRegProv") strKeyPath = "SOFTWARE\Microsoft\Office\11.0\Excel\Security" strValueName = "Level" 'Value of 1 is Low Macro Security, 2 is Medium, 3 is High 'Note Same key can be created or edited under HKLM that will override HKCU setting oReg.SetDWORDValue HKEY_CURRENT_USER,strKeyPath,strValueName,1

Sending E-mail via VBScript using CDO

This is a template for sending e-mail via vbscript using CDO. You will need to replace the subject/to/from to your liking. I also showed how to place an attachment in the email. Just change the path to the file you want to attach. You will also need to replace "smtp.yourdomain.com" with a valid smtp server. Most companies have some kind of smtp server and there may even be some free ones...that are publicly accessible but I doubt it...as they would be huge targets for spam deliveries. My original use for this script was to distribute log files and it was called by another script if the log was parsed and errors were found.

Set objMessage = CreateObject("CDO.Message") objMessage.Subject = "Test" objMessage.From = "Test@yourdomain.com" objMessage.To = "Test@yourdomain.com" strFile = "C:\yourfilename.doc" 'Create FSO Object Set objFSO = CreateObject("Scripting.FileSystemObject") if objFSO.FileExists(objLogFile) Then objMessage.TextBody = "Test" objMessage.AddAttachment strFile Else objMessage.TextBody = "Test Unable to attach " & strFile & "." End If '==This section provides the configuration information for the remote SMTP server. '==Normally you will only change the server name or IP. objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Name or IP of Remote SMTP Server objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yourdomain.com" 'Server port (typically 25) objMessage.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 objMessage.Configuration.Fields.Update '==End remote SMTP server configuration section== objMessage.Send

Ping and check for success in VBScript

Here is a quick piece of VBScript code that does a ping via the shell object. Then parses the results that were dumped into a text file to check for success. It pings PCs that are in the C:\Computers.txt file. One PC name per line. In the strSuccess=No part you would place the activities for a failed ping which will likely be nothing or possibly writing to a log. In the strSuccess=Yes you would place whatever code needs to be done on the PC name...in my case it is usually some kind of wmi or registry edit. There are other ways to do this such as the WMI class Win32_PingStatus(Only works on XP or later).

Set objFSO = CreateObject("Scripting.FileSystemObject") Set objFile = objFSO.OpenTextFile("C:\Computers.txt", 1) i=0 Do Until objFile.AtEndOfStream objLog.WriteLine("****************") strLine = objFile.ReadLine strComputer = strLine Set objShell = CreateObject("WScript.Shell") objShell.Run "cmd /c ping -n 1 -w 1000 " & strComputer & " >" & "C:\objTempFile", 0, True Set objTextFile = objFSO.OpenTextFile("C:\objTempFile", 1) strSuccess="No" Do While objTextFile.AtEndOfStream <> True strText = objTextFile.ReadLine If Instr(strText, "Reply") > 0 Then strSuccess="Yes" End If Loop If strSuccess = "No" Then 'Do Something Here End if If strSuccess = "Yes" Then 'Do Something Here End if Loop

Standard TCP/IP Port Missing

This post is specifically related to Standard TCP/IP Ports missing in any version of windows.

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Print\Monitors\Standard TCP/IP Port

Under that key there is a string value named "Driver" and the data value should be "tcpmon.dll".

I have seen this messed up on server migrations. It is a rare occurrence but a difficult one to figure out.

Also, check to make sure that the following files are in the C:\Windows\System32\ or C:\Winnt\System32\ directory:

tcpmib.dll
tcpmon.dll
tcpmon.ini
tcpmonui.dll

Start and Stop Windows Services

Try This, just change all the NetDDE items to your service. In this example: When NetDDE is stopped it will start NetDDE and then start all services that depend on NetDDE. When NetDDE is running it will stop all services that depend on NetDDE and then will stop NetDDE.

strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colService = objWMIService.ExecQuery("Select * from Win32_Service where Name='NetDDE'") For Each objService in colService if objService.State = "Stopped" Then errReturn = objService.StartService() Set colService2 = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='NetDDE'} Where " & "AssocClass=Win32_DependentService " & "Role=Antecedent" ) For each objService2 in colService2 errReturn = objService2.StartService() Next Elseif objService.State = "Running" Then Set colService3 = objWMIService.ExecQuery("Associators of " & "{Win32_Service.Name='NetDDE'} Where " & "AssocClass=Win32_DependentService " & "Role=Antecedent" ) For each objService3 in colService3 errReturn=objService3.StopService() Next errReturn = objService.StopService() End If Next