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
-
3rd November 2008 12:57 #4: 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 #7
-
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

07.05.23 ., 16:02 in PC