raplay

Ja das ist so!! unglaublich aber wahr Kannst es auch ändern mit cmd--> net user administrator DasGewünsteKennwort grüsse Raplay

Versuch mal cmd--> net use Zeigt es ein nicht richtige verbundenes laufwerk an? Wen ja natürlich net use lafuwerk /DELETE Geht es mit einem Anderen Explorer schneller? Du findes viele Explorer alternativen bei google Grüsse Raplay

Hi Raff nicht mit 100%iger Sicherheit was du willst (sorry schweizer :D ). Die Sub hab ich dir mal rausgesucht, sollte unterverzeichnise auflisten Const VerzeichnisBezeichner = "." ' Relativ, kannst natürlich auch absolute verzeichnsnamen benutzen ListeVerzeichnisseRek VerzeichnisBezeichner Sub ListeVerzeichnisseRek(Verzeichnisname) Dim FSO, Verzeichnis, Unterverzeichnis Set FSO=CreateObject("Scripting.FileSystemObject") If FSO.FolderExists(Verzeichnisname) Then Set Verzeichnis = FSO.GetFolder(Verzeichnisname) For Each Unterverzeichnis In Verzeichnis.subfolders ListeVerzeichnisseRek Unterverzeichnis ' Hier dan dein Script. Anstadt folder einfach Unterverzeichnis Next End If End Sub jetzt muss ja nur noch die files in den unterordner auflisten und copieren, aber das script hast ja schon gezeigt hilfts was, oder hab ich daneben geraten?

zz nei Schweizer ;) – Werde ich mir gleich vornehmen Werde ich mal prüfen wie lange das geht. Danke für die Ideen werde dan weiter nerven wen ich nicht mehr weiter komme Gruss raplay //EDIT// SUPER Artikel!!! hat alle probleme gelöst --> Danke Das mit dem Pingen halte ich nicht für so gut, will ja keine ips von nicht windows pcs und die firewall würde noch umstände machen. trozdem danke

Hi Inhalt von Dateien prüfen, oder lediglich prüfen ob ein bestimmter ordner/datei existiert? Grüsse Raplay

Hallo Zusammen Ich bin gerade ein kleines Script am machen, das auf allen PCs in einem Win Netzwer überprüft, ob ein File existiert. Alle Pc namen setzen sich aus XY+Zahlen zwischen 1-400 zusammen. Nun ist das Problem, dass wen ich einfach alle durchchecke, es extrem langsam dauert. Dies liegt an den Namen die nicht "existieren". Gibt es nun eine Möglichkeit per vbs oder vba alle PC namen in einem Netzwerk heraus zu finden (in nützilcher zeit)? Ist dafür zugriff auf die AD notwendig? Danke und Grüsse raplay

Hallo Zusammen Wir nutzen Windows 2k3 Server. Clients nutzen 2k/XP Bei 3 Benutzern tritt nun das Problem auf, dass wen sie auf ein Netzlaufwerk zugreifen, es im ersten-Moment etwa 15 sec dauert, bis die Ordner aufgelistet werden. Erstaunlich ist, dass mit anderen Datei manager, aber mit dem selben konto dieses Problem nicht auftritt. Ich kann mich auch mit den Benutzern an anderen Pcs anmelden, es geht trotzdem langsam. Es ist nicht die Verbindung, bei anderen geht es sehr schnell. Ich hab nach einigem Googeln folgendes gemacht: hkl\system\services\browser MaintainServerList und ServiceDll sind richtig gesetzt C:\WINDOWS\system32\drivers\etc\Lmhost von einem anderen Pc kopiert und eingefügt. Hat nichts gebracht. Hat wer eine Idee? danke Grüsse Rafael

muss es bat sein oder kann es auch mit etwas anderem sein?

Super danke!! Das war der haken bei beiden "ideen" Grüsse Rafael

Hallo Zusammen Ich müsste ein Script auf einem Pc A auf dem Pc B ausführen. Ich denke an 2 Möglichkeiten. 1. Das ganze mit vbs machen, das Script dazu habe ich auch: strRemoteComputer = "PCName" strWorkerScript = "scriptName welches im selben ordner liegt.vbs" Set objWshController = WScript.CreateObject("WshController") Set objRemoteScript =objWshController.CreateScript(strWorkerScript, strRemoteComputer) objRemoteScript.Execute Do While Not objRemoteScript.Status = 2 Wscript.Sleep(100) Wscript.Echo "Remote script not yet complete." Loop leider bekomme ich so die Fehler meldung, dass der PC nicht erreichbar ist, oder es ihn nicht gibt. Ich kann den Pc jedoch anpingen. 2. Möglichkeit Ich benutze Psexec, folgendes gebe ich in die cmd ein. PSEXEC \\pcname wscript.exe regSchluesselAnpassen.vbs Auf dem pc wird dan auch wscript gestartet, nur leider passiert danach nichts ( ich vermute dass wscript einfach gestartet wird das script aber nicht). Am liebsten währe mir die erste möglichkeit. Wo mache ich den/die:D fehler? danke euch Grüsse Rafael

Hallo Zusammen Ich muss ein Script schreiben, welches bei allen Win XP pcs den Folgenden Reg Key anpasst: [HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Policies\Explorer] "LinkResolveIgnoreLinkInfo"=dword:00000001 "NoRecentDocsNetHood"=dword:00000001 Nun bislang habe ich ein Script (siehe unten), welches alle Win Xp pcs raussucht, wie kann ich dan auf diesem den Key ändern?? Kann ich das mit psexec machen? (also im vbs script drin, mit WScript.Shell.run? Das funktioniert nicht, da das script auf einem netzlaufwerk liegt.) Also ich hab den PCname und möchte nun auf dem pc diesen Regschlüssel anpassen/hinzufügen. On Error Resume Next WSS = CreateObject("WScript.Shell") Titel ="um herauszufinden welches OS auf einem PC leuft" nummer = 0 Do While nummer < 400 nummer = nummer + 1 pcname ="slfpc" & nummer Eingabe = pcname If Eingabe="" then Eingabe="." If Eingabe="" then WScript.Quit strComputer = Eingabe Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colOperatingSystems = objWMIService.ExecQuery _ ("Select * from Win32_OperatingSystem") For Each objOperatingSystem in colOperatingSystems Wscript.Echo objOperatingSystem.Caption name = objOperatingSystem.Caption Next ' If name = "Microsoft Windows XP Professional" Then!!!!!!! ' Und nun bleib ich stehen was nun????!!!! Loop Danke euch!! Rafael

Schon versucht... geht nicht. Die Partition wahr <512 mb.

Hi Danke für die Hilfe, ich finde jedoch nichts darüber bei Maxtor, Google, oder in diesem Forum. Hast du ein Link wo das beschrieben wird=? Grüsse Rafael

direkt geht ja wohl kaum....

Hallo Zusammen Ich möchte von einer Externen USB HD aus booten und Ghost (wir benutzen 8) starten. Das Booten funktioniert auch super. Wenn ich dan jedoch das ghost starten möchte (ein img von einer Ghost boot Diskette), kommt der ganze bildschirm voll, mit ganz vielen schön farbigen, teils blinkenden, Zeichen. boot loader ist Syslinux wenn ich linux kernel nehmen, kommt eben dass mit den schönen farbigen Zeichen. Bei memdisk kommt Non-Sxstem disk or disk error.... Hat wer ne Idee??? Danke Raplay

:jau: wieder einmal DANKE !!!! :jau: Leider ist es W2K ... da leuft doch doch power shell nicht oder?

Schon ein weiteres Problem.... Ich muss ein Filter erstellen, welche das ergebniss in ein txt file schreibt. Soweit bin ich auch schon, das Problem sind die Filter anforderungen, wo "find" glaub ich hilflos überfordert ist. Unter Linux hab ich den befehl: ls -d [0-9]*_[0-9]*/[0-9]** > filelist_avalanches.txt -- Sprich Alle ordner die mit ner Zahl beginnen dan kann was beliebiges kommen dan soll nen underline kommen dan wieder ne zahl dan wieder was beliebiges und der orden muss auch noch einen unter ordner haben welcher mit ner zahl beginnt...... Bislang habe ich das Batch-file (C:\bfile): dir C:\ /b /s > C:\File.txt Und Ich weiss in etwa min man das File Zeilenweise einliest: Option Explicit Dim Zahl, WSHShell, FSO, DateiInhalt, Zeile, Inhalt, DatName, bfile FSO = CreateObject("Scripting.FileSystemObject") WSHShell = CreateObject("Wscript.Shell") bfile = "C:\bfile" WSHShell.Run(bfile) DatName = "File.txt" Set DateiInhalt = FSO.OpenTextFile(DatName) Do Until DateiInhalt.AtEndOfStream Zeile = DateiInhalt.ReadLine Inhalt = Inhalt + Zeile + VbCrLf Loop Wie überprüfe ich nun die Einzelne Zeile, auf die Anforderungen???

XD stimmt....

So funktioniert... Dim fs, f, f12, fc, s, _ Benutzername, Benutzername1, Benutzername2, _ Benutzername3, Benutzername4, Benutzername5, _ Benutzername6, Benutzername7, Benutzername8, _ Benutzername10, Benutzername11 ShowFolderList("C:\Dokumente und Einstellungen") Sub ShowFolderList(folderspec) Dim fs, f, f12, fc, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) Set fc = f.SubFolders For Each f12 In fc s = f12.name WScript.echo(s) If s = "XXX" Then ElseIf s = "xxx" Then ElseIf s = "xxx" Then ElseIf s = "bartholo" Then ElseIf s = "xxxl" Then ElseIf s = "MxxlM" Then ElseIf s = "xxx-admin" Then ElseIf s = "Sxxl" Then ElseIf s = "All Users" Then ElseIf s = "Administrator" Then ElseIf s = "Default User" Then Else fs.DeleteFolder("C:\Dokumente und Einstellungen\" + s), True End If Next End Sub

JA so hatte ich das auch schon, aber da kannst nicht bestimmte Profile nicht löschen.... Nein mit den rechten habe ich kein prob... wird beim abmelden ausgeführt.

DANKE!!! Hab leider noch ein Problem. An einem XP PC, loggen sich regelmässg verschiedene Users ein, die dort hinterlassenen Profile sollen jede woche Gelöst werden, auser von 4 Benutzern. Ich das bislang so gemacht: Erst verschiebe ich die Ordner der Benutzer die nicht gelöst werden sollen in einen Ordner C:\Profile, dan lösche ich den C:\Dokumente und Einstellung, erstelle einen Ordner C:\Dokumente und Einstellungen und kopiere die Profile aus C:\Profile wieder zurück. Das Klappt alles erstaundlicherweise auch. Wen sich jedoch ein Benutzer einloggt, von dem das Profil nicht gelöst wurde, wird der Ordner in C:\Dokumente und einstellungen nicht erkannt. Das heisst wen zb. sich Rafael einloggt, wird anstadt den Ordner C:\Dokumente und Einstellungen\Rafael zu nehmen ein neuer erstellt mit dem Namen Rafael.Domainname. Woran liegt das? Danke euch

Hallo zusammen Ich hab folgendes Problem::: Ein Script von mir enthält volgenden Code Set FSO = CreateObject("Scripting.FileSystemObject") If FSO.FolderExists (ZielVerzeichnis & Benutzername) Then FSO.DeleteFolder "C:\WSH" End If Es kommt dass mir die Rechte fehlen diesen Ordner zu löschen... Dan hab ich es mit nem Bat file probiert::: del "C:\WSH" Es wird gefrag, ob den Ordner löschen möchte, ich bestätige. Es komt kein Fehler, es komt einfach die Nächste Zeile. Doch der Ordner ist immer noch da... Wen ich in den Expolrer gehe, den Ordner anklicke und Delet drücke, wird er brav gelöst.... Ich bin ich in allen 3 Fällen als Administrator angemeldet. Danke euch und Grüsse Rafael

Hallo ich meinte das geht nur mit .batch dateien Vieleicht lass ich jetzt nen totalen müll raus, aber musst du nicht ne *.batch datei machen welche dan das vbs startet?? gruss rafael

hallo zusammen Ich suche eine Möglichkeit wie ich SendKey an einen Remote Computer sendn kann. Beispiel: es giebt einen PC abc und einen 123. ich sitze am PC abc und möchte einen "Enter" am pc 123 einen "Enter" Simulieren. Danke euch Gruss Rafael

Hallo Zusammen Ich habe folgenden Script: set WshShell = CreateObject("WScript.Shell") PCName = "PCXY" RegPfad = PCName + "\HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Nls\Language\InstallLanguage" SysSprache = WshShell.RegRead(RegPfad) If SysSprache = "0407" Then SysSprache = "De" else SysSprache = "En" end if Wscript.echo(SysSprache) Es Kommt der Fehler "Ungültige Wurzel in Registrierungsschlüssel" Wenn es so nicht möglich ist einen RegSchlüssel eines anderen Pcs heraus zu lesen, gäbe es dann die möglichkeit über %lang% etwas zu machen? Danke und grüsse Rafael