Question créer utilisateur avec droit d'acces...

Salut,
d'avoir le script d'origine ce serait pas mal

Salut,
kevinmary écrit:

merci de repondre.

A quoi servirait un forum sans réponse

Comme ton fichier texte contient un nom d'utilisateur par ligne, et c'est la seule info qui t'intéresse, la lecture du fichier XLS peut se faire à l'aide d'ADO. Cela permet de voir un fichier XL comme une table d'une base de données, on peut donc y effectuer des requêtes pour récupérer un ou + champs.
Des explications , une solution .
Je n'ai pas testé le script, vu le niveau de Oisin Grehan on peut lui faire confiance, mais j'ai déjà utilisé cette approche dans des applications codée en Delphi.

Tu as juste à recopier le script dans un fichier nommé Import-Excel.ps1, ensuite reste à sélectionner le champ qui t'intéresse.
A vérifier tout de même avec XL 2007 car je ne l'ai pas sous la main.

Bon après qq tests le script contient 2 bugs:
[code:1][void]$reader.GetValues($values)[/code:1]
et on doit fermer la connexion en fin de script
[code:1] $Connection.Close()[/code:1]
Ensuite le fichier XL peut contenir des lignes vide, dans ce cas ADO les renvoit, du coup j'ai ajouté un filtre.Il y a surement + élégant mais ça fonctionne:
[code:1]
function Import-Excel([string] $filename = $(throw \"need a filename, e.g. c:\temp\test.xls\"«»),
[string] $worksheet,
[switch] $RemoveEmptyRow)
{
Filter Remove-EmptyLine
{ #test si tous ls champs d'un ligne sont à null
if ($RemoveEmptyRow)
{
$Emission=0
foreach ($Field in $Fields)
{
if ($_.\"$Field\".GetType() -eq [System.DBNull])
{$Emission++}
}
if ($Emission -ne $Fields.Count)
{$_} #On réémet l'objet
}
else {$_} #On réémet l'objet
}
if (-not (Test-Path $filename))
{
throw \"Path '$filename' does not exist.\"
exit
}

if (-not $worksheet)
{
Write-Warning \"Defaulting to Sheet1 in workbook.\"
$worksheet = \"Sheet1\"
}

# resolve relative paths
$filename = Resolve-Path $filename

# assume header row (HDR=YES)
$connectionString = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=${filename};Extended Properties=`\"Excel 8.0;HDR=YES`\"\";

$connection = New-Object data.OleDb.OleDbConnection $connectionString;
$connection.Open();
$command = New-Object data.OleDb.OleDbCommand \"select * from [$worksheet`$]\"

$command.connection = $connection
$reader = $command.ExecuteReader(\"CloseConnection\"«»)

if ($reader.HasRows)
{
# cache field names
$fields = @()
$count = $reader.FieldCount


for ($i = 0; $i -lt $count; $i++) {
$fields += $reader.GetName($i)
}


while ($reader.read()) {

trap [exception] {
Write-Warning \"Error building row.\"
break;
}

# needs to match field count
$values = New-Object object[] $count

# cache row values
[void]$reader.GetValues($values)

$row = New-Object psobject

$fields | foreach-object -begin {$i = 0} -process {
$row | Add-Member -MemberType noteproperty -Name $fields[$i] -Value $values[$i] ; $i++
}

# emit row
$row|Remove-EmptyLine
}#While
}#If
$Connection.Close()
}
$File=\"C:\temptest.xls\"
$Datas=Import-Excel $File \"Feuil1\" -RemoveEmptyRow
$Datas.Count
[/code:1]
De plus, on voit que la valeur affectée par défaut au paramètre $worksheet est le nom US, petit pb de localisation...
Enfin certaines valeurs peuvent être interprétées avant leur lecture. Par exemple pour une cellule (format standard) contenant \"28/132\" on reçoit DBnull...
Bref, un jeux de test conséquent est à envisager sérieusement.
Sinon reste l'automation d'Excel ou la conversion du fichier XL en XML.