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, 3958 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 ...

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

Frage von thomasreischer zum Thema Microsoft ...

Windows 10
Windows 10 Powershell Logon Script (9)

Frage von derhoeppi zum Thema Windows 10 ...

Neue Wissensbeiträge
Windows Server

Umstellung SHA 1 auf SHA 2 - Migration der CA von CSP auf KSP

Tipp von Badger zum Thema Windows Server ...

Windows 10

Quato DTP94 unter Windows 10 x64 installieren und verwenden

Anleitung von anteNope zum Thema Windows 10 ...

Windows 10

Win10 1703 und Nutzerkennwörter bei Ersteinrichtung - erstaunliche Erkenntnis

(15)

Erfahrungsbericht von DerWoWusste zum Thema Windows 10 ...

Heiß diskutierte Inhalte
LAN, WAN, Wireless
CNC Maschinen verlieren Netzwerkverbindung (kurioser Fehler) (21)

Frage von NoHopeNoFear zum Thema LAN, WAN, Wireless ...

Drucker und Scanner
Erfahrungen mit Enterprise-Tintenstrahldruckern A4 und A3 (11)

Frage von User1000 zum Thema Drucker und Scanner ...