is there program or script windows (powershell maybe, or cmd) can detect when usb drive plugged in , copy contents in hard drive of pc?
it should able act autonomously without asking permission or opening confirmation or status windows.
i need create backup of drive every time connect machine.
this vbscript used automatically copy each , every newly inserted usb key or sdcard. each usb key or every sdcard, creates folder of form "machinename_volumeusb_numserie" in the% appdata% folder , makes total copy first time , incrementally, ie, copy new files , files changed every 30 seconds.
'sauvegarde automatique des clés usb et sdcard dés leurs insertion. 'ce programme sert à copier automatiquement chaque clé usb nouvellement insérée ou bien une sdcard. 'il sert à faire des sauvegardes incrémentielles de vos clés usb. 'pour chaque clé usb, il crée un dossier de cette forme "nommachine_nomvolumeusb_numserie" dans le dossier %appdata% et 'il fait une copie totale pour la première fois, puis incrémentielle , càd ,il copie juste les nouveaux fichiers et les fichiers modifiés. 'crée le 23/09/2014 © hackoo option explicit call autosave_usb_sdcard() pause(30) loop '********************************************autosave_usb_sdcard()************************************************ sub autosave_usb_sdcard() dim ws,wshnetwork,nommachine,appdata,strcomputer,objwmiservice,objdisk,coldisks dim fso,drive,numserie,volume,cible,amovible,dossier,chemin,command,result set ws = createobject("wscript.shell") set wshnetwork = createobject("wscript.network") nommachine = wshnetwork.computername appdata= ws.expandenvironmentstrings("%appdata%") cible = appdata & "\" strcomputer = "." set objwmiservice = getobject("winmgmts:" _ & "{impersonationlevel=impersonate}!\\" & strcomputer & "\root\cimv2") set coldisks = objwmiservice.execquery _ ("select * win32_logicaldisk") each objdisk in coldisks if objdisk.drivetype = 2 set fso = createobject("scripting.filesystemobject") each drive in fso.drives if drive.isready if drive.drivetype = 1 numserie=fso.drives(drive + "\").serialnumber amovible=fso.drives(drive + "\") numserie=abs(int(numserie)) volume=fso.drives(drive + "\").volumename dossier=nommachine & "_" & volume &"_"& numserie chemin=cible & dossier command = "cmd /c xcopy.exe " & amovible &" "& chemin &" /i /d /y /s /j /c" result = ws.run(command,0,true) end if end if next end if next end sub '***************************************fin du autosave_usb_sdcard()********************************************* '**************************************************************************************************************** sub pause(sec) wscript.sleep(sec*1000) end sub '****************************************************************************************************************
Comments
Post a Comment