Variable du nom d'utilisateur sous Xp (VB7)

Question

Lut,
Sous VB7, je souhaiterais vider le prefech de windows par commande, mais comment faire pour mettre en varaible le nom du User : 
ex : Si utilisateur s'appelle user alors le chemin est documents and settings\user\...
Comment mettre en variable pour que cela atteigne la cible quel que soit le nom ?

Merci d'avance
Chris

Dalida · Answer

salut,



pour trouver un dossier system :

System.Environment.GetFolderPath(ByVal folder As System.Environment.SpecialFolder)



pour l'utilisateur :

System.Environment.UserName






[ Dalida ]<hr>
pensez &#224; indiquer la version du language

cs_JMO · Answer

Bonjour 

Dim network, computer, SAM, Item, msg
Set network = Wscript.CreateObject("WScript.Network")
computer=network.ComputerName
'wscript.echo "#Liste des utilisateurs et groupes de " & computer
set SAM=GetObject("WinNT://" & computer & ",computer")
for each Item in SAM
   Classe=Item.Class
   If Classe = "User" then
      msg = msg + vbCrLf & Classe & chr(9) & Item.name
      End if
next
msgbox "Liste des Utilisateurs : " & vbCrLf & msg
Set Network = Nothing

ou

Dim Path, fso, f, f1, User, Users
Path   = "c:\Documents and Settings"
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(Path)
Set Users = f.SubFolders
For Each f1 in Users
    User = User & vbCrLf & vbCrLf & f1.Name
Next
msgbox "Liste de tous les profils (visibles et cach&#233;s)" & vbCrLf & vbCrLf & User
Set fso = Nothing

Variable du nom d'utilisateur sous Xp (VB7)

2 réponses

Discussions similaires