Results 1 to 13 of 13
Thread: áåçïëàòåí ñîôòóåð çà backup ???
Hybrid View
-
3rd November 2008 09:52 #1
áåçïëàòåí ñîôòóåð çà backup ???
Òúðñÿ ñëåäíîòî íåùî:
1. Äà êîïèðà ïðåäâàðèòåëíî äåôèíèðàíè äèðåêòîðèè îò õàðäà êúì ôëàøêàòà.
2. Äà å àáñîëþòíî áåçïëàòåí (õàêíàòè, 5 äîëàðîâè è äðóãè ïîäîáíè íå ñòàâàò)
3. Íÿìà íóæäà äà çèïîñâà íèòî äà äåáíå îïðåäåëåí ÷àñ çà çàäåéñòâàíå (ïóñêà ñå ðú÷íî).
4. Ñ íåãî ùå ðàáîòÿò õîðà êîèòî íå ñà îñîáåíî íàâúòðå ñ êîìïþòðèòå, òîåñò êëèêàò, ãëåäàò êâî ñòàâà, âàäÿò ôëàøêàòà.
Çàùî íå íàïèøà åäèí DOS bat file ? Çàùîòî íÿìà êàê äà çíàì êîÿ "áóêâà" å ôëàøêàòà, à òîâà ùå ñå ïóñêà íà ðàçëè÷íè ìàøèíè.
Ìåðñè !
-
3rd November 2008 09:57 #2
Windows Backup-à âúðøè ðàáîòà.
Èìà Wizard, ïóñêà ñå ëåñíî ñ 2-3 êëèêàíÿ è ò.í.
Ôëàøêàòà ñå ñëàãà åäíà è ñúùà áóêâà, àêî ñå áîöâà â åäèí è ñúù ïîðò è íÿìà äðóãè óñòðàéñòâà íà òàçè áóêâà, ïîÿâèëè ñå ïðåæäåâðåìåííî èëè å ñìåíåíà ôëàøêàòà
"Beauty is not enough"
-
3rd November 2008 10:46 #3
Âèæ Cobian Backup äàëè ùå òè ñâúðøè ðàáîòà.
-
3rd November 2008 12:57 #4
Àç ïîëçâàì SyncToy
Ïîñëåäíà ðåäàêöèÿ: èçâúðøåíà îò XaMaB; íà äíåøíà äàòà. 0.42 ñåêóíäè ñëåä ïóñêàíå íà ïîñòà
In God we Trust (all others must submit a X.509 certificate). Àêî ñïîðèø ñ èäèîò, âåðîÿòíî è òîé ïðàâè ñúùîòî èëè ñè ïîïàäíàë íà ïàðòèåí (íåïúëåí) ÷ëåí
-
3rd November 2008 13:15 #5
-
3rd November 2008 15:36 #6
-
3rd November 2008 21:58 #7Banned
Join Date: Oct:2003
Location: Ñîôèÿ
Posts: 5,259
-
3rd November 2008 19:28 #8
Àêî .bat ôàéëà ñ êîìàíäà ïðèìåðíî
copy "Ñ:\TEST\*.*" ".\TEST\"
ñå íàìèðà íà ôëàøêàòà è ñå ñòàðòèðà îò òàì, áóêâàòà íÿìà çíà÷åíèå. Äàæå ìîæå äà ãî íàïðàâèø äà ñå ñòàðòèðà àòîìàòè÷íî ïðè âêàðâàíå íà ôëàøêàòà.
Ïðîñòî èäåÿ.Last edited by WoW; 3rd November 2008 at 19:41.
-
4th November 2008 00:17 #9Registered User
Join Date: Dec:2005
Location: yvr
Posts: 5,167
-
4th November 2008 00:44 #10
Åòî è åäèí VBscript, êîéòî îòêðèâà áóêâàòà íà Removable Disk/ôëàøêà è êîïèðà ïàïêàòà "X:\Source Folder For Backup" â root-à é, ñ ïðîãðåñ áàð è ñúîáùåíèå çà êðàé íà êîïèðàíåòî. Àêî èìà ïîâå÷å îò åäèí Removable Disk/ôëàøêà çàêà÷åíè, êîïèðà ñå íà âñè÷êè åäíà ïî åäíà:
EDIT: Äà, Bombera. Ñåòèõ ñå çà òîâà è ãî ïðîìåíèõ äà êîïèðà íà âñè÷êè. Ìàëêî èçëèøíà ðàáîòà, àìà å fulproof.Code:' Íàìèðàìå Áóêâàòà íà USB ôëàøêàòà è êîïèðàìå "X:\Source Folder For Backup" â root é strComputer = "." Set objWMIService = GetObject("winmgmts:" _ & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colDisks = objWMIService.ExecQuery _ ("Select * from Win32_LogicalDisk") For each objDisk in colDisks If objDisk.DriveType = 2 then'2=Removable SourceFolder ="X:\Source Folder For Backup" TargetFolder = objDisk.Name & "\" Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace(TargetFolder) objFolder.CopyHere SourceFolder, 16 End If Next MsgBox ("Backup Completed Succesfully")
Last edited by WoW; 4th November 2008 at 01:07.
-
4th November 2008 00:49 #11
Àêî ñà ïîâå÷å îò åäíà ôëàøêà, ñå êîïèðà íà ïîñëåäíàòà
EVGA X299 FTW K|i9-7960X@4.7|4x8 Patriot Viper Steel 4000|GTX 1660 Ti|970 EVO 1 TB|Seasonic Focus GX-1000|Xigmatek Elysium|Êèëî è ïîëîâèíà âîäà
Rampage IV Extreme BE|E5-1680v2@4.7|4x4 HyperX 1866|Cougar Aqua 240|GTX 1050 Ti|970 EVO 1/4 TB|CM 850 SilentPro|HAF-X|Áåç èñòèíñêî âîäíî
-
4th November 2008 01:21 #12Registered User
Join Date: Dec:2005
Location: yvr
Posts: 5,167
Èìà è ôëàøêè, íà êîèòî êîíòðîëåðà âðúùà fixed(basic), ìèñëÿ DriveType = 1 áåøå....If objDisk.DriveType = 2 then'2=Removable...
Ïðàâèëíèÿ íà÷èí å äà âçåìåø âñè÷êî îò USB øèíàòà è ïîñëå äà íàìåðèø è áóêâàòà ìó:
Òîâà å AutoIt ôóíêöèÿ, êîÿòî ïîëçâà ïàê WMI çà äà âúðíå âñè÷êèòå USB äèñêîâå, ïðåäïîëàãàì çàïèòâàíèÿòà ùå òè ñâúðøàò ðàáîòà:
Code:Func _GetUSBDrivesInfo() Local $USBDlettersInfo[1][9], $NrOfFoundUSB = 0, $dp, $HasBootPart Local $strComputer = ".", $objDrive, $strDeviceID, $colPartitions, $objPartition, $colLogicalDisks, $objLogicalDisk Local $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\cimv2") Local $colDiskDrives = $objWMIService.ExecQuery("Select * from Win32_DiskDrive Where (InterfaceType like " & chr(34) & "%USB%" & chr(34) & ")") For $objDrive In $colDiskDrives $HasBootPart = 0 Logging( "Found USB Physical Disk: " & $objDrive.Caption & " -- " & $objDrive.DeviceID) $strDeviceID = StringReplace($objDrive.DeviceID, "\", "\\") Local $colPartitions = $objWMIService.ExecQuery("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" & $strDeviceID & """}" _ & "WHERE AssocClass = Win32_DiskDriveToDiskPartition") ;check if this disk has bootable partitions For $objPartition In $colPartitions If $objPartition.Bootable = -1 Then $HasBootPart = 1 ExitLoop EndIf Next If $HasBootPart = 1 Then For $objPartition In $colPartitions Logging( "Found USB Disk Partition: " & $objPartition.DeviceID) $colLogicalDisks = $objWMIService.ExecQuery("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & $objPartition.DeviceID & """}" _ & "WHERE AssocClass = Win32_LogicalDiskToPartition" ) For $objLogicalDisk In $colLogicalDisks Logging( "Found USB Logical Disk: " & $objLogicalDisk.DeviceID & " File system: " & $objLogicalDisk.FileSystem _ & " Bootable: " & $objPartition.Bootable) $NrOfFoundUSB += 1 $USBDlettersInfo[0][0] = $NrOfFoundUSB ReDim $USBDlettersInfo[$NrOfFoundUSB + 1][9] $USBDlettersInfo[$NrOfFoundUSB][0] = $objLogicalDisk.DeviceID $USBDlettersInfo[$NrOfFoundUSB][1] = StringReplace($objDrive.Caption, "USB device", "") $dp = StringSplit($objPartition.DeviceID, ",") $USBDlettersInfo[$NrOfFoundUSB][2] = StringRegExpReplace($dp[1], "[^0-9]", "") $USBDlettersInfo[$NrOfFoundUSB][3] = StringRegExpReplace($dp[2], "[^0-9]", "") $USBDlettersInfo[$NrOfFoundUSB][4] = Round(DriveSpaceTotal($objLogicalDisk.DeviceID), 0) $USBDlettersInfo[$NrOfFoundUSB][5] = Round(DriveSpaceFree($objLogicalDisk.DeviceID), 0) $USBDlettersInfo[$NrOfFoundUSB][6] = DriveGetType($objLogicalDisk.DeviceID) $USBDlettersInfo[$NrOfFoundUSB][7] = $objLogicalDisk.FileSystem ;$USBDlettersInfo[$NrOfFoundUSB][8] = $objPartition.BootPartition $USBDlettersInfo[$NrOfFoundUSB][8] = $objPartition.Bootable ;array is in format--> DriveLetter | Name | Disk# | Part# | TotalSpace | FreeSpace | DriveType | FileSystem | Bootable(-1) or Not (0) Next Next EndIf Next Return $USBDlettersInfo EndFunc ;==>__GetUSBDrivesInfo()
-
4th November 2008 06:20 #13
Ìåðñè çà ïîäðîáíèòå îòãîâîðè. Ìèñëÿ ÷å ñòàíà èíòåðåñíà òåìà. Èìàøå íÿêàêâà ïîäîáíà ïðåäèøíà, íî ïóñíàõ òàçè òúé êàòî íå íàìåðèõ îòãîâîðà òàì. Òóê ìèñëÿ ÷å èìà íÿêîëêî, âñå ïîëåçíè îòãîâîâîðè.




Reply With Quote

Íå âúçìîæíîñò äà èçêëþ÷à êîìïþòúðà
7th May 2023, 16:02 in Îáù ôîðóì çà PC õàðäóåð