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

wallpapers ersetzen durch logon-Script

Frage Entwicklung VB for Applications

Mitglied: beratour

beratour (Level 1) - Jetzt verbinden

13.03.2008, aktualisiert 27.03.2008, 3960 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 ..
Ähnliche Inhalte
Windows Server
Anzeige bei "run logon scripts synchronously" möglich?

Frage von ahstax zum Thema Windows Server ...

Windows Userverwaltung
gelöst Logon Script mit einer .reg Datei (7)

Frage von Kathaki zum Thema Windows Userverwaltung ...

Windows 10
Windows 10 Powershell Logon Script (9)

Frage von derhoeppi zum Thema Windows 10 ...

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

Frage von Mars123 zum Thema Batch & Shell ...

Neue Wissensbeiträge
Viren und Trojaner

FinFisher: Internetprovider schieben Spitzelopfern Malware unter

(1)

Information von kaiand1 zum Thema Viren und Trojaner ...

Humor (lol)

Wo ist der Fehler auf dem Bild?

(17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Update

Offenbar erneutes MS-Update mit Fehlerschleife (2012 R2)

Information von VGem-e zum Thema Windows Update ...

Heiß diskutierte Inhalte
Lizenzierung
Programm soll in verschiedenen Versionen lizenziert sein (20)

Frage von Yanmai zum Thema Lizenzierung ...

Humor (lol)
Wo ist der Fehler auf dem Bild? (17)

Information von the-buccaneer zum Thema Humor (lol) ...

Windows Userverwaltung
Ordner-Rechte für Dom.Admin einschränken? (13)

Frage von kilobyte zum Thema Windows Userverwaltung ...