Re: Converting Filesystem trough VBScript not working

[Guest http://books.google.com/books?id]

On 15 Wrz, 13:54, "http://books.google.com/books?

id=ifqnAAAACAAJ&dq=inauthor:%22Russ+Manning

%22&lr=&as_brr=0&rview=1&source=gbs_book_other_versions_r&cad=2"

wrote:

> On 15 Wrz, 09:43, shatztal wrote:

>

>

>

> > thanks again i will post there

> > by the way i don't get any erros on the CMD line just that is does not run

>

> > "Pegasus [MVP]" wrote:

>

> > > "shatztal" wrote in message

> > >news:5084E647-4A4D-4E2D-93E2-554D69585A29@microsoft.com...

> > > > The Script is in VBscript an should check if the filesystem is not NTFS,

> > > > if

> > > > not it should convert it. this is what i have but the convert command does

> > > > not work .

>

> > > > On Error Resume Next

> > > > strComputer = "."

> > > > Set objWMIService = GetObject("winmgmts:" & strComputer & "rootcimv2")

> > > > Set objWMIService2 = GetObject("winmgmts:" &

> > > > "{impersonationLevel=impersonate,(Shutdown)}!" & _

> > > >      strComputer & "rootcimv2")

> > > > Set colItems = objWMIService.ExecQuery("Select * from Win32_LogicalDisk

> > > > where drivetype ='3'",,48)

> > > > Set colOperatingSystems = objWMIService2.ExecQuery("Select * from

> > > > Win32_OperatingSystem")

> > > > Set WShell = WScript.CreateObject("Wscript.Shell")

>

> > > > wscript.Echo "We Are making now changes"

>

> > > > for each objItem in colItems

> > > >   ' set objItem = colItems.item(0)

> > > > FS = objItem.Filesystem

> > > > if FS = "NTFS" then

> > > > msgbox "????? ???? ?????? ????"

> > > > else

> > > > Wscript.Echo "Non NTFS Files"

> > > > WShell.run "cmd.exe /k |echo y |convert c: /FS:NTFS /X"

> > > > msgbox "????? ????? ?????? ???? ????? ??????"

> > > > counter = 15

> > > > do while counter > 0

> > > > Wscript.echo counter

> > > > wscript.sleep 1000

> > > > counter = counter -1

> > > > loop

> > > > msgbox "????? ???? ?????"

> > > > For Each objOperatingSystem in colOperatingSystems

> > > > objOperatingSystem.Reboot()

> > > > Next

> > > > end if

> > > > next

>

> > > Some comments about your post:

> > > - You should report what happens and what you see when you run the script.

> > > - Having the statement "On error resume next" on top of the code is not a

> > > good idea. It prevents you from seeing errors that might occur.

> > > - The line

> > >   WShell.run "cmd.exe /k |echo y |convert c: /FS:NTFS /X"

> > >   should probably read

> > >   WShell.run "cmd.exe /k |echo y |convert " & objItem.DeviceID & " /FS:NTFS

> > > /X"

> > > - This is a Windows XP newsgroup. For involved scripts like this one, you

> > > should post in a VB Scripting newsgroup.