Results 1 to 13 of 13

Thread: backup ???

Hybrid View

Previous Post Previous Post   Next Post Next Post
  1. #1
    video maniac sancho's Avatar
    Join Date: Nov:2005
    Location:
    Posts: 846

    backup ???

    :

    1. .
    2. (, 5 )
    3. ( ).
    4. , , , .


    DOS bat file ? "" , .

    !

  2. #2
    Registered User georgyg's Avatar
    Join Date: Jul:2003
    Location: Sofia
    Posts: 227
    Windows Backup- .
    Wizard, 2-3 ..

    , ,
    "Beauty is not enough"

  3. #3
    An Ocean Soul Guardian's Avatar
    Join Date: Jul:2001
    Location:
    Posts: 1,203
    Cobian Backup .

  4. #4
    XaMaB's Avatar
    Join Date: Nov:2001
    Location:
    Posts: 20,393
    : XaMaB; . 0.42

    In God we Trust (all others must submit a X.509 certificate). , ()

  5. #5
    Banned
    Join Date: Jun:2008
    Location:
    Posts: 1,880
    Quote Originally Posted by XaMaB View Post
    1+

  6. #6
    Nostrum IvO's Avatar
    Join Date: Jun:2008
    Location: HOME.WAD
    Posts: 1,334

  7. #7
    Banned
    Join Date: Oct:2003
    Location:
    Posts: 5,259
    Quote Originally Posted by Guardian View Post
    Cobian Backup .
    2 . , 20-22TB .

  8. #8

  9. #9
    Registered User
    Join Date: Dec:2005
    Location: yvr
    Posts: 5,167
    Quote Originally Posted by sancho View Post
    ... DOS bat file ? "" , ...
    - tag :

    Code:
    SET TAGFILE=\mytagfile
    FOR %%i IN (C D E F G H I J K L M N O P Q R S T U V W X Y) DO IF EXIST "%%i:%TAGFILE%" SET USBDRIVE=%%i:

  10. #10
    If it ain't broke o/c it WoW's Avatar
    Join Date: Jun:2004
    Location: Motor City
    Posts: 1,980
    VBscript, Removable Disk/ "X:\Source Folder For Backup" root- , . Removable Disk/ , :

    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")
    EDIT: , Bombera. . , fulproof.

  11. #11
    Bombera's Avatar
    Join Date: Jul:2001
    Location: 4EVA
    Posts: 13,833
    ,
    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|

  12. #12
    Registered User
    Join Date: Dec:2005
    Location: yvr
    Posts: 5,167
    ...If objDisk.DriveType = 2 then'2=Removable...
    , fixed(basic), DriveType = 1 .

    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()

  13. #13
    video maniac sancho's Avatar
    Join Date: Nov:2005
    Location:
    Posts: 846
    . . , . , .

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  

Copyright © 1999-2011 . .
iskamPC.com | mobility.BG | Bloody's Techblog | | 3D Vision Blog |