DeveloperS https://docs.microsoft.com/archive/blogs/sansom/feed.xml Wed, 17 Apr 2019 03:41:51 GMT en-US hourly 1 Sample tool for testing Secure FTP Server https://docs.microsoft.com/archive/blogs/sansom/sample-tool-for-testing-secure-ftp-server Sat, 24 Oct 2009 01:35:00 GMT https://blogs.msdn.microsoft.com/sansom/2009/10/24/sample-tool-for-testing-secure-ftp-server/ Here is a sample tool for testing Secure FTP server that I have writtent to test the IIS7 Secure FTP. This tool can connect to the FTP server using SSL and lists the directory contents current working directory.

image

Here is how you can use the tool.

1) Either you can pass the remote host as command line argument or run the executable and use

open <remote host> as below

ftps>
Usage:
open hostname
eg: open localhost
eg: open ftp.foo.com

If you capture a network trace you will observe the traffic as below. This shows the Control connection on port 21 and then the data connection happening on port 5110 as we configure Passive FTP Port range. in IIS7.

image

image

image

FTPS.zip

]]> Kerberos SPN Viewer and Helper Tool Sample https://docs.microsoft.com/archive/blogs/sansom/kerberos-spn-viewer-and-helper-tool-sample Mon, 12 Oct 2009 15:54:00 GMT https://blogs.msdn.microsoft.com/sansom/2009/10/12/kerberos-spn-viewer-and-helper-tool-sample/ Kerberos SPN Viewer and Helper Tool

Here is the sample tool I have written to simplify listing the ServicePrincipalName (SPN) and an integrated helper tool which can help us find out what SPN should we set based on the configuration that we are using.

  image image image

 

The Viewer part of the tool is meant to display the SPNs registered for a given criteria. Viewer Tab as you can see below expects the following as Input for displaying the results.

  1. Account Info
    1. You can either select a Computer Account or Domain Account or Both for which you like to view the SPNs for.
    2. If you select Computer Account, you specify the NETBIOS name of the machine. Example: IISPRODSVR. This will search for all the computers accounts registered in the forest.
    3. If you select the Domain Account you can specify simply the UserName. Example JohnDoe. You don't have to specify the domain name. This will search for all the user accounts in the forest.
    4. If you select Both, this will search for both the Computer & User accounts.
    5. Using a "*" for a wildcard search. But using a wild card search might take a long time. You do not really need to look at all the SPNs in the entire forest anyway.
  2. Search By SPN Type
    1. This has a list of predefined Service Classes that you can select from. Either you can select one of them or select "*" which will look for all the SPN classes registered with the given criteria. This is the first part of the SPN HTTP/IISPRODSRV.myDomain.com
    2. Hostname is the second part of the SPN HTTP/IISPRODSRV.myDomain.com. Either you can enter the "*" or the Hostname if you have this info.
  3. SPN List
    1. This pane will show you the list in a treeview. Right clicking the treeview will expand the tree.
  4. Status
    1. This will display status of the query or any other info which might be thrown by the application when you hit the Query Button at the bottom.

The Helper part of this tool is meant for users to find the SPN that they require to set based on the application they are using. The UI is made simple and easy to understand and use.

  1. Technology
    1. You can choose IIS or SQL based in this based on whether you are attempting to find the required SPNs for IIS or SQL
    2. IIS will use the default port as 80 and if you are configuring a different port you may wants have a look at the knowledge base article KB929650 https://support.microsoft.com/kb/929650 or 908209 (https://support.microsoft.com/kb/908209/ ) Internet Explorer 6 cannot use the Kerberos authentication protocol to connect to a Web server that uses a non-standard port on Windows XP or Windows Server 2003
    3. If you are choosing the SQL option, you will notice the port textbox gets enabled to allow you specify the port SQL is running under.
  2. Details
    1. The CheckBox at the top is for specifying the service that you want to set/find spn for is Clustered or Not
    2. If you are using a domain account as the service identity you specify that in the Account Name textbox. If you are using Machine Account like Network Service or Local System, you can choose Machine Account. You do not have to specify any name in this case.
    3. Machine Name text can be used to specify the Netbios name of the machine the service is running on. If the Service is clustered, then you can specify the Clustername in this.
    4. If you are using a host header instead of cluster name to access the service, you will need take care of couple of additional things here
      1. If the host header you are using is created as an CNAME in DNS, then you will require the SPN for the FQDN of what the ALIAS is mapped to.
      2. If the host header is created as a HOST RECORD in DNS, you will require SPN for the FQDN of the HOST header.
    5. The machine name or cluster name that you specify should be able to resolve through DNS. Make sure you are able to resolve the machine name properly.

SPNViewer.zip

]]> Sample VBS script for sending and recieving messages from MSMQ https://docs.microsoft.com/archive/blogs/sansom/sample-vbs-script-for-sending-and-recieving-messages-from-msmq Mon, 17 Aug 2009 04:07:00 GMT https://blogs.msdn.microsoft.com/sansom/2009/08/17/sample-vbs-script-for-sending-and-recieving-messages-from-msmq/
Option Explicit
Const MQ_RECEIVE_ACCESS = 1
Const MQ_SEND_ACCESS = 2
Const MQ_DENY_NONE = 0
Const MQ_PEEK_ACCESS = 32
Dim Transaction
Dim FormatName
FormatName = WScript.Arguments.Named("f")
If FormatName = "" Then
Help()
Wscript.Quit
End If
Dim MSMQQueueInfo
Set MSMQQueueInfo = CreateObject("MSMQ.MSMQQueueInfo")
MSMQQueueInfo.FormatName = FormatName
If MSMQQueueInfo.IsTransactional2 Then
Transaction = 3 'MQ_SINGLE_MESSAGE
Else
Transaction = 0 'MQ_NO_TRANSACTION
End If
Dim MSMQQueue
Set MSMQQueue = CreateObject("MSMQ.MSMQQueue")
Dim MSMQMessage
Set MSMQMessage = CreateObject("MSMQ.MSMQMessage")
Select Case WScript.Arguments(0)
 Case "/send"
  Set MSMQQueue = MSMQQueueInfo.Open(MQ_SEND_ACCESS, MQ_DENY_NONE)
  MSMQMessage.Body = "Testing Message Queue"
  MSMQMessage.Label = "SampleApp"
  MSMQMessage.Send MSMQQueue, Transaction
  WScript.Echo "Message Sent"
 Case "/peek"
  Set MSMQQueue = MSMQQueueInfo.Open(MQ_PEEK_ACCESS, MQ_DENY_NONE)
  WScript.Echo "If queue is empty, the command will wait until a message comes into queue"
  WScript.Echo "Receiving Message....."
  Set MSMQMessage = MSMQQueue.Peek
  WScript.Echo "Label: " & CStr (MSMQMessage.Label)
  WScript.Echo "Body: " & CStr (MSMQMessage.Body)
  WScript.Echo "Received Message"
 Case "/receive"
  Set MSMQQueue = MSMQQueueInfo.Open(MQ_RECEIVE_ACCESS, MQ_DENY_NONE)
  WScript.Echo "If queue is empty, the command will wait until a message comes into queue"
  WScript.Echo "Receiving Message....."
  Set MSMQMessage = MSMQQueue.Receive
  WScript.Echo "Label: " & CStr (MSMQMessage.Label)
  WScript.Echo "Body: " & CStr (MSMQMessage.Body)
  WScript.Echo "Received Message"
 Case else
  Wscript.Echo "Usage:"
  Wscript.Echo "msmq.vbs /send"
  Wscript.Echo "msmq.vbs /peek"
  Wscript.Echo "msmq.vbs /receive"
End Select
Function Help()
  Wscript.Echo "Usage:"
  Wscript.Echo "msmq.vbs /send /f:DIRECT=OS:machine\private$\test"
  Wscript.Echo "msmq.vbs /peek /f:DIRECT=OS:machine\private$\test"
  Wscript.Echo "msmq.vbs /receive /f:DIRECT=OS:machine\private$\test"
End Function
]]>