Centre technique de beubeu

Aller au contenu | Aller au menu | Aller à la recherche

mercredi 16 avril 2008

Activation du proxy dans IE via la base de registre

Dim oWsh, Cle
'WScript.echo "Activation du proxy dans le parametrage Internet Explorer"

Set oWsh = CreateObject("WScript.Shell")
Cle="HKCU\Software\Microsoft\Windows\CurrentVersion\Internet Settings\ProxyEnable"
oWsh.RegWrite Cle, 1, "REG_DWORD"

Set oWsh = Nothing
WScript.Quit

vendredi 07 septembre 2007

Modification attributs de fichiers en VBS

Dim stFichier
Dim oFSO, oFl
Set oFSO = CreateObject("Scripting.FileSystemObject")
stFichier = "C:\BDM\valeur.txt"

If oFSO.FileExists(stFichier) Then
  Set oFl = oFSO.GetFile(stFichier)
'  MsgBox "Attributes  :" & oFl.Attributes  & vbCrlf & _ 
'         "DateCreated :" & oFl.DateCreated  & vbCrlf & _ 
'         "DateLastAccessed :" & oFl.DateLastAccessed  & vbCrlf & _ 
'         "DateLastModified :" & oFl.DateLastModified  & vbCrlf & _ 
'         "Drive :" & oFl.Drive  & vbCrlf & _ 
'         "Name :" & oFl.Name  & vbCrlf & _ 
'         "ParentFolder :" & oFl.ParentFolder  & vbCrlf & _ 
'         "Path :" & oFl.Path  & vbCrlf & _ 
'         "ShortName :" & oFl.ShortName  & vbCrlf & _ 
'         "ShortPath :" & oFl.ShortPath  & vbCrlf & _ 
'         "Size :" & oFl.Size  & vbCrlf & _ 
'         "Type :" & oFl.Type  

  Wscript.echo("Valeur avant maj = " & oFl.Attributes)
  If oFl.Attributes = 1 Or oFl.Attributes = 33 Or oFl.Attributes = 35 Then
  ' Suppression de la lecture seule
  oFl.Attributes = oFl.Attributes - 1
  Wscript.echo("Valeur après maj = " & oFl.Attributes)
  End If
End If

vendredi 10 août 2007

Gestion de tableau en VB

Dim sListeNomProc()
Dim sNbEltListeNomProc
sNbEltListeNomProc = 3
ReDim sListeNomProc(sNbEltListeNomProc-1)

sListeNomProc(0)="F80110"
sListeNomProc(1)="getcollectetdetagen"
sListeNomProc(2)="getcollectetdetagenNb"

For i=0 To UBound(sListeNomProc)

'sCmdProcess = "OSQL -E -b -n" & _
' " -S " & sSrvInstance & _
' " -d " & sNomBase & _
' " -i " & sRepProc & "\SCR\" & sNomProc & ".sql"
'bResult = oProcess.launchCMDAsChild(sCmdProcess, "")
'If bResult <> 0 Then
' Call oTrace.tracer("Probleme lors de la creation de la procédure " & sNomProc & ", consulter les logs")
' 'Call WScript.Quit(-1)
'End If

Wscript.echo "sListeNomProc(i)=" & sListeNomProc(i)

Next