Variables d'environement

Dagor a écrit:

Bonsoir,

Je voudrais créer un script qui crée une varaiable d'environement au login
d'un user pour pouvoir la reprendre dans un fichier .ini

ex :

créer la variable : %NomOrdi%

et pouvoir la relire au même titre que le %username%


Code :

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

WshShell.RegWrite "HKCUVolatile EnvironmentNomOrdi", "nom-ordi", "REG_SZ"


Merci pour votre aide.



Dagor

Ecrire et Lire dans Un Fichier .ini ?

'Mets ce Code dans un module :

Private Declare Function GetPrivateProfileString Lib "kernel32" AliAs
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" AliAs
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As Long

Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Fichier = App.Path & "" & App.EXEName & ".ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable,
"", Retour, Len(Retour), Fichier))
End Function

Function EcrireINI(Entete As String, Variable As String, Valeur As
String) As String
Fichier = App.Path & "" & App.EXEName & ".ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function

'Pour l'executer ex :
EcrireINI("MonEntete", "MaVariable", "MaValeur")
LireINI("MonEntete", "MaVariable")


A+

Géo

Merci beaucoup Géo

@+


"Géo" <nobody@isperfect.coh> a écrit dans le message de news:
41907139.7040502@isperfect.coh...

Dagor a écrit:
> Bonsoir,
>
> Je voudrais créer un script qui crée une varaiable d'environement au

login

> d'un user pour pouvoir la reprendre dans un fichier .ini
>
> ex :
>
> créer la variable : %NomOrdi%
>
> et pouvoir la relire au même titre que le %username%
>
>
> Code :
>
> Dim WshShell
> Set WshShell = WScript.CreateObject("WScript.Shell")
>
> WshShell.RegWrite "HKCUVolatile EnvironmentNomOrdi", "nom-ordi",

"REG_SZ"

>
>
> Merci pour votre aide.
>
>
>
> Dagor
>
>

Ecrire et Lire dans Un Fichier .ini ?

'Mets ce Code dans un module :

Private Declare Function GetPrivateProfileString Lib "kernel32" AliAs
"GetPrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpDefault As String, ByVal lpReturnedString As
String, ByVal nSize As Long, ByVal lpFileName As String) As Long

Private Declare Function WritePrivateProfileString Lib "kernel32" AliAs
"WritePrivateProfileStringA" (ByVal lpApplicationName As String, ByVal
lpKeyName As Any, ByVal lpString As Any, ByVal lpFileName As String) As

Long

Function LireINI(Entete As String, Variable As String) As String
Dim Retour As String
Fichier = App.Path & "" & App.EXEName & ".ini"
Retour = String(255, Chr(0))
LireINI = Left$(Retour, GetPrivateProfileString(Entete, ByVal Variable,
"", Retour, Len(Retour), Fichier))
End Function

Function EcrireINI(Entete As String, Variable As String, Valeur As
String) As String
Fichier = App.Path & "" & App.EXEName & ".ini"
WriteINI = WritePrivateProfileString(Entete, Variable, Valeur, Fichier)
End Function

'Pour l'executer ex :
EcrireINI("MonEntete", "MaVariable", "MaValeur")
LireINI("MonEntete", "MaVariable")


A+

Géo