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, 3950 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 10

Powershell 5 BSOD

(2)

Tipp von agowa338 zum Thema Windows 10 ...

Ähnliche Inhalte
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 ...

Batch & Shell
gelöst PowerShell Script Move-Item nach x Tagen (5)

Frage von lupolo zum Thema Batch & Shell ...

Batch & Shell
gelöst Powershell - In Textdatei suchen und ersetzen (5)

Frage von Raaja89 zum Thema Batch & Shell ...

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

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

Frage von Haures zum Thema Windows Server ...

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

Frage von Floh21 zum Thema Outlook & Mail ...