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, 3957 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 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
Windows 10

Windows 8.x oder 10 Lizenz-Key aus dem ROM auslesen mit Linux

Tipp von Lochkartenstanzer zum Thema Windows 10 ...

Tipps & Tricks

Wie Hackt man sich am besten in ein Computernetzwerk ein

(38)

Erfahrungsbericht von Herbrich19 zum Thema Tipps & Tricks ...

Heiß diskutierte Inhalte
Festplatten, SSD, Raid
POS Hardware und alternativen zu Raid 1? (21)

Frage von Brotkasten zum Thema Festplatten, SSD, Raid ...

Viren und Trojaner
Verschlüsselungstrojaner simulieren (18)

Frage von AlbertMinrich zum Thema Viren und Trojaner ...

Ubuntu
gelöst Nextcloud 12 Antivirus App for Files (10)

Frage von horstvogel zum Thema Ubuntu ...

SAN, NAS, DAS
+100tb Storagelösung (10)

Frage von Data-Fabi zum Thema SAN, NAS, DAS ...