---

Hej,

i forbindelse med installation af netværksprintere i min virksomhed,
har jeg labet et VB script, som installerer disse baseret på brugerens
gruppemedlemsskaber i AD. For at undgå at scriptet kører hver gang, at
brugeren logger på, så kopierer jeg en fil til c:\windows, og hvis
denne fil eksisterer, så springer scriptet installationen af printerne
over.

Dette betyder dog, at scriptet kun kører én gang uafhængigt af hvilken
bruger der logger på, så jeg villle gerne have mulighed for at kopiere
filen ind under brugerens profil (C:\Documents and Settings\%USERNAME
%), men VB kender tilsyneladende ikke denne system variabel, så er der
en anden måde hvorpå, at jeg kan opnå dette i VB script?

Mvh
Ronnie

---

Du skal bruge %USERPROFILE%

Se i øvrigt: http://technet.microsoft.com/en-us/library/cc749104(WS.10).aspx

Jens

---

On 3 Dec., 14:46, "Jens" <jens.joensson@_FJERNDETTE_gmail.com> wrote:
> Du skal bruge %USERPROFILE%
>
> Se i øvrigt:http://technet.microsoft.com/en-us/library/cc749104(WS.10).aspx
>
> Jens

Jeg har nu prøvet med både

If objFSO.FileExists("%USERPROFILE%\DelPrint.txt") Then
Else
objFSO.CopyFile "\\servernavn\netlogon\DelPrint.txt" , "%USERPROFILE%"

og

If objFSO.FileExists("%USERPROFILE%\Dokumenter\DelPrint.txt") Then
Else
objFSO.CopyFile "\\servernavn\netlogon\DelPrint.txt" , "%USERPROFILE%
\Dokumenter"

men intet af det virker fra mit VB script. Kan I evt. se, hvad der er
galt?

---

>"Ronnie Ziegler" <ronnie.ziegler@gmail.com> skrev i en meddelelse
>news:a2e4e7bf-ae94-4176-a7a8-3c3d003c2ab5@m25g2000yqc.googlegroups.com...
>On 3 Dec., 14:46, "Jens" <jens.joensson@_FJERNDETTE_gmail.com> wrote:
>> Du skal bruge %USERPROFILE%
>>
>> Se i
>> øvrigt:http://technet.microsoft.com/en-us/library/cc749104(WS.10).aspx
>>
>> Jens
>
>Jeg har nu prøvet med både
>
>If objFSO.FileExists("%USERPROFILE%\DelPrint.txt") Then
>Else
>objFSO.CopyFile "\\servernavn\netlogon\DelPrint.txt" , "%USERPROFILE%"
>

prøve denne


set WshShell = CreateObject("WScript.Shell")
WScript.Echo WshShell.ExpandEnvironmentStrings("%USERPROFILE%\DelPrint.txt")
WScript.Echo WshShell.ExpandEnvironmentStrings("C:\Documents and
Settings\%USERNAME%")

eller kig på



set WshShell = CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
wscript.echo strDesktop

http://msdn.microsoft.com/en-us/library/0ea7b5xe(VS.85).aspx







mvh

Thomas Bøjstrup Johansen

---

On 3 Dec., 15:16, Ronnie Ziegler <ronnie.zieg...@gmail.com> wrote:
> On 3 Dec., 14:46, "Jens" <jens.joensson@_FJERNDETTE_gmail.com> wrote:
>
> > Du skal bruge %USERPROFILE%
>
> > Se i øvrigt:http://technet.microsoft.com/en-us/library/cc749104(WS.10).aspx
>
> > Jens
>
> Jeg har nu prøvet med både
>
> If objFSO.FileExists("%USERPROFILE%\DelPrint.txt") Then
> Else
> objFSO.CopyFile "\\servernavn\netlogon\DelPrint.txt" , "%USERPROFILE%"
>
> og
>
> If objFSO.FileExists("%USERPROFILE%\Dokumenter\DelPrint.txt") Then
> Else
> objFSO.CopyFile "\\servernavn\netlogon\DelPrint.txt" , "%USERPROFILE%
> \Dokumenter"
>
> men intet af det virker fra mit VB script. Kan I evt. se, hvad der er
> galt?

Jeg kan godt bruge variablen i mine batch filer, men det går ikke
i .vbs filen. Jeg har prøvet at bytte variablen ud med et specifikt
brugernavn for at teste, at det ikke skyldes manglende rettigheder,
til at skrive i brugerens mappe, og det er ikke dette, som var
problemet. Findes der overhovedet en variabel for brugerens mappe i VB?

---

On 4 Dec., 11:17, "Thomas Bøjstrup Johansen" <to...@tooms.dk> wrote:
> >"Ronnie Ziegler" <ronnie.zieg...@gmail.com> skrev i en meddelelse
> >news:a2e4e7bf-ae94-4176-a7a8-3c3d003c2ab5@m25g2000yqc.googlegroups.com....
> >On 3 Dec., 14:46, "Jens" <jens.joensson@_FJERNDETTE_gmail.com> wrote:
> >> Du skal bruge %USERPROFILE%
>
> >> Se i
> >> øvrigt:http://technet.microsoft.com/en-us/library/cc749104(WS.10).aspx
>
> >> Jens
>
> >Jeg har nu prøvet med både
>
> >If objFSO.FileExists("%USERPROFILE%\DelPrint.txt") Then
> >Else
> >objFSO.CopyFile "\\servernavn\netlogon\DelPrint.txt" , "%USERPROFILE%"
>
> prøve denne
>
> set WshShell = CreateObject("WScript.Shell")
> WScript.Echo WshShell.ExpandEnvironmentStrings("%USERPROFILE%\DelPrint.txt")
> WScript.Echo WshShell.ExpandEnvironmentStrings("C:\Documents and
> Settings\%USERNAME%")
>
> eller kig på
>
> set WshShell = CreateObject("WScript.Shell")
> strDesktop = WshShell.SpecialFolders("Desktop")
> wscript.echo strDesktop
>
> http://msdn.microsoft.com/en-us/library/0ea7b5xe(VS.85).aspx
>
> mvh
>
> Thomas Bøjstrup Johansen- Skjul tekst i anførselstegn -
>
> - Vis tekst i anførselstegn -

Hmm- hvordan bruger jeg lige det i praksis?