Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst VBscript - appdata Variable von Windows verwenden?

Mitglied: ReiniX

ReiniX (Level 1) - Jetzt verbinden

06.11.2007, aktualisiert 19.11.2007, 20465 Aufrufe, 13 Kommentare

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
Mitglied: bastla
06.11.2007 um 11:57 Uhr
Hallo ReiniX!

Versuch es so:
01.
set WshShell = WScript.CreateObject("WScript.Shell")
02.
strAppData = WshShell.ExpandEnvironmentStrings("%AppData%")
Grüße
bastla
Bitte warten ..
Mitglied: Biber
06.11.2007 um 11:57 Uhr
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]
Bitte warten ..
Mitglied: fritzo
06.11.2007 um 12:08 Uhr
Option Explicit

Dim WshShell
Dim AppData

SET WshShell = CreateObject ("WScript.Shell")

AppData = WshShell.Environment("Process")("APPDATA")
wscript.echo AppData
Bitte warten ..
Mitglied: ReiniX
06.11.2007 um 12:16 Uhr
Danke an alle.
hat mit den oben geschriebenen tipps funktioniert =)
Bitte warten ..
Mitglied: pacobay
06.11.2007 um 12:29 Uhr
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

01.

02.
' VB Script Document
03.
option explicit
04.

05.
Function ShowAppdata
06.

07.
'Deklaration
08.

09.
Dim WshShell , strAppdata
10.

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

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

17.
'Zuweisen des Ergebnisses an die Funktion
18.
'
19.
ShowAppdata=strAppdata
20.

21.
End Function 'CallAPPdata
22.

23.
'aufruf beispielsweise mit: 
24.

25.
WScript.echo ShowAppdata
26.
Bitte warten ..
Mitglied: bastla
06.11.2007 um 13:02 Uhr
@pacobay

THX und *meep meep* ...

Grüße
bastla
Bitte warten ..
Mitglied: ColdCoke
19.11.2007 um 11:04 Uhr
Gibt es sowas auch für die Variable %USERNAME% oder eine VBscript Variable die ich stattdessen nutzen kann?


Gruß,

ColdCoke
Bitte warten ..
Mitglied: bastla
19.11.2007 um 11:57 Uhr
Hallo ColdCoke und willkommen im Forum!

Analog zum Code oben könntest Du schreiben:
01.
Set WshShell = WScript.CreateObject("WScript.Shell")
02.
strUserName = WshShell.ExpandEnvironmentStrings("%Username%")
Alternativ dazu können "UserName", "UserDomain" und "ComputerName" zB auch über das "Network"-Objekt ermittelt werden:
01.
Set WshNetwork = WScript.CreateObject("WScript.Network")
02.
strUserName = WshNetwork.UserName
Grüße
bastla
Bitte warten ..
Mitglied: ColdCoke
19.11.2007 um 12:04 Uhr
Danke, Danke, Danke =)

werde ich gleich mal ausprobieren.

Gruß,

ColdCoke
Bitte warten ..
Mitglied: ColdCoke
19.11.2007 um 14:20 Uhr
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
Bitte warten ..
Mitglied: pacobay
19.11.2007 um 15:48 Uhr
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
Bitte warten ..
Mitglied: bastla
19.11.2007 um 15:51 Uhr
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]
Bitte warten ..
Mitglied: ColdCoke
19.11.2007 um 16:33 Uhr
Wow.. Klasse.. Funktioniert toll

Danke euch beiden




Gruß,

ColdCoke
Bitte warten ..
Ähnliche Inhalte
Backup

Verzeichnisse AppData Roaming und AppData Local automatisch sichern

Frage von imebroBackup33 Kommentare

Ich würde gerne die Verzeichnisse "C:\Users\xxxx\AppData\Roaming" und "C:\Users\xxxx\AppData\Local" mit meiner täglichen automatischen Sicherung sichern. Die Sicherung läuft mit dem ...

Windows Netzwerk

Java APPDATA

Frage von katalinbuchWindows Netzwerk1 Kommentar

Hallo zusammen, ich habe ein Prolpem mit "umgeleiteten" Ordner APPDATA. aus Gründen der Geschwindigkeit mustten wir in einer 2012R2 ...

Windows 7

Umgebungsvariable APPDATA nicht vorhanden. no hide

Frage von BelgarathWindows 76 Kommentare

Hallo, es geht um Windows 7 Professional 64 bit: Wir haben bei uns in der Firma ein neuen Benutzer ...

CMS

Appdata in Batch-Datei für Word-Funktionen

gelöst Frage von FuryStageCMS5 Kommentare

Hallo zusammen, ich möchte gerne eine Datei verteilen, sobald der User sich einloggt und die Batch-Datei ausgeführt wird. Es ...

Neue Wissensbeiträge
LAN, WAN, Wireless

Cisco Mikrotik VPN Standort Vernetzung mit dynamischem Routing

Anleitung von aqui vor 28 MinutenLAN, WAN, Wireless

1. Allgemeine Einleitung Das nachfolgende Tutorial ist eine Fortführung der hier bei Administrator.de schon bestehenden VPN Tutorials und beschreibt ...

Windows Mobile

Support für Windows Mobile endet im Dezember 2019

Information von transocean vor 1 TagWindows Mobile

Moin, Microsoft empfiehlt als Alternative den Umstieg auf iOS oder Android, wie man hier lesen kann. Gruß Uwe

Internet

Kommentar: Bundesregierung erwägt Ausschluss von Huawei im 5G-Netz - Unsere Presse wird immer sensationsgieriger

Information von Frank vor 3 TagenInternet5 Kommentare

Hier mal wieder ein schönes Beispiel für fehlgeleiteten Journalismus und Politik zugleich. Da werden aus Gerüchten plötzlich Fakten, da ...

Windows 10

Netzwerk-Bug in allen Windows 10-Versionen durch Januar 2019-Updates

Information von kgborn vor 3 TagenWindows 101 Kommentar

Nur ein kurzer Hinweis für Admins, die Windows 10-Clients im Portfolio haben. Mit den Updates vom 8. Januar 2019 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
Bekannte Drosselungen bei Providern ?
Frage von HenereLAN, WAN, Wireless15 Kommentare

Servus zusammen, in bereits angefangen, aber ich hoffe dass der Beitrag hier mehr Informationen bringt. Sind Portdrosselungen bzw gezielte ...

LAN, WAN, Wireless
Temporäre WLAN Verbindung für AD-Login
Frage von Christian.WidauerLAN, WAN, Wireless15 Kommentare

Hallo zusammen, ich weiß leider nicht unter welchem Begriff ich dafür suchen muss, daher habe ich bisher leider nichts ...

Netzwerkmanagement
Reverse Proxy für TCP und UDP Anfragen
gelöst Frage von flxklsNetzwerkmanagement13 Kommentare

Hallo zusammen, ich besitze einen Rootserver, der nur eine öffentliche IP besitzt und auf dem mehrere VMs laufen. Da ...

Netzwerkmanagement
Server bauen
Frage von JugendringNetzwerkmanagement11 Kommentare

Moin Moin, wir, der Jugendring sind ein ständig wachsender Verein mit vielen Unterprojekten. Da liegt es nah, dass wir ...