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

wallpapers ersetzen durch logon-Script

Frage Entwicklung VB for Applications

Mitglied: beratour

beratour (Level 1) - Jetzt verbinden

13.03.2008, aktualisiert 27.03.2008, 3953 Aufrufe, 4 Kommentare

Hallo zusammen,

Ich bin IT-Supporter, habe jedoch eine ganze Zeit nicht mehr programmiert, und schon gar nich Visual Basic...
Nun möchte ich ein fehlerhaftes Script reparieren, komme jedoch nicht weiter.

Ziel des Logon-Scriptes ist es die Wallpaper auf den Clients zu löschen und definierte, auf dem Server liegende Pics in die entsprechenden Ordner zu kopieren.

Das Script von meinem Vorgänger funktioniert jedoch nur teilweise, und eigentlich nie richtig. Kann mir von euch eventuell jemand weiterhelfen?


Das Script sieht wie folgt aus:

ON ERROR RESUME NEXT

Dim wshNetwork, objFSO, WSHShell

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set wshNetwork = CreateObject("WScript.Network")
Set WSHShell = CreateObject("WScript.Shell")

'Wallpaper auf PC kopieren
If objFSO.FileExists("C:\WINDOWS\Web\Wallpaper\25012007.txt") Then
Else
objFSO.DeleteFile("C:\WINDOWS\Web\Wallpaper")
objFSO.CopyFolder "\\Server\IT\wallpaper" , "C:\WINDOWS\Web\"

End If

'Alle Laufwerke trennen
Set clDrives = WshNetwork.EnumNetworkDrives
For i = 0 to clDrives.Count -1 Step 2
WSHNetwork.RemoveNetworkDrive clDrives.Item(i), True, True
Next

'Dem PC Zeit geben für den disconnect, warten 300ms
wscript.sleep 300


'Laufwerke verbinden
wshNetwork.MapNetworkDrive "h:", "\\Server\L1"
wshNetwork.MapNetworkDrive "s:", "\\Server\L2"
wshNetwork.MapNetworkDrive "g:", "\\Server\Privat\" & wshNetwork.UserName
Mitglied: SvenGuenter
13.03.2008 um 12:04 Uhr
Hi also folgendes
01.
objFSO.DeleteFile("C:\WINDOWS\Web\Wallpaper") 
02.
objFSO.CopyFolder "\\Server\IT\wallpaper" , "C:\WINDOWS\Web\"
Du löschst eine Datei und kopierst ein Verzeichnis. mach es doch so ?

Also wenn du ein verzeichnis kopieren willst dann soltest du auch das verzeichnis vorher löschen.

01.
 
02.
Dim test As String 
03.
test = "C:\WINDOWS\Web\Wallpaper" 
04.
 
05.
 
06.
objFSO.DeleteFolder test 
07.
objFSO.CopyFolder "\\Server\IT\wallpaper" , "C:\WINDOWS\Web\" 
08.
 
Bitte warten ..
Mitglied: beratour
14.03.2008 um 10:32 Uhr
Hallo Sven,

Vielen Dank für den Tipp.
Habe dies abgeändert.
Nur führt die Erste Zeile - Dim test As String zu einem Fehler...

Pröble noch ein bisschen weiter.. Merci vorerst
Bitte warten ..
Mitglied: SvenGuenter
14.03.2008 um 11:37 Uhr
dann lass das as string weg. Du proggst das ja nicht in vb6. Sorry. Wenn du es weglässt ist es ein variant und geht auch.


Gruß

Sven
Bitte warten ..
Mitglied: beratour
27.03.2008 um 13:39 Uhr
Vielen Dank nochmals für die Tipps,

Leider funktioniert es bei mir immer noch nicht.
Ich bringe es gar nicht fertig, den Ordner zu löschen...

Gibt es noch eine andere Möglichkeit den User auf unsere Firmen-Wallpapers einzuschränken?
Bitte warten ..
Neuester Wissensbeitrag
Windows Update

Windows Update-Suche nach Win7 Neuinstallation wieder schneller

(1)

Erfahrungsbericht von the-buccaneer zum Thema Windows Update ...

Ähnliche Inhalte
Windows 10
Windows 10 Powershell Logon Script (9)

Frage von derhoeppi zum Thema Windows 10 ...

Microsoft
Windows 10 logon script: alle Apps löschen (3)

Frage von thomasreischer zum Thema Microsoft ...

Batch & Shell
gelöst Poweshell Script soll String ersetzen und die leere Zeile löschen (4)

Frage von Mars123 zum Thema Batch & Shell ...

Windows Server
gelöst Login Script nach der Anmeldung Zeitverzögert ausführen (4)

Frage von Intruder0001 zum Thema Windows Server ...

Heiß diskutierte Inhalte
Exchange Server
Bestehende eMails autoamatisch weiterleiten (21)

Frage von metal-shot zum Thema Exchange Server ...

Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (21)

Frage von Winuser zum Thema Hyper-V ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (16)

Frage von ProfessorZ zum Thema Router & Routing ...