raplay
-
Gesamte Inhalte
44 -
Registriert seit
-
Letzter Besuch
Beiträge erstellt von 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?
-
Moin,
hm, Rheinländer? ;)
zz nei Schweizer ;)
–
Moin,Die Methoden aus diesem Artikel dürften dabei helfen:
heise Netze - 20.12.06 - Zielsucher
Gruß, Nils
Werde ich mir gleich vornehmen
Ggf. einfach vorher nen Ping an die Maschine?Sind die IP-Kreise bekannt?
Dann könnte man mit einem
Ping -a <IP>
die Namen bekommen.
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
-
Hallo zusammen,
folgende Situation, ich müsste durch ein Script alle auf einem PC hinterlegten Profilordner nach einem gewissen Inhalten durchsuchen, und sobald der gewünschte Inhalt gefunden wurde, sollen die gefundenen Dateien und Ordner gelöscht werden.
Kann mir hier vielleicht jemand weiter helfen? :D
Gruß
Michael
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?
-
Kann es bei 1.) sein das die Windows Firewall auf dem anzusprechenden Client aktiv ist und den RPC-Call nicht durchlässt?
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
-
Mit "beim Hersteller" war der Hersteller von Ghost gemeint.
Eigentlich sollte es ausreichen auf der HDD eine kleine FAT-Partition zu erstellen, diese bootfähig zu machen und den Inhalt der Diskette auf eben diese Partition zu kopieren.
Schon versucht... geht nicht. Die Partition wahr <512 mb.
-
Hi.
Aber so geht es auch nicht. Da balgen sich zwei Betriebssysteme um den gleichen Speicherbereich. ;)
Da Ghost wohl immer noch auf einem DOS-Bootsystem beruht, brauchst du auf der USB-HD eine bootfähige DOS-Partition, auf der dann manuell oder über eine Batch Ghost normal als Applikation gestartet wird.
Die entsprechenden Anleitungen dazu sollten auf der Hersteller-HP zu finden sein.
Damian
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
-
Hi.
Verstehe ich das richtig? Du bootest von der externen USB-HD eine System mit Syslinux und möchtest dann nochmal eine Ghost-Bootdiskette starten? Das ist einmal zuviel gebootet. :wink2:
Damian
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
-
Hallo,
In der Powershell ist das eine Zeile :)
get-childitem c:\ -recurse | where {$_.name -match "^_\d|^\d"} | format-list fullname |out-file filelist_avalanches.txt
bzw.
gci c:\ -recurse | where {$_.name -match "^_\d|^\d"} | fl fullname | out-file filelist_avalanches.txt
bei Bedarf:
Running Windows PowerShell Scripts
cu
blub
: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....
-
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.
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
-
Du kannst nicht einfach das Profile wegkopieren und rumverschieben...
Glaub da bekommst du Probleme mit den Berechtigungen...sieh dir mal den Owner des Profils an...ist das nach wie vor der User selbst?
Ich würde das anders lösen...sieh dir mal das an:
How To Delete User Profiles by Using the User Profile Deletion Utility (Delprof.exe) in Windows 2000
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.
-
probier mal:
If FSO.FolderExists (ZielVerzeichnis & Benutzername) Then FSO.DeleteFolder "C:\WSH", [color="Red"]True[/color]
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
Standardmässig Administrator-Konto mit leerem Kennwort bei XPhome?
in Windows Forum — Allgemein
Geschrieben
Ja das ist so!! unglaublich aber wahr
Kannst es auch ändern mit cmd--> net user administrator DasGewünsteKennwort
grüsse Raplay