$ *user* $ code in het systeem: VBScript

[DennisBosma]

Hallo,
Ik ben met een programmaatje bezig waar nog een klein dingetje toegevoegd moet worden:

Is er een code voor de naam van de user?
Als voorbeeld: C:\Documents and Settings\ --(Code voor user bijvoorbeeld $ *user* $)-- \Mijn Menu\MijnBestand.vbs

$ *user* $ = De naam waar de computer staat op geregistreerd.

Alvast bedankt! :thumb:

 

[visha]

    ' Makes sure all variables are dimensioned in each subroutine.
     Option Explicit

     ' Access the GetUserNameA function in advapi32.dll and
     ' call the function GetUserName.
     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long

     ' Main routine to Dimension variables, retrieve user name
     ' and display answer.
     Sub Get_User_Name()

     ' Dimension variables
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String

     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

     ' Display the User Name
     MsgBox UserName
     End Sub

Byee VRC

 

[OctaFish]

Daar kun je de functie Environ("Username") voor gebruiken.

 

[DennisBosma]

    ' Makes sure all variables are dimensioned in each subroutine.
     Option Explicit

     ' Access the GetUserNameA function in advapi32.dll and
     ' call the function GetUserName.
     Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" _
     (ByVal lpBuffer As String, nSize As Long) As Long

     ' Main routine to Dimension variables, retrieve user name
     ' and display answer.
     Sub Get_User_Name()

     ' Dimension variables
     Dim lpBuff As String * 25
     Dim ret As Long, UserName As String

     ' Get the user name minus any trailing spaces found in the name.
     ret = GetUserName(lpBuff, 25)
     UserName = Left(lpBuff, InStr(lpBuff, Chr(0)) - 1)

     ' Display the User Name
     MsgBox UserName
     End Sub

Byee VRC

Wat is dit?

 

[OctaFish]

Wat Visha heeft gepost is een functie die je kunt gebruiken bij oudere versies van Windows (98 en ouder). Vanaf XP kunt je met Environ rechtstreeks de username ophalen, dus heb je die functie niet nodig. Hij zal overigens nog wel werken.

 

[DennisBosma]

Wat Visha heeft gepost is een functie die je kunt gebruiken bij oudere versies van Windows (98 en ouder). Vanaf XP kunt je met Environ rechtstreeks de username ophalen, dus heb je die functie niet nodig. Hij zal overigens nog wel werken.

Bedankt!

Kan je zien wet hier verkeert aan is:
Path = "C:\Documents and Settings\Environ("Username")\bureaublad\"+a

 

[OctaFish]

Je moet de string opbouwen uit de verschillende tekstonderdelen + de variabele:

Pad = "C:\Documents and Settings\" & Environ("Username") & "\Bureaublad\" + a

 

[DennisBosma]

Lijkt me evident:
wet ipv wat
en
verkeerd

is dat nodig?

==

Je moet de string opbouwen uit de verschillende tekstonderdelen + de variabele:

Pad = "C:\Documents and Settings\" & Environ("Username") & "\Bureaublad\" + a

hartstikke bedankt!

 

[DennisBosma]

Jammer het doet het nog niet. Ik zend de script nu wel helemaal mee. Help!

msgbox "Klik op Ok om verder te gaan." , vbInformation , "(MM) Map Maker"

a= inputbox("Hoe wilt u de map noemen?", "Let op!")
If a = Cancel Then WScript.Quit

c= msgbox ("Map aan gemaakt." , vbExclamation , "Let op!")
If c = Cancel then Wscript.Quit

Pad = "C:\Documents and Settings\" & Environ("Username") & "\Bureaublad\" +a
Set filesys = CreateObject ("Scripting.FileSystemObject")
If Not filesys.FolderExists(path) Then
Set folder = filesys.CreateFolder(path)
End if


Wscript.Sleep 000

MsgBox "Uw map is succesvol aangemaakt en nu zichtbaar."& vbcr &""& vbcr &"Uw map is opgeslagen in de map:"& vbcr &"C:\Documents and Settings."& vbcr &""& vbcr &"Uw nieuwe map is:"& vbcr &"Helemaal leeg."& vbcr &""& vbcr &"Naam van map:"& vbcr &"" +a, 1024, "Let op!"

Alvast bedankt! :thumb:

 

[visha]

Dit lijkt me niet de plaats om te gaan liggen neuzelen over taalgebruik.
Als je dat zo aan het hard gaadt, zoec dan een forum waar jei je uidt kunt leve op het vlak van korrect taalgebruik.

Tardis

Mee eens maar nu de vraag aan de TS
@TS
is je vraag opgelost??

Byee VRC

 

[huijb]

Bijdragen die niet ter zaken doen verwijderd.