Plz Help me

[Guest Salimsr]

Plz give vbscript code

The code work when USB plug-in and I don't know drive later of drive

1.vbs file is Looping and work on process when USB Plug vbs file is auto open usb drive.

2.When USB found autorun.inf

open = ??????

shell\open\command=??????

The vbs file delete autorun.inf and delete open command = file name (???.exe ???.cmd or other file name)

3.usb driver make a file autorun.inf

[AURORUN]

icon=%SystemRoot%\system32\icon.ico

when drive icon show,usb not found autorun virus

I need code show drive icon, no unplug usb

vbscript code make .vbs file , the file run on startup and process

when usb plug code is work

Plz 1,2,3 stap code give me any one .....plz....plz.....plz

[Yzöwl]

No!

This is not a one way request Forum where you can employ the services of our Members and give nothing back. Please make an attempt to script this yourself then post it here with a better description of the requirements. We will then be in a better position to consider providing you with any help necessary to tweak/fix your script.

[Guest Salimsr]

script:

Set FSO = CreateObject("Scripting.FileSystemObject")

Set Drives = FSO.Drives

strMessage = "Please Open USB Drive"

Do

For Each DiskDrive In Drives

If DiskDrive.DriveType = "1" Then

If DiskDrive.IsReady = "True" Then

strMbox = MsgBox(strMessage ,48,"USB Drive")

End If

End If

Next

Loop

When I plug usb, Show strMessage = command and unplug usb no Message.

I need script is Processes and when plug usb don't show Message , auto Open usb drive Safely

Please Help

[gunsmokingman]

Try this script

Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Chk, Drv, Txt1,Txt2

   For Each Drv In Fso.Drives 
	If Drv.IsReady Then
	 If Drv.DriveType = 1 Then
	  Chk = True
	  Txt1 = Txt1 & "Removable Drive : " & Drv.DriveLetter & vbCrLf
	  Else
	   Txt2 = Txt2 & "Empty Drive	: "  & Drv.DriveLetter & vbCrLf
	 End If 
	End If 
   Next 

   If Chk = True Then
	MsgBox Txt1,4128,"Results"
   Else
	MsgBox "No Source In The Removable Media" & vbCrLf & Txt2 ,4128,"Results"
   End If

[Guest Salimsr]

Try this script

Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
Dim Chk, Drv, Txt1,Txt2

   For Each Drv In Fso.Drives 
	If Drv.IsReady Then
	 If Drv.DriveType = 1 Then
	  Chk = True
	  Txt1 = Txt1 & "Removable Drive : " & Drv.DriveLetter & vbCrLf
	  Else
	   Txt2 = Txt2 & "Empty Drive	: "  & Drv.DriveLetter & vbCrLf
	 End If 
	End If 
   Next 

   If Chk = True Then
	MsgBox Txt1,4128,"Results"
   Else
	MsgBox "No Source In The Removable Media" & vbCrLf & Txt2 ,4128,"Results"
   End If

Boss,

I Need the script , auto open usb drive when usb plug in and script is work on processe

[gunsmokingman]

All the VBS script can do is see if the drive has some thing in it.

If Drv.IsReady Then

Then it checks to see if it Removable

Drv.DriveType = 1

If you want some thing to auto run read this Thread

[Guest Salimsr]

plz give me full script,

The script is startup runing on processe

when load usb or plug open folder view file

[Yzöwl]

@ Salimsr I am closing this Topic.

If you wish to see it re-opened please, (as already requested), try to explain your requirements a little better.

You can do that by sending a PM to either of this Forum Groups Moderators using one of the links below.

• Yzöwl
  
• gunsmokingman