Dim WSHShell, fs

Set WSHShell = WScript.CreateObject("WScript.Shell")

 

Set fs = WScript.CreateObject("Scripting.FileSystemObject")

 

Function MakeDesktopShortcut( name, target )

    Dim Shortcut,DesktopPath,StartupPath

   

    DesktopPath = WSHShell.SpecialFolders("Desktop")

    Set Shortcut = WSHShell.CreateShortcut(DesktopPath & "\" & name & ".lnk")

    Shortcut.TargetPath = target

    StartupPath = fs.GetParentFolderName( target )

    If fs.FolderExists( StartupPath ) then

        Shortcut.WorkingDirectory = StartupPath

    End If

    Shortcut.Save

End Function

 

MakeDesktopShortcut "Shortcut to Calc","c:/windows/system32/calc.exe"

Set objNetwork = CreateObject("Wscript.Network")

strUser = objNetwork.UserName

strPath = "C:\Documents and Settings\" & strUser

 

Set objShell = CreateObject("Wscript.Shell")

strPrograms = objShell.SpecialFolders("Programs")

 

Set objShellLink = objShell.CreateShortcut(strPrograms & "\" & strUser & ".lnk")

objShellLink.TargetPath = "c:/windows/system32/calc.exe"

objShellLink.Description = "Calculadora de " & strUser

objShellLink.WorkingDirectory = strPath

objShellLink.Save

 

Option Explicit

Dim fso, OutFile, sDrv, sFName, sReport, sFile, sTitle

sTitle = "FileInfo.vbs © Bill James"

Set fso = CreateObject("Scripting.FileSystemObject")

OutFile = "C:\searched.txt"

If fso.FileExists(OutFile) Then fso.DeleteFile(OutFile)

Set sReport = fso.OpenTextFile(OutFile, 8, True)

 

sDrv = InputBox("Enter drive letter to search (letter only)" & vbcrlf & _

                vbcrlf & "(Enter * to search all local drive letters)", sTitle)

If sDrv = "" Then WScript.Quit

sFName = InputBox ("Enter file name to search for (no extension)", sTitle)

If sFName = "" Then WScript.Quit

 

GetResults "c:", sFName

 

sReport.Close

Set sReport = Nothing

 

Dim f, ra, Results

Set f = fso.OpenTextFile(OutFile)

On Error Resume Next

ra =  f.ReadAll

If Err Then

  Results = 0

End If

On Error GoTo 0

 

f.Close

Set f = Nothing

Set fso = Nothing

 

If Results> 0 Then

  Wscript.CreateObject("WScript.Shell").Run OutFile

  MsgBox "No matches found for " & chr(34) & sFName & chr(34) & " on " & sDrv,, sTitle

End If

 

Sub GetResults(drv, fname)

  Dim sWQL, oFile, sAttrib

  sWQL = "select * from cim_datafile where Drive='" & _

         drv & "' AND FileName = '" & fname & "'"

  For Each oFile In GetObject("winmgmts:").execquery(sWQL)

    Results = Results + 1

    sFile = oFile.Name

    Set f = fso.GetFile(sFile)

    sReport.WriteLine sFile & vbcrlf & "Version: " & _

      fso.GetFileVersion(sFile) & vbcrlf & "Created: " & _

      f.DateCreated & vbcrlf & "Modified: " & f.DateLastModified & _

      vbcrlf & "Size: " & FormatNumber(f.Size, 0) & " bytes"

    If oFile.Archive Then sAttrib = "Archive "

    If oFile.Compressed Then sAttrib = sAttrib & "Compressed "

    If oFile.Encrypted Then sAttrib = sAttrib & "Encrypted "

    If oFile.Hidden Then sAttrib = sAttrib & "Hidden "

    If oFile.System Then sAttrib = sAttrib & "System "

    If NOT oFile.Writeable Then sAttrib = sAttrib & "ReadOnly "

    If sAttrib <> "" Then sReport.WriteLine "Attributes: " & sAttrib & vbcrlf

    sAttrib = ""

  Next

End Sub

 

 

 

 

   Dim DataSourceName

   Dim DatabaseName

   Dim Description

   Dim DriverPath

   Dim DriverName

   Dim LastUser

   Dim Regional

   Dim Server

 

   Const SystemFolder= 1

   Dim fso

   Dim SysFolder

   Dim SysFolderPath

 

   Set fso = wscript.CreateObject("Scripting.FileSystemObject")

   Set SysFolder =fso.GetSpecialFolder(SystemFolder)

   SysFolderPath= SysFolder.Path

 

   Set oArg= wscript.Arguments

 

   if oArg.Count <> 4 then

       call Usage

   end if

 

   'Specify the DSN parameters.

 

   DataSourceName = oArg(0)

   DatabaseName = oArg(1)

   Description = "Odbc de BD" & DatabaseName

   DriverPath = SysFolderPath & "\sqlsrv32.dll"

   Server = oArg(2)

   LastUser  = oArg(3)

 

   DriverName = "SQL Server"

 

   'Creamos objetos que escriben en el registro

        Set WshShell = WScript.CreateObject("WScript.Shell")

 

    'Establecemos el Key del DSn en el registro

    Dim RegEdPath

    RegEdPath= "HKLM\SOFTWARE\ODBC\ODBC.INI\" & DataSourceName & "\"

    'Grabamos

    WshShell.RegWrite  RegEdPath  , ""

 

   'Ponemos los valores de la nueva Key correspondiente al DSN

 

   WshShell.RegWrite  RegEdPath & "Database" , DatabaseName

   WshShell.RegWrite  RegEdPath & "Description" , Description

   WshShell.RegWrite  RegEdPath & "Driver" , DriverPath

   WshShell.RegWrite  RegEdPath & "LastUser" , LastUser

   WshShell.RegWrite  RegEdPath & "Server" , Server

 

   'Escribo en el Key "ODBC Data Sources" para poder listar el nuevo DSN

   ' en el ODBC Manager

 

   WshShell.RegWrite "HKLM\SOFTWARE\ODBC\ODBC.INI\ODBC Data Sources\" & DataSourceName , DriverName

 

   

 

wscript.Quit

 

Sub Usage

     wscript.echo "Create a DSN to access a SQL Server database with ODBC"

     wscript.echo "Uso :"

     wscript.echo "CreateDSN.vbs <DSNName> <DataBaseName> <SQLServer> <User> "

     wscript.echo ""

     wscript.echo "Ejemplo 1 : CreaDSN.vbs NuevoDSN Pub MySQLServer AdminUser"

     wscript.Quit

end sub