gunsmokingman

It A Vbs Script, Saves the script as AllUserClean.vbs Then add this to your cleanup.cmd start wscript.exe YOUR-PATH-TO-THE-SCRIPT\AllUserClean.vbs

Here try this code I have just shorten the names of the shortscuts This was done quickly, and I cannot test it. Green Color Text Can Be Removed From Script Orange Color Text Is Just A Popup I Used To Test The script Can be removed from script Red Color Text Are Error Popup Messages Can Be Removed From Script

The Top One Is The Script The Bottom Script Is To test The top Script. You would only need the top script.

I am not a script writer, but I came up with this script, It only limitation so far is the amount loops I have it set at = 5. It is set for text files in this script, but change the extention name to suit your needs Test this from this location F:\Documents and Settings\Gunsmokingman\Desktop Looking For This Location C:\Temp1 Red Is The File It Looking For With Wild Card Blue Are Some Varibles For Location File Name Purple Is A Counter That I Added To Count The loops And Quit Green Is The New Name Change to Suit Your needs EG (FPath & "\EG 181_50.jpg") Orange The Number Of Files If You Have 50 files then set the Number to 50 Change this Fso.CopyFile to Fso.MoveFile if you only want one file left if it left as copy it will leave the original plus new name in the folder. Re Edit Code

Why not try this, since the Runonce is start from the cmdlines.txt I suggest this because at this point of the install it still has to reboot so why not take advantage of that fact.

Got Mine Today, Now The Real Wait Begins.

Here A VBS Script That Will Remove A Folder Called Install On %Systemdrive% Save As DelInstallFolder.vbs Blue Text Can Be Removed To Take Out The No Folder Msgbox Red Text Is The Stuff That get Deleted This Write The Clean Up File Then Deletes The Folder And The FileSave As RmInstall.vbs

Save This As CmdHelp.cmd

Save This As HappyBirthday.vbs The Blue Text Change The Number To Match The Person Age Green Text Is The Messages In The Script

Red Is What You Will Have To Fill In Blue Is A Check To Make Sure You Have A Folder To Copy To Orange The Error Message Green Is The First Checks Script

Here A Vbs Script That Will Remove Files, Shortcuts In These Places. Blue Text Is The Loctions It Checks In Green Text Is Where You Would Put The Files Or Shortcuts In To Delete The Files That Are Listed In There Is What I Used To Test This Script. Here A Script To Test The Above Script.

I wrote that and after reading this post and i did not get It Just ran the script, with no selection box

Here a VBS script That runs the clean up.

Here This Searches For All The WMA Files Then Copy Them To %systemDrive%\MusicTemp To search For Other File Type Change The RED Text To Change The Location Where The Files Goes Change The Green Text Fix A Extra quote I Had in The script

Here Are Two One Long Line Cmd That Make A Basic Ua Work Area For Either A CDROM Install Of The Apps , Or Harddrive Install Of The Apps, After XP Is Installed. CDROM Install Ua Work Area Hard Drive Install Ua Work Area

Resource Hacker Read My Tut And Add Your Own Icons. This Way You Can Add The Icons You Want To Have. You Can Also Change Menus And Dialogs. Example Of The Run Box Change

Here is a VBS script that list the updates installed on the computer It Is a Modified Version of this Hey, Scripting Guy! script. Save As A YOURNAME.vbs This Searches For The Names In The ArrayBlue Text Is The Array Save As A YOURNAME.vbs I Fixed The Error Sorry It Was Just A Extra & In The Script

I Replace Start with The Word Hi

Just Place What You Want To Kill In The Blue Text Area

This Is A Way To Do It In VBS They all check for a folder Named By the date If The folder is not there then it makes the folder named after date If the folder is there then it makes a folder based on time instead. One Line This Line end at Approx 350 in the editor i was using. 2 Lines Using A ArrayThe Longest Line end at Approx 218 in the editor i was using. 3 Lines The Longest Line end at Approx 215 in the editor i was using. 3 Lines Using A ArrayThe Longest Line end at Approx 100 in the editor i was using. 4 Lines The Longest Line end at Approx 95 in the editor i was using. Here Is A One Line Cmd That make The One Line Vbs then Makes The Folder. This Line Of Code is approx 515 long in notepad.exe Redeit of the above I added a Completed message and where the folder will be made. This Line Of Code is approx 595 long in notepad.exe This One The Same As The Above But Now Names The Second Folder UserName And Time this one now deletes the vbs file it makes nowThis Line Of Code is approx 665 long in notepad.exe

Why not use a VBS script like this. This is a example so please no comments on the code, it only a template but it runs. Cut And Paste Below And Save This As BarGraph.vbs Dim WS : Set Ws = Wscript FUNCTION SL375 WS.Sleep 375 End Function '''' Graphic Varibles For The Script Start Pm1 = " »Processing" Pm2 = "<Table BGCOLOR=Green Width=""325"" Height=""3"">" set WS = Wscript SPAN1 ="<span style='font-size: 12.0pt;font-family:""Comic Sans MS"";COLOR: Red;font-weight: Bold-Italic'>" SPAN2 ="<span style='font-size: 12.0pt;font-family:""Poor Richard"";COLOR: Green;font-weight: Bold-Italic'>" SPAN3 ="<span style='font-size: 10.0pt;font-family:""Palatino Linotype"";COLOR: #203764;font-weight: Italic'>" SPAN4 ="<span style='font-size: 12.0pt;font-family:""Poor Richard"";COLOR: #686c70;font-weight: Bold-Italic'>" BR = "| " BAR = "| | " BAR2 = BAR & BAR BAR3 = BAR2 & BAR BAR4 = BAR3 & BAR BAR5 = BAR4 & BAR BAR6 = BAR5 & BAR BAR7 = BAR6 & BAR BAR8 = BAR7 & BAR BAR9 = BAR8 & BAR B10 = BAR9 & BAR Function AB01 BR = "| " end Function Function AB02 BAR = "| | " end Function Function AB03 BAR2 = BAR & BAR end Function Function AB03 BAR3 = BAR2 & BAR end Function Function AB04 BAR4 = BAR3 & BAR end Function TBG1 = "<table BGCOLOR=#107620 Height=""4"">" TBG2 = "<table BGCOLOR=#377991 Height=""4"">" TBG3 = "<table BGCOLOR=#2d6f87 Height=""4"" Width=""305"">" Ln2a = "<table BGCOLOR=#e8e4e0 Height=""2"" Width=""305"">" TDC1 = "<TD BGCOLOR=#f7f9fb Width=""295"">" TDC2 = "<TD BGCOLOR=#f0ece7 Width=""305"" Height=""6""><tr BGCOLOR=#f0ece7 Width=""305"">" Endt = "</table>" Line1 =TBG3 & TDC1 & SPAN4 Ln1a = Ln2a & TDC2 & SPAN3 Line2 =TBG1 & SPAN2 &TDC1 & SPAN1 GLine = "<center>" & Line2 VAR01 = SPAN4 & "Gsm Bar Graph Template" ABR1 = Array(GLine & Bar,GLine & Bar & "|",GLine & Bar & "| ",GLine & Bar & "| |") ABR2 = Array(GLine & Bar2,GLine & Bar2 & "|",GLine & Bar2 & "| ",GLine & Bar2 & "| |") ABR3 = Array(GLine & Bar3,GLine & Bar3 & "|",GLine & Bar3 & "| ",GLine & Bar3 & "| |") ABR4 = Array(GLine & Bar4,GLine & Bar4 & "|",GLine & Bar4 & "| ",GLine & Bar4 & "| |") '''' Graphic Varibles For The Script End '''' This Is The Box You See Set BX02 = WScript.CreateObject("InternetExplorer.Application") BX02.Navigate "ABOUT:WWW.BargraphTemplate" BX02.ToolBar = 0 BX02.StatusBar = 0 BX02.Width=455 BX02.Height = 155 BX02.Left = 375 BX02.Top = 125 BX02.Visible = 1 BX02.Document.Body.InnerHTML ="<center>" & Ln1a & "Preparing To Start The Graph" & Endt & "<center>" Ws.sleep 1500 Inta = 1-1 '''' Start The Counter For The loop At Zero Do Inta = Inta + 1 BX02.Document.Body.InnerHTML ="<center>" & Ln1a & MkUa & Endt & "<center>" SL375 BX02.Document.Body.InnerHTML = GLine & Bar & "|</TD> > 4% " & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR1(0) & "|</TD> > 8% " & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR1(1) & "|</TD> > 16% " & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR1(2) & "|</TD> > 24% " & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR1(3) & "|</TD> > 32% " & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR2(0) & "|</TD> > 40%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR2(1) & "|</TD> > 48%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR2(2) & "|</TD> > 54%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR2(3) & "|</TD> > 64%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR3(0) & "|</TD> > 72%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR3(1) & "|</TD> > 80%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR3(2) & "|</TD> > 86%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR3(3) & "|</TD> > 94%" & Pm2 & Var01 SL375 BX02.Document.Body.InnerHTML = ABR3(3) & "|</TD> > 100%" & Pm2 & Var01 SL375 If Inta = 1 Then BX02.Document.Body.InnerHTML = ABR3(3) & "|Start Next Loop = " & Inta & "</TD> > 100%" & Pm2 & Var01 Ws.sleep 1125 End If If Inta = 2 Then BX02.Document.Body.InnerHTML = ABR3(3) & "|This Is The 2nd Loop = " & Inta & "</TD> > 100%" & Pm2 & Var01 Ws.sleep 1125 End If If Inta = 3 Then BX02.Document.Body.InnerHTML = ABR3(3) & "|The Loop Is Finished = " & Inta & "</TD> > 100%" & Pm2 & Var01 Ws.sleep 1125 End If MkUa = "Message Varible Here" SL375 Loop Until Inta = 3 BX02.Document.Body.InnerHTML ="<center>" & Ln1a & MkUa & Endt & "<center>" &_ "<center>" & Ln1a & "Completed Bar Graph Template" & Endt & "<center>" WS.Sleep 3225 BX02.Quit

That A Nice Script I Used It In This Hta That I Made, Of It ChangeUserInfo.exe

Here is a 1 line Vbs script that deletes a file called test.vbs if the test.vbs is not there then it will say missing file it a long line of code Green is the file you can change it to txt, cmd or what ever Tested This Script From My Desktop And It was checking System drive That Is why the File Name Looks Like this "\Test.vbs" This lines runs from 0 - 192 in Notepad This Is the same code In 2 LinesThe Longest Line runs from 0 - 113 in Notepad This Is The Biggest at 7 lines it reports the file been deleted or if it missing The Longest Line runs from 0 - 98 in Notepad

I Have Changed A Couple Of Things So The Cmd Windows Is Smaller and the Background Is White And Green Text, Sorry If the Name Is Wrong But Using ö caused a wierd symbol to appear. I have it so it closes in about 4 seconds. The letters are now Capitals. Thanks Nice code @echo off && Mode 55,3 && Color f2 && Title Script By Yzowl for %%a in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do ( fsutil fsinfo drivetype %%a:|find "CD-ROM">nul 2>&1&&echo.&&echo Your Cd Is -^> %%a:\ ) ping -n 4 127.0.0.1>nul&goto :eof

I found this code on Microsoft this does not need a check file and will list the Cd Drive Just For Drive Letter This One I Made Based On The Above Script It Checks To See If XP Is In The CDROM Blue Is The Part Of The Script That Checks To See If A XP In The CDROM Green Is The Cd Varible And File It Checks For