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

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, 2046 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 ..
Neuester Wissensbeitrag
Windows 10

Powershell 5 BSOD

(1)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
Outlook & Mail
gelöst Email Anhänge speichern VB Script aber nur bestimmte Dateitypen (Outlook) (4)

Frage von LindeUnimog zum Thema Outlook & Mail ...

VB for Applications
gelöst VB Script rekursiv statt nur ein Ordner (4)

Frage von Saschaaaaa zum Thema VB for Applications ...

VB for Applications
gelöst VB Script nach gefundenem Wort die nächsten 4 Zeichen ersetzten (2)

Frage von deutsch73 zum Thema VB for Applications ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
gelöst Server erkennt Client nicht wenn er ausserhalb des DHCP Pools liegt (28)

Frage von Mar-west zum Thema LAN, WAN, Wireless ...

Outlook & Mail
Outlook 2010 findet ost datei nicht (18)

Frage von Floh21 zum Thema Outlook & Mail ...

Windows Server
Server 2008R2 startet nicht mehr (Bad Patch 0xa) (18)

Frage von Haures zum Thema Windows Server ...