Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

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

VBS - Wie Zugriff auf User Verzeichnis?

Frage Entwicklung VB for Applications

Mitglied: Fixu

Fixu (Level 1) - Jetzt verbinden

07.09.2009, aktualisiert 17:24 Uhr, 9296 Aufrufe, 2 Kommentare

Ich möchte via VB Script auf C:\Documents and Settings\Administrator\Local Settings\Application Data\Microsoft\Outlook\ zugreifen um das archive.pst sichern zu lassen. Jedoch brauche ich anstelle des "Administrator" eine Variable, da nicht immer dieser User angemeldet ist. Mit unten stehendem Teilskript habe ich probiert, dies zu bewerkstelligen - leider ohne Erfolg. Weiss jemand wo es happert, resp. gibt es keine einfachere Lösung?


Set fso = WScript.CreateObject("Scripting.FileSystemObject")
Source = "Z:\VBS\Move\uno\*"
Target = "C:\Documents and Settings\""%UserName%""\Local Settings\Application Data\Microsoft\Outlook\"

set WshShell = WScript.CreateObject("WScript.Shell")
Username = WshShell.ExpandEnvironmentStrings("%UserName%")
Wscript.Echo UserName
Mitglied: bastla
07.09.2009 um 17:57 Uhr
Auch Dir, Fixu, ein freundliches Hallo!

In der angegeben Reihenfolge kann's sowieso nix werden - abgesehen davon musst Du Textteile explizit mit "&" (oder zur Not auch mit "+") verknüpfen:
01.
Set WshShell = WScript.CreateObject("WScript.Shell") 
02.
Username = WshShell.ExpandEnvironmentStrings("%UserName%") 
03.
 
04.
Target = "C:\Documents and Settings\" & UserName & "\Local Settings\Application Data\Microsoft\Outlook\" 
05.
 
06.
WScript.Echo Target
Den Benutzernamen könntest Du auch auf andere Art und Weise erhalten, aber ich würde ohnehin empfehlen, gleich den Pfad zum Profilordner mit
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")
auszulesen.

Grüße
bastla
Bitte warten ..
Mitglied: Fixu
07.09.2009 um 21:09 Uhr
Hach, wenn alles so einfach wäre! Danke
Bitte warten ..
Ähnliche Inhalte
Neue Wissensbeiträge
Batch & Shell

Batch als Dienst bei Systemstart ohne Anmeldung ausführen

(3)

Tipp von tralveller zum Thema Batch & Shell ...

Sicherheits-Tools

Sicherheitstest von Passwörtern für ganze DB-Tabellen

(1)

Tipp von gdconsult zum Thema Sicherheits-Tools ...

Peripheriegeräte

Was beachten bei der Wahl einer USV Anlage im Serverschrank

(9)

Tipp von zetboxit zum Thema Peripheriegeräte ...

Heiß diskutierte Inhalte
Exchange Server
Exchange 2016 Standard Server 2012 R2 Hetzner Mail (41)

Frage von Datsspeed zum Thema Exchange Server ...

Windows 7
gelöst Lokales Adminprofil defekt (25)

Frage von Yannosch zum Thema Windows 7 ...

Off Topic
gelöst Fachzeitschriften als E-Book oder hardcoded? (11)

Frage von KowaKowalski zum Thema Off Topic ...

Windows 10
Windows Store Apps ohne Windows Store installieren (10)

Frage von keefien zum Thema Windows 10 ...