createtextfile på %username% sitt skrivebord

[navyboy]

Jeg ønsker at en textfil skal skrives til den påloggede brukers skrivebord

 

sysfile.createtextfile("c:\documents and settings\%username%\skrivebord\test.txt", true)

 

Får da feilmelding om at pathen ikke finnes. skriver jeg brukernavnet mitt istede for %username% fungerer det. VBScriptet skal jo kjøres av forskjellige brukere. Derfor må jeg ha %username%

[backup]

Jeg ønsker at en textfil skal skrives til den påloggede brukers skrivebord

 

sysfile.createtextfile("c:\documents and settings\%username%\skrivebord\test.txt", true)

 

Får da feilmelding om at pathen ikke finnes. skriver jeg brukernavnet mitt istede for %username% fungerer det. VBScriptet skal jo kjøres av forskjellige brukere. Derfor må jeg ha %username%

5822903[/snapback]

I registeret på :

HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ User Shell Folders

 

der finner du desktop som:

%USERPROFILE%\Desktop for windXP engelsk og

%USERPROFILE%\Skrivebord for winXP norsk

[navyboy]

sysfile.createtextfile("c:\documents and settings\%username%\skrivebord\test.txt", true)

 

Får da feilmelding om at pathen ikke finnes. skriver jeg brukernavnet mitt istede for %username% fungerer det.

I registeret på :

HKEY_CURRENT_USER \ Software \ Microsoft \ Windows \ CurrentVersion \ Explorer \ User Shell Folders

 

der finner du desktop som:

%USERPROFILE%\Desktop for windXP engelsk og

%USERPROFILE%\Skrivebord for winXP norsk

5824292[/snapback]

 

Hmm, hvordan setter jeg det inn i coden min da? Har nesten aldri jobben no særlig med vbscript.

Trenger bare selv createtextfile-linja. slik at den oppretter en fil på skrivebordet.

[backup]

Er usikker på hva du egentlig skal ha, men her iallfall er et vbs script jeg har laget som på skrivebordet skriver test.txt. I denne fila står brukernavnet og navnet på maskina han er pålogga. Lim scriptet inn i Notepad, og lagre det med etternavnet vbs, som for eksempel xxx.vbs. Under brukere i datamaskinbehandling, dobbelklikk en bruker, velg profil, og i feltet påloggingsskript tast inn adressa til xxx.vbs. Dermed blir xxx.vbs utført automatisk når denne bruker logger seg på maskina.

 

Set Wshell = CreateObject("Wscript.Network")

brukerNavn = Wshell.UserName

maskinNavn= Wshell.Computername

set WshShell = WScript.CreateObject("WScript.Shell")

adrSkrivebord = WshShell.SpecialFolders("Desktop")

'I melding setter du inn sjøl det du vil

melding = "Bruker Navn: " & brukerNavn & vbCrLf & "Pålogget: " & maskinNavn

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(adrSkrivebord & "\test.txt",2, True)

f.WriteLine melding

f.close

Endret 29. mars 2006 av backup

[navyboy]

Set Wshell = CreateObject("Wscript.Network")

brukerNavn = Wshell.UserName

maskinNavn= Wshell.Computername

set WshShell = WScript.CreateObject("WScript.Shell")

adrSkrivebord = WshShell.SpecialFolders("Desktop")

'I melding setter du inn sjøl det du vil

melding = "Bruker Navn: " & brukerNavn &  vbCrLf & "Pålogget: " & maskinNavn

Set fso = CreateObject("Scripting.FileSystemObject")

Set f = fso.OpenTextFile(adrSkrivebord & "\test.txt",2, True)

f.WriteLine melding

f.close

5830273[/snapback]

 

Thnx, hva betyr 2-tallet?

Set f = fso.OpenTextFile(adrSkrivebord & "\test.txt",2, True)

 

Edit: fant det ut nå. 2 betyr skriving til fil. Thnx a lot, skal prøve det etterpå.

Det betyr at svaret på det jeg lurte på egentlig var

 

adrSkrivebord = WshShell.SpecialFolders("Desktop")
createtextfile(adrSkrivebord & "\test.txt", 2, True)

Endret 29. mars 2006 av navyboy