Can you verifie this code, works fine one many machine but one...

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Can you verifie this code, works fine one many machine but one...

Logged in as: Guest

arrSession:exec spGetSession 2,2,49076

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Can you verifie this code, works fine one many machine but one...
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Can you verifie this code, works fine one many machine ... - 7/5/2007 3:40:57 AM

chapeau_melon

Posts: 17
Score: 0
Joined: 6/20/2007
Status: offline

Hello everybody,

Can I ask you kindly to verify my code ?

It works fine on several machines (more new ones) except one.
Is it related to the motherboard maybe ?

The script looks at all the usb ports to look after a disk called MERLIN.
If and only if it is there the rest of the scripts continues.

What I don't understand, is that when the script is executed I hear the A drive 1.44 turning.
After that is goes to the USB stick.

On that particular machine I have to execute the script several times and then it finally works.

All machines are running on XP.

Kind regards

strComputer = "." 
Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") 
Set colDisks = objWMIService.ExecQuery ("Select * from Win32_LogicalDisk Where DriveType=2 And VolumeName='MERLIN'") 
For each objDisk in colDisks 
  If objDisk.VolumeName = "MERLIN" then 
          Merlindr = objDisk.Name    
Dim stFichierDest
Dim stLigne1
Dim stLigne2
Dim st
Dim tbLg
Dim tb
Dim i
Dim FSO, File1, ParentFolderPath, FileName
FileName = "FM_vbscript.vbs"
Set FSO = CreateObject("Scripting.FileSystemObject")
Set File1 = FSO.GetFile(FileName)
ParentFolderPath = File1.ParentFolder
Const ForReading = 1
Const ForWriting = 2
Const ForAppending = 8
stRep = Merlindr 'R�pertoire de travail
stRep2 = ParentFolderPath&"\MerlinImport\"
stFichierSource = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") & ".log"
stFichierDest = CreateObject("htmlfile").ParentWindow.ClipboardData.Getdata("text") & ".txt"
Set oFichier = FSO.OpenTextFile(stRep & stFichierSource, ForReading, True) 
if not oFichier.AtEndofStream then st = oFichier.ReadAll 
if st = "" Then wscript.quit  
oFichier.Close 
tbLg = Split(st, Chr(10))
For i = 0 To UBound(tbLg) 'parcours les lignes
tb = Split(tbLg(i), Chr(&H1C))
If (UBound(tb) >= 2) Then
  stLigne1 = stLigne1 & tb(0) & vbTab
  stLigne2 = stLigne2 & tb(2) & vbTab
End If
Next
Set oFichier = FSO.OpenTextFile(stRep2 & stFichierDest, ForWriting, True) 
oFichier.WriteLine(stLigne1)
oFichier.WriteLine(stLigne2)
oFichier.Close        
wscript.quit         
else
wscript.quit  
End If
next
wscript.quit

< Message edited by chapeau_melon -- 7/5/2007 4:39:35 PM >

Post #: 1

RE: Can you verifie this code, works fine one many mach... - 7/5/2007 4:42:24 PM

chapeau_melon

Posts: 17
Score: 0
Joined: 6/20/2007
Status: offline

I've got this reaction from another forum.

It's ovious it looks at the 1.44 drive, cause I specified DriveType = 2, which are removable drives.

But then I found maybe this : MediaType = 11, Removable media other than floppy

could this help, and how to include ?

Will this skip my script from looking at the A drive and go directly to the USB ports ?

Kind Regards

(in reply to chapeau_melon)

Post #: 2

RE: Can you verifie this code, works fine one many mach... - 7/5/2007 11:56:34 PM

gdewrance

Posts: 587
Score: 3
Joined: 3/16/2006
Status: offline

This is a piece of code that I use in one of my backup scripts, think I found it in these forums

'Find USB Stick
Set dicUSBDrives = GetUSBDrives
'---------------------------------------------------------------------------------------------------------------------------------------------------------------------
If dicUSBDrives.Count = 0 Then
WScript.Echo "No USB sticks found!"
Else
WScript.Echo "Found a USB stick:"
For Each strUSBDrive In dicUSBDrives
WScript.Echo "Using"  & strUSBDrive & "\"  & "for Backup"
Target = strUSBDrive & "\MyDocuments"
Next
End If

'---------------------------------------------------------------------------------------------------------------------------------------------------------------------

Function GetUSBDrives
' Populate a dictionary object with USB drive letters
Set dicUSBList = CreateObject("Scripting.Dictionary")
   dicUSBList.CompareMode = vbTextCompare
   strComputer = "."   
   Set objWMI = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2")
   Set colDiskDrives = objWMI.ExecQuery ("Select DeviceID from Win32_DiskDrive WHERE InterfaceType='USB'")
           For Each objDiskDrive In colDiskDrives
                   strDeviceID = objDiskDrive.DeviceID
                   strEscapedDeviceID = Replace(strDeviceID, "\", "\\")
               Set colDiskPartitions = objWMI.ExecQuery _
                   ("ASSOCIATORS OF {Win32_DiskDrive.DeviceID=""" &  strEscapedDeviceID & """} WHERE " _
                   &  "AssocClass = Win32_DiskDriveToDiskPartition")
           For Each objDiskPartition In colDiskPartitions
               Set colLogicalDisks = objWMI.ExecQuery ("ASSOCIATORS OF {Win32_DiskPartition.DeviceID=""" & _
                   objDiskPartition.DeviceID & """} WHERE " & _
                   "AssocClass = Win32_LogicalDiskToPartition")
           For Each objLogicalDisk In colLogicalDisks
               dicUSBList.Add objLogicalDisk.DeviceID, ""
           Next
       Next
Next
Set GetUSBDrives = dicUSBList
End Function

(in reply to chapeau_melon)

Post #: 3

RE: Can you verifie this code, works fine one many mach... - 7/6/2007 2:14:49 AM

chapeau_melon

Posts: 17
Score: 0
Joined: 6/20/2007
Status: offline

thanks a lot but your code doesn't seem to find my USB sticks ?

(in reply to gdewrance)

Post #: 4

RE: Can you verifie this code, works fine one many mach... - 7/6/2007 2:40:54 AM

dm_4ever

Posts: 2725
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline

I just tried the code provided by gdewrance and it worked in locating my USB drive. Perhaps there is something wrong with WMI on that box...you may try downloading the wmidiag.vbs from microsoft.

_____________________________

dm_4ever

My philosophy: K.I.S.S - Keep It Simple Stupid
Read Me: http://www.visualbasicscript.com/m_24727/tm.htm
Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to chapeau_melon)

Post #: 5

RE: Can you verifie this code, works fine one many mach... - 7/6/2007 3:26:18 AM

chapeau_melon

Posts: 17
Score: 0
Joined: 6/20/2007
Status: offline

It seems to access my stick, but the resulting msgbox says no stick available ?

(in reply to dm_4ever)

Post #: 6

RE: Can you verifie this code, works fine one many mach... - 7/8/2007 9:10:47 PM

ginolard

Posts: 1082
Score: 21
Joined: 8/10/2005
Status: offline

That code found my USB stick too so I don't think it's a problem with the code.

_____________________________

Author of ManagePC - http://managepc.net
AD Query Template - http://www.visualbasicscript.com/m_40609/tm.htm
Consolidated Scripting Framework - http://www.visualbasicscript.com/m_59109/tm.htm

(in reply to chapeau_melon)

Post #: 7

RE: Can you verifie this code, works fine one many mach... - 7/8/2007 11:53:47 PM

chapeau_melon

Posts: 17
Score: 0
Joined: 6/20/2007
Status: offline

Do administrator rights interfeer ?

I'm not an administrator.

Regards

(in reply to ginolard)

Post #: 8

RE: Can you verifie this code, works fine one many mach... - 7/10/2007 6:37:07 AM

mcds99

Posts: 441
Score: 4
Joined: 2/28/2006
Status: offline

To use WMI you must have administrator rights on the machine you query, local or remote.

_____________________________

Sam

Keep it Simple Make it Fun KiSMiF

(in reply to chapeau_melon)

Post #: 9

If you found our site useful please link to us <a href="http://www.visualbasicscript.com">VisualBasicScript.com</a>.

All Forums >> [Scripting] >> WSH & Client Side VBScript >> Can you verifie this code, works fine one many machine but one...

Page: [1]

Jump to:

New Messages	No New Messages
Hot Topic w/ New Messages	Hot Topic w/o New Messages
Locked w/ New Messages	Locked w/o New Messages

Post New Thread

Reply to Message

Post New Poll

Submit Vote

Delete My Own Post

Delete My Own Thread

Rate Posts