Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

VB Script überprüfung einer Datei

Frage Entwicklung VB for Applications

Mitglied: 00Twister00

00Twister00 (Level 1) - Jetzt verbinden

21.11.2012 um 13:27 Uhr, 2071 Aufrufe, 8 Kommentare

Hallo

ich versuche ein Script zu erstellen welches beim Login gestartet wird, dies soll dann schauen ob die Datei ""Start.txt"" im %appdata% oder im User Profile (c:\users\%username%\ vorhanden ist.

ist die Datei vorhanden = Ende

ist die Datei nicht vorhanden führe ein weiteres Script aus ""\\Server\freigabe\script"" und erstelle die Datei

ich hänge total mit den % Variablen

HILFE

Danke
Twister
Mitglied: TsukiSan
21.11.2012 um 13:32 Uhr
Hallo 00Twister00 und willkommen im Forum

ich hänge total mit den % Variablen
So schwer ist das nicht.
In VBS ein kleines Beispiel:
01.
Set objShell = CreateObject ("WScript.Shell") 
02.
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%") 
03.
Wscript.Echo profile_path
Wie weit bist du denn mit deinem Script`?

Gruss
Tsuki
Bitte warten ..
Mitglied: 00Twister00
21.11.2012 um 14:35 Uhr
Hallo

Set objFSO = createobject("Scripting.FileSystemObject")
If objFSO.FileExists("c:\users\%username%\start.txt") then
wshshell.run "\\servername\freigabe\machedies.bat", 0, TRUE
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.CreateTextFile("C:\Users\%username%\start.txt", True)
MyFile.WriteLine("einstellungen uebernommen.")
MyFile.Close
End If

so hab ich das versucht

Danke!
Bitte warten ..
Mitglied: TsukiSan
21.11.2012 um 23:52 Uhr
Hallo 00Twister00,

na wenn's gelöst ist, dann ein Häkchen dran und bitte in Zukunft die
Code-Formatierung(Quellcode, Code oder HTML Snippets) benutzen. Sieht besser aus.

Gruss
Tsuki
Bitte warten ..
Mitglied: 00Twister00
26.11.2012, aktualisiert um 10:55 Uhr
Leider habe ich keinen erfolg .. das Script scheit zu laufen es passiert nur nichts.. kann mir bitte jemand dabei helfen.

DANKE


01.
Set objShell = CreateObject ("WScript.Shell")  
02.
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")  
03.
Set objFSO = createobject("Scripting.FileSystemObject") 
04.
If objFSO.FileExists("c:\users\%username%\start.txt") then 
05.
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE 
06.
Dim fso, MyFile 
07.
Set fso = CreateObject("Scripting.FileSystemObject") 
08.
Set MyFile = fso.CreateTextFile("C:\Users\%username%\start.txt", True) 
09.
MyFile.WriteLine("einstellungen uebernommen.") 
10.
MyFile.Close 
11.
End If

Gruss
Twister
Bitte warten ..
Mitglied: TsukiSan
26.11.2012 um 11:20 Uhr
Hallo Twister,

was gibt denn dein Script aus, wenn du Zeile 4 deines Scriptes
durch
01.
Wscript.Echo "c:\users\%username%\"
ersetzt?
vermutlich nicht, was du dir wünscht.
Das gleiche wäre in Zeile 8 zu erwarten.

In Zeile 2 deines Scriptes steht doch schon der Pfad drinnen.
Teste mal bis Zeile 2:
01.
Set objShell = CreateObject ("WScript.Shell")  
02.
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")  
03.
Wscript.Echo profile_path
Also, wenn man das anwendet ergäbe sich in deinem Beipiel:
01.
Set objShell = CreateObject ("WScript.Shell")  
02.
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")  
03.
Set objFSO = createobject("Scripting.FileSystemObject") 
04.
If objFSO.FileExists(profile_path & "\start.txt") then 
05.
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE 
06.
Dim fso, MyFile 
07.
Set fso = CreateObject("Scripting.FileSystemObject") 
08.
Set MyFile = fso.CreateTextFile(profile_path & "\start.txt", True) 
09.
MyFile.WriteLine("einstellungen uebernommen.") 
10.
MyFile.Close 
11.
End If
Was ich nicht weiss, ob deine Start_Data.cmd funktioniert

Viele Grüsse

Tsuki
Bitte warten ..
Mitglied: 00Twister00
26.11.2012, aktualisiert um 13:04 Uhr
Hi

ich habs

DANKE

musste das Script noch erweitern=

01.
set wshshell = wscript.createobject("wscript.shell")
weil der nicht starten wollte

und
01.
If objFSO.FileExists(profile_path & "\start.txt") =false then
damit der nach der Datei sucht.


DANKE!!!
Bitte warten ..
Mitglied: TsukiSan
26.11.2012, aktualisiert um 13:05 Uhr
nur leider startet der die Bacht nur wenn die Datei "start.txt" vorhanden ist

Dann musst du "ihm" es auch so sagen
01.
Set objShell = CreateObject ("WScript.Shell")  
02.
set wshshell = wscript.createobject("wscript.shell") 
03.
profile_path = objShell.ExpandEnvironmentStrings ("%USERPROFILE%")  
04.
Set objFSO = createobject("Scripting.FileSystemObject") 
05.
If Not objFSO.FileExists(profile_path & "\start.txt") then 
06.
wshshell.run "\\server\freigabe$\copy\Start_DATA.cmd", 0, TRUE 
07.
Else 
08.
Dim fso, MyFile 
09.
Set fso = CreateObject("Scripting.FileSystemObject") 
10.
Set MyFile = fso.CreateTextFile(profile_path & "\start.txt", True) 
11.
MyFile.WriteLine("einstellungen uebernommen.") 
12.
MyFile.Close 
13.
End If
zum Beispiel.

Gruss
Tsuki

[Edit]
war ich wohl eben zu langsam.
Schön, wenn es funktioniert!

Gruss
Tsuki
[/Edit]
Bitte warten ..
Mitglied: 00Twister00
26.11.2012 um 13:06 Uhr
Super

DANKE!!!

(mein Tag ist gerettet )
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst VB-Script per Aufgabenplanung (2)

Frage von S4kar97 zum Thema VB for Applications ...

VB for Applications
gelöst VB Skript Excel Datei (3)

Frage von Frager zum Thema VB for Applications ...

Batch & Shell
gelöst Xcopy-script kopiert nur 1 datei? (2)

Frage von f0rml0s zum Thema Batch & Shell ...

Batch & Shell
gelöst Script zum Entpacken von rar und zip-Dateien (9)

Frage von windows-nutzer zum Thema Batch & Shell ...

Neue Wissensbeiträge
Ubuntu

Ubuntu 17.10 steht zum Download bereit

Information von Frank zum Thema Ubuntu ...

Datenschutz

Autofahrer-Pranger - Bewertungsportal illegal

(8)

Information von BassFishFox zum Thema Datenschutz ...

Windows 10

Neues Win10 Funktionsupdate verbuggt RemoteApp

(2)

Information von thomasreischer zum Thema Windows 10 ...

Microsoft

Die neuen RSAT-Tools für Win10 1709 sind da

(2)

Information von DerWoWusste zum Thema Microsoft ...

Heiß diskutierte Inhalte
Router & Routing
Allnet - VDSL2 Modem - SFP (mini-GBIC) (20)

Frage von Dobby zum Thema Router & Routing ...

Voice over IP
DeutschlandLAN IP Voice Data M Premium, Erfahrung mit Faxgeräte? (17)

Frage von liquidbase zum Thema Voice over IP ...

TK-Netze & Geräte
TK-Anlage VoIP - DECT Erweiterung (16)

Frage von Lynkon zum Thema TK-Netze & Geräte ...