Nov 06, 2007, updated at Nov 19, 2007 (UTC)

26874

VBscript - appdata Variable von Windows verwenden?

Hallo,
Ich habe eine Website, die eine textdatei einlesen soll, die im %appdata% verzeichnis des jeweiligen benutzers liegt.
einfach auf %appdata% aus einer vbscript-site zugreifen geht ja wohl nicht.

gibts irgendwie ne möglichkeit mir %appdata% auf umwegen in mein vbscript zu bringen?

danke,
ReiniX

Please also mark the comments that contributed to the solution of the article

Content-Key: 72811

Url: https://administrator.de/contentid/72811

Printed on: April 23, 2024 at 12:04 o'clock

13 Comments

Latest comment

Hallo ReiniX!

Versuch es so:

set WshShell = WScript.CreateObject("WScript.Shell")  
strAppData = WshShell.ExpandEnvironmentStrings("%AppData%")  

Grüße
bastla

Moin ReiniX,

siehe bitte die (baugleiche) Frage "syntax problem" von gigagaga im gleichen Bereich von gestern. Die ist zumindest schon halb beantwortet.
Lass uns bitte Deine Variante dort mit abhandeln und diesen Beitrag hier später löschen.

Danke
Biber

[Edit] na gut... bastla war wieder schneller *gg [/Edit]

Option Explicit

Dim WshShell
Dim AppData

SET WshShell = CreateObject ("WScript.Shell")

AppData = WshShell.Environment("Process")("APPDATA")
wscript.echo AppData

Danke an alle.
hat mit den oben geschriebenen tipps funktioniert =)

Im Prinzip unnötig weil Bastla hier eindeutig der Roadrunner ist

)
@bastla Kompliment!
aber dennoch weil: ist halt schon da und besser mehr Antworten als keine

ciao pacobay

' VB Script Document  
option explicit

Function ShowAppdata

'Deklaration  

Dim WshShell , strAppdata

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

'setzen + echo der Variablen strProgramFiles  
strAppdata = WshShell.ExpandEnvironmentStrings("%appdata%")  

'Zuweisen des Ergebnisses an die Funktion  
'  
ShowAppdata=strAppdata

End Function 'CallAPPdata  

'aufruf beispielsweise mit:   

WScript.echo ShowAppdata

@pacobay

THX und *meep meep* ...

Grüße
bastla

Gibt es sowas auch für die Variable %USERNAME% oder eine VBscript Variable die ich stattdessen nutzen kann?

Gruß,

ColdCoke

Hallo ColdCoke und willkommen im Forum!

Analog zum Code oben könntest Du schreiben:

Set WshShell = WScript.CreateObject("WScript.Shell")  
strUserName = WshShell.ExpandEnvironmentStrings("%Username%")  

Alternativ dazu können "UserName", "UserDomain" und "ComputerName" zB auch über das "Network"-Objekt ermittelt werden:

Set WshNetwork = WScript.CreateObject("WScript.Network")  
strUserName = WshNetwork.UserName

Grüße
bastla

Danke, Danke, Danke =)

werde ich gleich mal ausprobieren.

Gruß,

ColdCoke

Jetzt muss ich doch noch genauer Fragen.

Ich möchte mit einem VBscript eine Verknüpfung von einer .exe erstellen. Diese soll dann direkt in das Startmenü des angemeldeten Users gespeichert werden. Ein script, was eine Verknüpfung auf den Desktop erstellt habe ich bereits gefunden. Wie müsste ich jetzt das Skript ändern damit die Verknüpfung ins Startmenü gespeichert wird?

Script###########

Const strProgramtitel="Programm"
Const strProgram ="s:\Programm_Ordner\Programm.exe"
Dim objShortcut
Dim objShell
Set objShell= WScript.CreateObject("Wscript.Shell")
strLPfad=objShell.SpecialFolders("Desktop")
Set objShortcut=objShell.CreateShortcut(strLPfad & "\" & strProgramtitel & ".lnk")
objShortcut.TargetPath= strProgram
objShortcut.Description= "strProgramtitel"
objShortcut.Save

ENDE#############

Danke schonmal im Voraus.

Gruß,

Daniel

Hi
es gibt mehrer Startmenueverzeichnisse

im Default-Userbereich
C:\Dokumente und Einstellungen\Default User\Startmenü
wird verwendet bei erstellung eines neuen Users
macht hier aber wohl wenig sinn und bedürfte wohl auch eines anderen Ansatzes

Interessant dürfte wohl sein:

All-User-Bereich
C:\Dokumente und Einstellungen\All Users\Startmenü
wenn du es dort ablegst steht es allen usern des Systems zur Verfügung

userBereich
C:\Dokumente und Einstellungen\"username"\Startmenü
nur für den spezifischen User mit dem Name "username"

alle pfadangaben verstehen sich als allgemeine Angaben eines XP systems
habe server nicht im Kopf, meine mich zu erinnern das dies dort auch so ist

Ob du alle diese Pfade im Explorer siehst hängt auch von den entsprechenden Einstellungen ab

Im prinzip kannst Du die Verzeichnisse (sofern ausreichende Rechte vorhanden) ganz normal via SpecialFolderObjekt ansprechen.

Hierzu Aus der WSH Hilfe
The WshSpecialFolders object is a collection.
...
The following special folders are available:
AllUsersDesktop
AllUsersStartMenu !!!!!!!!!!!!!!!!!!!!!!!!!!!!!
AllUsersPrograms
AllUsersStartup
Desktop
Favorites
Fonts
MyDocuments
NetHood
PrintHood
Programs
Recent
SendTo
StartMenu !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Startup
Templates

Ende des Zitates

Also sinngemäß
strLPfad=objShell.SpecialFolders("Desktop")

einfach ändern zu
strLPfad=objShell.SpecialFolders("AllUsersStartMenu")
bzw
strLPfad=objShell.SpecialFolders("StartMenu")

u.U. wäre es auch sinnvoll ein Verzeichnis "MyLinks" zu erstellen sonst ufert dein Startmenüe irgendwann aus und wird zunehmend unübersichtlich.

By the way die Sortierungsreihenfolge der Einträge wird im Rahmen des Reg verwaltet
wäre aber eine andere Baustelle.
Jedoch innerhalb des Startmenüs kannst du mit der rechten Maustaste die Einträge nach Namen sortieren bzw mit gedrückter rechten Maustaste die Einträge verschieben.

Aber wenn Du anfängst in immer systemnaheren Bereichen zu arbeiten, dann denke auch mal über die allgemeine MS-Mantra zu systemnahen Änderungen(Vorsicht & Backup etc ) nach.

ciao pacobay

Hallo ColdCoke!

Ein script, was eine Verknüpfung auf den Desktop erstellt habe ich bereits gefunden. Wie müsste ich jetzt das Skript ändern damit die Verknüpfung ins Startmenü gespeichert wird?

Du könntest "Desktop" durch "StartMenu" ersetzen ...

Grüße
bastla

[Edit] @pacobay: So weit aus- und mich dabei auch noch überholt - Respekt

[/Edit]