Uli

@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

vieleicht gibts ja doch ne andere Lösung *hoff*

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 !

Hat sich erledigt ;-)

Habs hingekriegt, lässt sich ganz einfach über die Registry ändern.

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 ?

@mwuff : Klasse damit funzt es.

Auf Euch kann man sich echt verlassen !

Danke

 

Gruss

 

Uli

@zion, funktioniert bei mir leider nicht. Ist die kill.exe nicht nur im ResKit enthalten ?

Was gibt es denn für eine Möglichkeit einen Service mittels eines Batch zu stoppen ?

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.

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

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

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

Könntest Du mit Netmeeting Remote Desktop machen.

Funzt ganz gut und ist auf jeder Prof. Kiste mit drauf.

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

Hmm das probiere ich mal.

Danke

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

Hmm, jepp da haste auch wieder recht ! :D

@bigzorro: hmm hast recht, dummer Fehler meinerseits. Beim abmelden funzt es prima.

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 ?

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.

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

HI,

 

habe glaube ich was passendes gefunden:

http://cwashington.netreach.net/depo/view.asp?Index=7&ScriptType=command

Super!

Vielen Dank1

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 ?

O.k., danke werd mir ansehen !

 

gruss

 

Uli