Jump to content

Uli

Members
  • Gesamte Inhalte

    134
  • Registriert seit

  • Letzter Besuch

Alle erstellten Inhalte von Uli

  1. @grizzley : Danke, werds mal testen. Hmm, unter: - System -Current Control Set -Services - lanmanserver -shares gibt es auch noch einen Punkt Permissions, vielicht muss man die nur kopieren. Was mir aber aufgefallen ist: Unter diesen Permissions gibt es noch einen Eintrag mit dem alten Freigabenamen. Also, die Variante ist mit vorsicht zu geniesen
  2. vieleicht gibts ja doch ne andere Lösung *hoff*
  3. Verdammt geht doch nicht :-( Der legt doch eine neue an, sprich die ganzen Berechtigungen sind futsch. local_Machine - System -Current Control Set -Services - lanmanserver -shares Und dann umbenenen. Aber wie gesagt die Berechtigungen sind pfutsch !
  4. Hat sich erledigt ;-) Habs hingekriegt, lässt sich ganz einfach über die Registry ändern.
  5. Hi, wie ändert man denn den Namen einer Freigabe ( z.B. als test soll test$ werden) ohne eine neue Freigabe zu erstellen. Wenn ich eine neue erstellen muss, muss ich ja auch die Berechtigungen neu setzen. Wisst Ihr da nen Rat ?
  6. @mwuff : Klasse damit funzt es. Auf Euch kann man sich echt verlassen ! Danke Gruss Uli
  7. @zion, funktioniert bei mir leider nicht. Ist die kill.exe nicht nur im ResKit enthalten ?
  8. Was gibt es denn für eine Möglichkeit einen Service mittels eines Batch zu stoppen ?
  9. Nee glaube ich nicht. Habe das Schema Dauerbetrieb aktiviert. Hänge auch am Strom. Wenn meine Kiste über den Akku läuft lass ich nur die Hintergrundbeleuchtung runterfahren.
  10. Habe die Lösung gefunden: musste noch die gpt.ini in den Kopierprozess der Batchdatei einbinden. Habe die gpt.ini von meiner Kiste genommen, auf dem ich mit der gpedit.msc das Script aktiviert habe. Läuft problemlos. Diese Lösung ist hoffentlich unproblematisch Die gpedit kann ich nicht benutzen, da wir keine Domäne haben und ich somit nicht zentral an die Benutzerkonfig der einzelnen Notebooks rankomme. Müsste ja lokal über die gpedit gehen und /oder warten bis sich alle NB's im Netz befinden. Jetzt muss der Anwender nur einen Batch anstoßen und dann läufts. danke und Gruss Uli
  11. Dachte ich hätte die Lösung gefunden. Habe noch die Scripts.ini nach winnt\system32\GroupPolicy\user\scripts kopiert. aber daran lag es wohl nit :-( Hat niemand ein Tip
  12. Hatte zwar so einen ähnlichen Thread mal laufen, aber ich glaube der war zu ungenau. Also: Ich habe jetzt schon bei mehrern Notebooks festgestellt, das aufeinmal die Icons auf dem Desktop nur noch mit 256 Farben angezeigt werden, und das obwohl bei den Grafikeinstellungen 16 bzw. 32 bit eingestellt ist. Dieser Fehler wirkt sich aber nur auf die ICONS aus. Bei den Effekten ist zwar: Symbole mit höchster Farbanzahl anzeigen aktiviert. Manchmal hilft es wenn man diese OPtion deaktiviert und wieder aktiviert. Nur in den meisten Fällen leider nciht. hat das Problem noch jemand. Gruss Uli
  13. Könntest Du mit Netmeeting Remote Desktop machen. Funzt ganz gut und ist auf jeder Prof. Kiste mit drauf.
  14. Hi, ich weiss so langsam nerve ich sicherlich schon mit meinen Fragen zu Scripts. Aber eine hätte ich noch. Un zwar, ich habe einen Batch geschrieben, der in dem Verzeichniss \winnt\System32\GroupPolicy\User den Verzeichnisbaum /scripts/logoff anlegt. Dort wird dann mein script backup.vbs reinkopiert. Ich dachte, das dass schon ausreciht um beim abmelden dieses Script auszuführen. Funzt aber leider nicht. Muss man wirklich über die MMC gehen und dort bei Benutzerkonfiguration/Windows-Einstellungen/Scripts dieses Script einstellen ? Das kann man doch sicher auch über ein Script aktivieren. Das Problem ist, das wir keine Domäne haben und ich somit auch nicht den direkten Zugriff auf die lokale Benutzerkonfiguration habe. Weiss jemand von Euch da einen Rat ? Danke und Gruss Uli
  15. Hallo, ich möchte eine Logdatei auf einem Netzlaufwerk über ein Script anlegen lassen. Die Datai soll backup_%username%.txt heissen. Nur irgendwie kriege ich die %username% Variable nicht aufgelöst. Bei mir sieht das so aus : myfile = "\\server\backuplogs$\backup_" & %username% & ".txt" Wie kann ich denn unter VB-Script bei einem Dateipfad den Usernamen mitgeben ? Danke und Gruss Uli
  16. Hmm, jepp da haste auch wieder recht ! :D
  17. @bigzorro: hmm hast recht, dummer Fehler meinerseits. Beim abmelden funzt es prima.
  18. Hiho, wie sieht das eigetnlich aus, wenn ich beim Shutdown ein Script ausfürhen lassen möchte. Kann es sein, das dann die Netzwerkverbindungen schon beendet sind ? WEil, das script wird zwar ausgeführt, aber der Destination Pfad wird nicht gefunden. Und in meinem Script ist der Dest. Pfad ein Netzlaufwerk. Kann man da was drehen ?
  19. In diesem Fall nicht. Für die anderen Rechner bzw. Server haben wir Backupsoftware im Einsatz. Die Lösung wollte / will ich aber für einige Notebooks umsetzen. KLappt ja soweit auch ganz gut. Nur leider hänge ich noch daran. Das man nur einmal die Verzecihnisse definiert und danach nur bei Bedarf diese ändert.
  20. Hi, ich habe mich für die teilweise Neuorganisation der Datensicherung bei uns für dieses Script entschieden: Dim verzeichnis1, verzeichnis2, verzeichnis3, verzeichnis4, verzeichnis5, verzeichnis6, verzeichnis7 verzeichnis1=InputBox("Welcher Ordner sollen gesichert werden?") verzeichnis2=InputBox("Welcher Ordner sollen gesichert werden?") verzeichnis3=InputBox("Welcher Ordner sollen gesichert werden?") BackupPath = "H:\Backup" If Wscript.Arguments.Count = 0 Then Quantity = 7 redim MyData(Quantity) MyData(1) = verzeichnis1 MyData(2) = verzeichnis2 MyData(3) = verzeichnis3 Else redim MyData(1) MyData(1) = Wscript.Arguments(0) Quantity = 1 End If set fso = CreateObject("Scripting.FileSystemObject") strScript = WScript.ScriptFullName strScript = fso.GetFileName( strScript ) strScript = left( strScript, len(strScript) - 4 ) StartMe = msgbox("" & vbcrlf & vbcrlf & _ "Die Daten werden gesichert nach " & BackupPath & " (" & strScript & ")" & vbcrlf & vbcrlf & _ "Möchten Sie das Backup jetzt starten ? ?" , 33, "Backup Tool") if StartMe = 2 then wscript.quit End if count = 0 dim arrResults redim arrResults(0) If right(BackupPath, 1) <> "\" then BackupPath = BackupPath & "\" End If call CheckPath if not fso.folderExists ( BackupPath ) then fso.CreateFolder( BackupPath ) end if If left(BackupPath , 1) = "\" then for ss = 1 to len(BackupPath ) strCh = mid(BackupPath , ss, 1) if strCh = "\" then countslash = countslash + 1 if countslash = 3 then drv = ss + 3 end if next 'ss if not countslash >= 3 then msgbox "Error in script relative to network path" else drv = 5 End If For i = 1 to Quantity If MyData(i) <> "" then if fso.DriveExists( MyData(i) ) Then call backup( MyData(i) ) elseif fso.folderExists(MyData(i)) then call MakeFolderPath( BackupPath & right(MyData(i), len(MyData(i))-3 ) ) call backup( MyData(i) ) elseif fso.fileExists(MyData(i)) then call FileBackup( MyData(i) ) else msgbox MyData(i) & vbcrlf & vbcrlf & "Diese Datei bzw. dieses Verzeichnis scheint nicht zu existieren" & _ vbcrlf & "Bitte vergewissern Sie sich ob die richtige Dateibzw. das richtige Verzeichnis angegeben wurde" & vbcrlf & _ "und die Datei oder das Verzeichnis nicht umbenannt, verschoben oder gelöscht wurde.", 48, "Datei oder Verzeichnis Fehler" end if End If Sub Backup( mypath ) if ExcludeF( mypath ) = False then Set fldr = fso.GetFolder( myPath ) For Each f in fldr.Files DoEvents If not fso.folderExists( BackupPath & right(myPath, len(myPath)-3 )) then call MakeFolderPath( BackupPath & right(myPath, len(myPath)-3 )) End if If fso.DriveExists( mypath ) Then backfolder = BackupPath else backfolder = BackupPath & right(fldr, len(fldr)-3 ) & "\" end if ext = right(Lcase(f.name), 3) if ext <> "tmp" then backupfile = backfolder & f.name If fso.fileExists( backupfile ) then if fso.GetFile(f).DateLastModified > fso.GetFile(backupfile).DateLastModified then fso.CopyFile f, backfolder, true count = count + 1 ReDim Preserve arrResults(count) arrResults(count) = f end if Else fso.CopyFile f, backfolder, true count = count + 1 ReDim Preserve arrResults(count) arrResults(count) = f End if end if DoEvents Next For Each Folder In fldr.SubFolders Call Backup(Folder) Next End if End Sub Sub FileBackup( myFile ) set f = fso.GetFile( myFile ) backupfile = BackupPath & f.name If fso.fileExists( backupfile ) then if fso.GetFile(f).DateLastModified > fso.GetFile(backupfile).DateLastModified then fso.CopyFile f, BackupPath , true count = count + 1 ReDim Preserve arrResults(count) arrResults(count) = f end if Else fso.CopyFile f, BackupPath , true count = count + 1 ReDim Preserve arrResults(count) arrResults(count) = f End if End Sub Sub MakeFolderPath( myfolder ) For x = drv to len( myFolder ) MyChr = mid( myFolder , x, 1) if mychr = "\" then xfolder = left(myfolder, x-1) if not fso.folderExists ( xFolder ) then fso.CreateFolder( xFolder ) end if end if Das funktioniert auch bestens. Allerdings bin ich noch nicht so ganz zufrieden, denn entweder ich gebe die Verzeichnisse direkt vor die gesichert werden sollen, oder ich lasse die MA über die InputBoxen am Anfang selbst die Verzeichnisse festlegen. Ich hätte es aber gerne, das der MA einmal die Verzeichnisse definiert und später nur bei Bedarf über die Input Box die Verzeichnisse ändert. Habt ihr da eine Idee, wie ich nur bei Bedarf auf die Input Box zugreifen kann, bzw. Wie ich beim ersten Start die Verzeichnisse definieren kann und das script sich diese "merkt". Danke unnd Gruss
  21. HI, habe glaube ich was passendes gefunden: http://cwashington.netreach.net/depo/view.asp?Index=7&ScriptType=command
  22. Uli

    Script Tool von MS

    Super! Vielen Dank1
  23. Uli

    Dateisuche

    Bei den Freetools des ResKit, die man bei MS downloaden kann ist die where.exe nicht dabei. Wo kann ich die where.exe noch herkreigen ?
  24. Uli

    Dateisuche

    O.k., danke werd mir ansehen ! gruss Uli
×
×
  • Neu erstellen...