Code & Snippet

Rilevare le istanze di SQL Server sulla rete

Ermanno Goletto — Mon, 16 Jun 2008 14:18:43 GMT

Ci sono vari metodi di farlo ad esempio usare SQL-DMO (SQL Server 2000) o meglio ancora SMO (SQL Server 2005). Ma questi due metodi prevedono di installare sui client le relative dll.

Un altro modo invece è quello di usare MC-SQLR ovvero il SQL Server Resolution Protocol e quindi di inviare un pacchetto
CLNT_BCAST_EX e analizzare i pacchetti di risposta di risposta server SVR_RESP.

Qui trovate un esempio Locate SQL Server instances on the local network, l'autore aveva analizzato il traffico di rete per capire come funzionava il protocollo ora con la pubblicazione delle specifiche dei protocolli Microsoft non è più necessario: MC-SQLR]: SQL Server Resolution Protocol Specification.

Ricavare i path di default per i file di dati e logs in SQL Server 2005

Ermanno Goletto — Thu, 29 May 2008 19:50:39 GMT

Una delle impostazioni che possibile fare su un'istanza di SQL Server è quella del percorso di default in cui memorizzare file dati e logs di un nuovo database. Ho fatto diverse ricerca, ma non trovato un modo semplice per ricavare tramite T-SQL tali informazioni.

A quanto sembra se si modificano tali percorsi questi vengono memorizzati nelle chiavi di registry:

HKEY_LOCAL_MACHINE\Software\Microsoft\MSSQLServer\MSSQLServer\DefaultData
HKEY_LOCAL_MACHINE\Software\Microsoft\MSSQLServer\MSSQLServer\DefaultLog

In caso contrario i path è quello specificato durante l'installazione per i File di dati quindi si può pensare di ricavarli dai path dei file mdf e ldf del database master.

Di seguito uno script T-SQL per ricavare il path di default per i file di dati:

USE master
declare @DefaultData nvarchar(512)

--Lettura chiave di registry HKEY_LOCAL_MACHINE\Software\Microsoft\MSSQLServer\MSSQLServer\DefaultData
EXEC xp_instance_regread N'HKEY_LOCAL_MACHINE',
N'Software\Microsoft\MSSQLServer\MSSQLServer', N'DefaultData',
@DefaultData OUTPUT, 'no_output'

--Se la chiave di registry non esiste si utilizza il path del file mdf del database master
IF (@DefaultData IS NULL)
BEGIN
SELECT @DefaultData = SUBSTRING(physical_name, 0, CHARINDEX(N'master.mdf', physical_name))
FROM sys.database_files
WHERE name='master'
END

--Rimozione eventuale slash finale
IF ((@DefaultData IS NOT NULL) AND (CHARINDEX(N'\', @DefaultData, len(@DefaultData)) > 0))
BEGIN
SELECT @DefaultData = STUFF (@DefaultData,len(@DefaultData),1,N'')
END

SELECT @DefaultData

Mentre questo è lo script per ricavare il path di default per i file di log:

USE master
declare @DefaultLog nvarchar(512)

--Lettura chiave di registry HKEY_LOCAL_MACHINE\Software\Microsoft\MSSQLServer\MSSQLServer\DefaultLog
EXEC xp_instance_regread N'HKEY_LOCAL_MACHINE',
N'Software\Microsoft\MSSQLServer\MSSQLServer', N'DefaultLog',
@DefaultLog OUTPUT, 'no_output'

--Se la chiave di registry non esiste si utilizza il path
--del file mdf del database master
IF (@DefaultLog IS NULL)
BEGIN
SELECT @DefaultLog = SUBSTRING(physical_name, 0, CHARINDEX(N'mastlog.ldf', physical_name))
FROM sys.database_files
WHERE name='mastlog'
END

--Rimozione eventuale slash finale
IF ((@DefaultLog IS NOT NULL) AND (CHARINDEX(N'\', @DefaultLog, len(@DefaultLog)) > 0))
BEGIN
SELECT @DefaultLog = STUFF (@DefaultLog,len(@DefaultLog),1,N'')
END

SELECT @DefaultLog

Se poi occorre usare questi script in un programma .NET il mio consiglio è quello di non inserire lo script nel codice, ma di creare dei file con estensione sql in questo modo Visual Studio visualizzerà lo script evidenziando le parole chiave esattamente come in Management Studio. Quindi aggiungere il file come risorsa in questo modo VS 2005 e sucessivi creeranno una comoda prorietà stringa in My.Resources che conterrà il testo del file. In VS 2003 è possibile impostare il file come Embedded e tramite un po' di codice leggere il contenuto del file:

        Dim text As String = String.Empty
        Dim resource As System.IO.Stream = _
            System.Reflection.Assembly.GetExecutingAssembly.GetManifestResourceStream( _
                "NameSpace.FileName")

Dim reader As New System.IO.StreamReader(resource)
text = reader.ReadToEnd()

reader.Close() : reader = Nothing
resource.Close() : resource = Nothing

Autosizing delle righe di un DataGrid

Ermanno Goletto — Fri, 16 May 2008 13:59:17 GMT

A volte mi capita di dover mettere mano a codice .NET 1.1 su Visual Studio 2003 e in questa versione la griglia nativa il DataGrid non era ricco di funzionalità. L'ultima richiesta che mi è arrivata è come realizzare l'autosizing delle righe per vedere completamente il contenuto delle righe le cui colonne vano su più righe. Manualment la cosa è possibiole quindi la funzionalità in effetti c'è ma non è esposta e quindi occorre utilizzare la reflection come indicato in questo link http://www.syncfusion.com/FAQ/winforms/FAQ_c44c.aspx

Di seguito la versione che ho realizzato:

Private Sub AutoSizeRows(ByVal columnStyle As System.Windows.Forms.DataGridColumnStyle)
Dim dataGrid As System.Windows.Forms.DataGrid = columnStyle.DataGridTableStyle.DataGrid
Dim dataGridtype As System.Type = dataGrid.GetType

Do
    dataGridtype = dataGridtype.BaseType
    If dataGridtype Is Nothing Then Exit Sub
Loop Until dataGridtype.FullName = GetType(System.Windows.Forms.DataGrid).FullName

While dataGridtype.FullName <> GetType(System.Windows.Forms.DataGrid).FullName
    dataGridtype = dataGridtype.BaseType
End While

Dim mi As System.Reflection.MethodInfo = dataGridtype.GetMethod("get_DataGridRows", _
    Reflection.BindingFlags.FlattenHierarchy Or _
    Reflection.BindingFlags.IgnoreCase Or _
    Reflection.BindingFlags.Instance Or _
    Reflection.BindingFlags.NonPublic Or _
    Reflection.BindingFlags.Public Or _
    Reflection.BindingFlags.Static)

Dim dataGridRows As New ArrayList

For Each item As Object In CType(mi.Invoke(dataGrid, Nothing), Array)
    If item.ToString().EndsWith("DataGridRelationshipRow") Then
      dataGridRows.Add(item)
    End If
Next

Dim bmb As System.Windows.Forms.BindingManagerBase = _
dataGrid.BindingContext(dataGrid.DataSource, dataGrid.DataMember)

If Not bmb Is Nothing AndAlso bmb.Count > 0 Then
    Dim size As System.Drawing.SizeF
    Dim g As System.Drawing.Graphics = _
      System.Drawing.Graphics.FromHwnd(dataGrid.Handle)
    Dim sf As New StringFormat(StringFormat.GenericTypographic)
    Dim columnIndex As Integer = columnStyle.DataGridTableStyle.GridColumnStyles.IndexOf(columnStyle)
    Dim pi As System.Reflection.PropertyInfo
    Dim rowHeight As Integer

    For rowIndex As Integer = 0 To bmb.Count - 1
      size = g.MeasureString(dataGrid(rowIndex, columnIndex).ToString(), dataGrid.Font, columnStyle.Width, sf)
      pi = dataGridRows(rowIndex).GetType().GetProperty("Height")
      rowHeight = System.Convert.ToInt32(size.Height)

'Little extra cellpadding space
rowHeight += 8

pi.SetValue(dataGridRows(rowIndex), rowHeight, Nothing)
Next

    'Rilascio risorse
     g.Dispose() : g = Nothing
     sf.Dispose() : sf = Nothing
End If
End Sub

Script per leggere il numero seriale del computer

Ermanno Goletto — Thu, 15 May 2008 13:42:19 GMT

Lo script in se non è nulla di che nel senso basta utilizzare WMI per leggere la proprietà SerialNumeber della classe Win32_BIOS, inrealtà lo scopo di questo script è quello di creare una template per simili esigenze ovvero:

Gestire script utilizzabili da riga di comando con possibilità di richiedere dati all'utente
Utilizzare WMI
Connettersi anche a computer remoti
Visualizzare in forma tabellare i risultati

Tutte queste esigenze di fatto sono semplicemente realizzabili se si utilizza l'oggetto Microsoft.CmdLib disponibile in Windows XP e Windows 2003 Server, per maggiori informazioni si veda il seguente Hey, Scripting Guy! Not-So-Hard Work Has Its Rewards, Too (purtroppo pare che su Vista non funzioni)

Per utilizzare l'oggetto occorre inserire il seguente codice nello script:

'*** Include common module
Dim objCmdLib : Set objCmdLib = CreateObject( "Microsoft.CmdLib" )
'*** Referring the script host to common module
Set objCmdLib.ScriptingHost = WScript.Application

Per controllare che lo script sia eseguito a riga di comando è possibile utilizzarre la funzione CheckScript:

'*** Check whether the script is run using CScript
If CInt(objCmdLib.checkScript()) <> CONST_CSCRIPT Then
WScript.Echo (UseCscriptErrorMessage)
WScript.Quit(EXIT_UNEXPECTED)
End If

Per richiedere le credenziali all'utente da riga di comando non visualizzando la password è possibile utilizzare il seguente codice utilizzano l'oggetto ScriptPW disponibile in Windows XP e Windows 2003:

'*** Require connection information to user
Dim strComputer, strDomain, strUser, strPassword, objPassword

Wscript.StdOut.Write "Please enter computer name or IP Address (. for local host):"
strComputer = Wscript.StdIn.ReadLine

If strComputer <> "." Then
Wscript.StdOut.Write "Please enter domain (null for log on to computer):"
strDomain = Wscript.StdIn.ReadLine
        If strDomain = "" Then strDomain = strComputer

Wscript.StdOut.Write "Please enter your user name (null for Administrator):"
strUser = Wscript.StdIn.ReadLine
        If strUser = "" Then strUser = "Administrator"
        strUser = strDomain & "\" & strUser

Set objPassword = CreateObject("ScriptPW.Password")
Wscript.StdOut.Write "Please enter your password:"
strPassword = objPassword.GetPassword()
        Wscript.StdOut.WriteLine
End If

Per ottenere il servizio wmi è possibile utilizzare la funzione WMIConnect:

'*** Connection
Dim blnLocalConnection : blnLocalConnection = False
Dim objService

If NOT objCmdLib.wmiConnect("root\cimv2" , _
strUser , strPassword , _
        strComputer , blnLocalConnection , _
        objService) Then
Wscript.StdOut.WriteLine(ConnectionErrorMessage)
        WScript.Quit(EXIT_METHOD_FAIL)
End If

Per visualizzare i dati in forma tabellare è possibile utilizzare la funzione ShowResults:

'*** Set Show Results Format
Dim arrHeader : arrHeader = Array("Element", "Value")
Dim arrMaxLength : arrMaxLength = Array(15, 25)
Dim strFormat : strFormat = "Table"
Dim blnPrintHeader : blnPrintHeader = True
Dim arrBlnHide : arrBlnHide = Array(False, False)
Dim arrResultsArray()
Dim index : index = 0

'*** Read info
Dim objQuery, objQueryItem

'*** Read info Computer System
Set objQuery = objService.ExecQuery("Select Model from Win32_ComputerSystem")

For Each objQueryItem in objQuery
ReDim Preserve arrResultsArray(index)
arrResultsArray(index) = Array("Model", objQueryItem.Model)
index = index + 1
Next

'*** Read info BIOS
Set objQuery = objService.ExecQuery("Select SerialNumber from Win32_BIOS")

For Each objQueryItem in objQuery
ReDim Preserve arrResultsArray(index)
arrResultsArray(index) = Array("Serial Number", objQueryItem.SerialNumber)
index = index + 1
Next

'*** Show System Information
Wscript.StdOut.WriteLine
objCmdLib.ShowResults arrHeader, arrResultsArray, arrMaxLength, _
strFormat, blnPrintHeader, arrBlnHide

Per approfindimenti sulle condizioni necessarie per connettersi trmite WMI a computer remoti si veda WMI Isn't Working! mentre per imparare ad utilizzare funzionalità interessanti il mio consiglio è quello di sbirciare gli scripti già presenti nel sistema, in Windows XP \Windows\System32.

Lo script completo è disponible al seguente SysInfo.vbs (tx dx Salva oggetto se avete problemi a scaricarlo).

Inviare mail tramite .NET 1.1 con Exchange 2003 e Exchange 2007

Ermanno Goletto — Wed, 09 Apr 2008 10:15:04 GMT

In questo articolo ho raccolto alcune riflessioni su come inviare mail tramite .NET Framework 1.1 e 2.0 utilizzando Exchange 2003 e Exchange 2007 analizzando le differenze relative alla gestione dell'autenticazione in .NET 1.1 e 2.0 e le modifiche apportate in Exchange 2007 rispetto a Exchange 2003.

Script per comprimere un file

Ermanno Goletto — Thu, 31 Jan 2008 14:11:14 GMT

A volte in uno script amministrativo può essere necessario dover comprimere un file e in tal caso una possibilità è quella di usare le cartelle comprese presenti a partire da XP.

[Update] Si tenga conto che Le cartelle compresse di XP hanno il limite di 4 GB

Option Explicit

Dim strScriptFullName, strCurrentPath, strZipFilePath, strAddFilePath

strScriptFullName = wscript.scriptfullname
strCurrentPath = Left(strscriptfullname, InStrRev(strScriptFullName, "\"))
strZipFilePath = strCurrentPath & "test.zip"
strAddFilePath = strCurrentPath & "test.txt"

'Crea un file zip vuoto
If CreateEmptyZip(strZipFilePath) Then

'Aggiunge un file all'archivio zip
Call AddFile2Zip(strZipFilePath, strAddFilePath)

End If

Function CreateEmptyZip(strZipFilePath)
On Error Resume Next

'Apertura file in scrittura
Dim objFso, objFile
Const ForWriting = 2
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFile = objFso.OpenTextFile(strZipFilePath, ForWriting, True)

If Err = 0 Then
objFile.Write Chr(80) & Chr(75) & Chr(5) & Chr(6) & String(18, 0)
End If

If Err = 0 Then
objFile.Close
End If

Set objFso = Nothing
Set objFile = Nothing

If Err = 0 Then
    CreateEmptyZip=True
Else
    Err.Clear
    CreateEmptyZip=False
End If
End Function

Function AddFile2Zip(strZipFilePath, strAddFilePath)
'On Error Resume Next

Dim objApp, objFolder
Set objApp = createobject("Shell.Application")
Set objFolder = objApp.NameSpace(strZipFilePath)

If Err = 0 Then
Call objFolder.CopyHere(strAddFilePath)

'Le opzioni di CopyHere sembrano non avere effetto
'per operazioni su cartelle compresse

    'Pausa per consentire l'avvio del processo di compressione
    'in quanto il processo verrà avviato quando quando il
    'processo dello script verrà messo in idle se il
    'processo dello script termina prima il processo
    'di compressione non viene avviato.
    'Ciò accade perchè CopyHere è asincrona
     wscript.Sleep 500
End If

Set objFolder = Nothing
Set objApp = Nothing

If Err = 0 Then
    AddFile2Zip = True
Else
    Err.Clear
    AddFile2Zip = False
End If
End Function

Section VirtualEarth per MWPSK (My Web Pages Start Kit)

Ermanno Goletto — Wed, 12 Sep 2007 22:12:42 GMT

Mi sono cimentato nella realizzazione di una Sezione per MWPSK che mi permettesse di realizzare la funzionalità "Dove siamo"/"Where we are" presente nella maggior parte siti in modo più dinamico tramite una mappa di Virtual Earth.

La scelta è caduta su una Section perchè rispetto agli Easy Control permettono di avere dei dati di configurazione che possono essere poi salvati anche se l'implementazione di una Section è maggiormente complessa rispetto a quella di un Easy Control. In questo modo però è posiibile dare all'utente la possibilità di configurare la mappa consentendo la possibiltà di inserire latitudine e longitudine del centro mappa, di definire l'altezza della sezione e opzionalmente di definire zoom, rendere fissa la mappa, inserire un Pushpin, impostare la metrica e visualizzare la MiniMap.
Inoltre in questo modo sarà possibile inserire più mappe nel sito e ciò può tornare utile nel caso ad esempio di piccole attività commerciale con più punti vendita.

Gli Easy Control sono da intersi invece come funzionatà generali senza necessità di configurazione o di persistenza di dati o come funzionalità specifiche del sito, il vantaggio è che la loro implementazione è meno complessa.

Per approfondire le linee guida per implementare Section e Easy Control si faccia riferimento ai seguenti link:
http://www.codeplex.com/MyWebPagesStarterKit/Project/FileDownload.aspx?DownloadId=6942
http://www.codeplex.com/MyWebPagesStarterKit/Project/FileDownload.aspx?DownloadId=15508
http://www.codeplex.com/MyWebPagesStarterKit/Wiki/View.aspx?title=Additional%20components%20and%20examples

Implementare una Section VirtualEarth significa di fatto realizzare un controllo che erediata dalla classe del MWPSK MyWebPagesStarterKit.Controls.SectionControlBaseClass la quale a sua volta eredita da System.Web.UI.UserControl e scrivere una classe che si occuperà gestire i dati di configurazione ereditata dalla classe MyWebPagesStarterKit.Section.

Per inserire una mappa Virtual Earth all'interno di uno UserControl occorre:

Aggiungere un div nello UserControl all'interno del quale verrà visualizzata la mappa.
Per poter modificare l'altezza della mappa il div sarà a sua volta contenuto all'interno di un panel:
<asp:View ID="readonlyView" runat="server">
   <asp:Panel ID="panReadonly" runat="server" Height="300px" Width="100%">
      <div style="position: relative; width: 100%; height: 100%" id="divMap">
      </div>
   </asp:Panel>
</asp:View>
Aggiungere il meta <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> nel tag head.
Ciò consente la corretta visualizzazione di tutte le mappe, ad esempio, nel caso di una mappa del Giappone i caratteri giapponesi sarranno visualizati correttamente.
Per aggiungere il tag è possibile utilizzare le seguenti istruzioni:
System.Web.UI.HtmlControls.HtmlMeta meta = new System.Web.UI.HtmlControls.HtmlMeta();
meta.HttpEquiv = "Content-Type";
meta.Content = "text/html; charset=utf-8";
this.Page.Header.Controls.Add(meta);
Aggiungere il tag script per l'inclusione delle Api di Virtual Earth:
<script src="http://dev.virtualearth.net/mapcontrol/v5/mapcontrol.js" type="text/javascript"></script>
Per aggiungere il tag script include è possibile utilizzare le seguenti istruzioni:
if (!this.Page.ClientScript.IsClientScriptIncludeRegistered(this.GetType(),"mapcontrol"))
{
this.Page.ClientScript.RegisterClientScriptInclude(this.GetType(), "mapcontrol",
"http://dev.virtualearth.net/mapcontrol/v5/mapcontrol.js");
}
Costruire lo script block contenente la funzione LoadMap che richiama la funzione javascript BuildMap contenuta nel file ascx dello UserControl con i paramentri impostati in sede di configurazione per il redering della mappa all'interno del div.
Per aggiungere lo script block è possibile utilizzare le seguenti istruzioni:
if (!this.Page.ClientScript.IsClientScriptBlockRegistered(this.GetType(), "loadmap"))
{
    this.Page.ClientScript.RegisterClientScriptBlock(this.GetType(), "loadmap",
      "function LoadMap()\n" +
      "{\n" +
      string.Format("BuildMap({0},{1},{2},'{3}',{4},{5},'{6}','{7}');\n",
        this._section.Latitude,
        this._section.Longitude,
        this._section.Zoom,
        this._section.Unit,
        this._section.Fixed.ToString().ToLower(),
        this._section.ShowMiniMap.ToString().ToLower(),
        this._section.PushpinTitle,
        this._section.PushpinDescription) +
        "}",
      true);
}
Invocare la funzione javascript LoadMap nell'evento onload del body.
Occorre chiamare il metodo LoadMap dopo aver completato il caricamento della pagina poiché il caricamento della mappa va a modificare il DOM e può causare errori nel browser (in particolare con IE7) se le modifiche avvengono prima che tutto il DOM sia stato caricato.
Per aggiungere lo startup script è possibile utilizzare le seguenti istruzioni:
if (!this.Page.ClientScript.IsStartupScriptRegistered(this.GetType(), "onload"))
{
    this.Page.ClientScript.RegisterStartupScript(this.GetType(), "onload",
      "AddOnloadEvent(LoadMap);",
      true);
}
La funzione javascript AddOnloadEvent si occupa di aggiungere un event handler all'evento onload del body della pagina che ospita lo UserControl ed è contenuta nel file ascx dello stesso:
function AddOnloadEvent(fnc)
{
if ( typeof window.addEventListener != "undefined" )
    // Mozilla
    window.addEventListener( "load", fnc, false );
else if ( typeof window.attachEvent != "undefined" ) {
    // IE
    window.attachEvent( "onload", fnc );
}
else {
    // Others
    if ( window.onload != null ) {
      var oldOnload = window.onload;
      window.onload = function ( e ) {
        oldOnload( e );
        window[fnc]();
      };
    }
    else
      window.onload = fnc;
}
}

La Section è disponibile per il download al seguente link:
http://www.codeplex.com/MyWebPagesStarterKit/WorkItem/View.aspx?WorkItemId=12747

Ovviamente può ancora essere migliorata in quanto al momento non è localizzata, ma l'interfaccia di configurazione è solo in lingua inglese e non ho scritto l'help ma ho solo gestito il link ad una sezione #virtualearth-content nel file quick_guide.html.
Un'estensione interessante potrebbe essere quella di poter aggiungere più pushpin sulla mappa.

String.Format e i valori Boolean

Ermanno Goletto — Sun, 19 Aug 2007 23:44:03 GMT

Leggendo questo post di Corrado mi è venuto in mente un modo per formattare i valori booleani partendo dal fatto che CInt(True ) è -1 e CInt(False) è 0:
String.Format("Il valore è {0:Falso;Vero}.",CInt(booleanValue))

Preview di uno Screensaver in un oggetto container

Ermanno Goletto — Wed, 08 Aug 2007 19:18:00 GMT

Per fare il preview di uno Screensaver in un oggetto container è possibile utilizzare il parametro /p dello stesso. Di seguito il codice per visualizzare uno Screensaver in una PictureBox:

Private Const ScreenSaverName As String = "ssbezier.scr"
Private screenSaverProcess As System.Diagnostics.Process

Dim startInfo As New System.Diagnostics.ProcessStartInfo
startInfo.Arguments = "/p " & Me.PictureBox1.Handle.ToString()
startInfo.FileName = ScreenSaverName
startInfo.UseShellExecute = False
screenSaverProcess = System.Diagnostics.Process.Start(startInfo)

Per arrestare la visualizzazione dello Screensaver basterà terminare il processo:
screenSaverProcess.Kill()
screenSaverProcess.Close()
screenSaverProcess.Dispose()

Ricavare la porta di una stampante

Ermanno Goletto — Wed, 21 Feb 2007 15:44:00 GMT

Per ricavare la porta di una stampante in VS 2003 è possibile utilizzare WMI e in particolare la classe Win32_Printer :

Public Shared Function GetPrinterPortName(ByVal printerName As String) As String
     Dim portName As String = String.Empty
     Dim path As String = String.Format("Win32_Printer.DeviceID='{0}'", printerName)
     Dim p As New System.Management.ManagementObject(path)

     p.Get()
     portName = p("PortName").ToString()
     p.Dispose() : p = Nothing

Return portName
End Function

Per utilizzare il codice occcore aggiungere un reference a System.Management.

In VS 2005 non ho trovato funzionalità native per ricavare la porta della stampante anche se inizialmente era previsto un My.Computer.Printers come si può leggere nel seguente articolo http://msdn.microsoft.com/msdnmag/issues/04/05/VisualBasic2005/ ma nella versione definitiva pare non sia poi stato implementato chissà se conteneva una funzionalità per ricavare le porte delle stampati?