S1LV3RF1$#

Thanks to all this is what i came up with from Suggestions and a little surfin' on error resume next Dim strComputer, objWMIService, strmodel, colmodel, objitem strComputer = "." Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & strComputer & "\root\cimv2") Set colmodel = objWMIService.ExecQuery("SELECT * FROM Win32_ComputerSystem") 'Install Model Specfic software / Drivers For Each objitem in colmodel wscript.echo objitem.model Select Case trim(objitem.model) Case "Optiplex GX620" wscript.echo "You are on a Dell 620" 'Install stuff Case "Evo N400c" wscript.echo "You are on a Compaq N400c" Case "Evo N800c" wscript.echo "you are on a Compaq N800c" Case "HP Compaq nc8000 (DH918U#ABA)" wscript.echo "you are on a HP NC8000" Case "HP dc5000 uT (PS666UC)" wscript.echo "you are on a HP DC5000" Case "ClientPro CR" wscript.echo "You are on a Micron" Case "OptiPlex GX240" wscript.echo "You are on a Dell GX240" Case "OptiPlex GX260" wscript.echo "You are on a Dell GX260" Case "OptiPlex GX270" wscript.echo "You are on a Dell GX270" Case "OptiPlex GX280" wscript.echo "You are on a Dell GX280" Case "Latitude X1" wscript.echo "you are on a dell X1" Case "Latitude D610" wscript.echo "You are on a Dell 610" 'Install VPN Client and Configure it Case "Latitude D600" Wscript.echo "you are on a Dell 600" 'Install VPN Client and Configure it Case "Latitude D510" Wscript.echo "you are on a Dell 510" 'Install VPN Client and Configure it Case Else Wscript.echo "Computer Type Unknown" End Select Next

thanks for all the info it will come in handy i just need to find time to intergrate it into my script now.

I am trying to see if there is a way to remove a computer from an OU with a VB Script so that you can just launch it on the system. It will pull the WMI info on the box IE computer name and then wack it from the OU that it Resides in. I have found a way to do this but you have to hard code the OU into the Script is there a way to make it pull what OU it resides in on its own. Thanks Silv3rf1$#

Here Is a VB Script to accomplish this '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' Name: ConfigurePageFile.vbs ' Comments: This script examines curent phyiscal RAM and will ' create a page file twice the size '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Option Explicit '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' Variable Declaration '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ Dim strName, strInitialSize, strMaximumSize, objRtvPageFile, strMsg Dim intRAM, int2XRAM Dim objRAM, objSysSet, objItem Dim valYN Dim PageFileSz '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' Main Body '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' Puts Total MB of Physical RAM into intRAM variable GetTotalRam() ' Puts Page Config into variables PageFileConfig() ' Create Message CreateMsg() ' Twice Physical RAM int2XRAM = intRam * 2 strMsg = strMsg & vbcrlf & "Would you like to set the Page File to "_ & vbcrlf & "2 X Total Physical Memory = " & int2XRAM & "?" & vbcrlf & vbcrlf valYN = MsgBox (strMsg,vbYesNo,"Current Pagefile Settings and Total RAM") If valYN = 6 then ' Set current Page File to be two times RAM setPageFileSz(int2XRAM) strMsg = "Here are your new Page File settings:" & vbcrlf & vbcrlf CreateMsg() MsgBox strMsg,,"Current Pagefile Settings and Total RAM" Else WScript.echo "No Changes have been made." End If ' Exit Script WScript.Quit(0) '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' Sub Procedures and Functions '++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ ' Configure pagefile Function setPageFileSz (PageFileSz) Dim objPageFile, objWMIService, colPageFiles Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\.\root\cimv2") Set colPageFiles = objWMIService.ExecQuery ("Select * from Win32_PageFileSetting") For Each objPageFile in colPageFiles objPageFile.InitialSize = PageFileSz objPageFile.MaximumSize = PageFileSz objPageFile.Put_ Next End Function ' Retrieves Total Phyiscal RAM and Conerts to MB Sub GetTotalRAM() For Each objRAM in GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT TotalPhysicalMemory FROM Win32_ComputerSystem") intRAM = (objRAM.TotalPhysicalMemory / 1024) / 1024 intRAM = FormatNumber(intRAM, 0) + 1 Next End Sub ' Retrieves Page File Name, Initial Size and Maximum Size into str variables Sub PageFileConfig() For Each objRtvPageFile in GetObject("winmgmts:\\.\root\CIMV2").ExecQuery("SELECT Name, InitialSize, MaximumSize FROM Win32_PageFileSetting",,48) strName = objRtvPageFile.Name strInitialSize = objRtvPageFile.InitialSize strMaximumSize = objRtvPageFile.MaximumSize Next End Sub ' Put string together for message Sub CreateMsg() strMsg = strMsg & "Current Location:" & strName & vbcrlf strMsg = strMsg & "InitialSize: " & strInitialSize & vbcrlf strMsg = strMsg & "MaximumSize: " & strMaximumSize & vbcrlf strMsg = strMsg & "Total Physical Memory: " & intRAM & vbcrlf End Sub

Ok so here is the deal I am trying to create a script that after you install Windows it will kick off a VB Script that will poll WMI for the Model of the Machine that you just Installed Windows on (Done with a Runeonce command). Now when the script figures out what it is(Ex. Gx240) then i want it to install The software that was packaged with that specific model (Ex. DVD Sofware, Cd Burning software) and the Drivers for the specific Model. I know that this can be done with "If Then" statements. I was just woundering if this can be accomplished with Less Code then a ton of If then Statements. I will be using this for Dell GX240, 260, 270, 280, 620's and also for HP DC 5000's And eventually for Laptops as well.

You can do it with both Read the Unatteded Guide on this site

The Link Above Works well i use that on my corp loads so that our help desk doesn't get stupid calls on "what do i do with these screens, All i did was click on a mp3 file."

Daemon Tools Rocks Never had an Issue with it.

There are some streams out there where that will not work on but there is a alot of Freeware programs out there that can grab any stream out there and save it to your HDD.

I Coded this page for our domain to access out Vbrick Servers. The only thing that i want it to do now is have the menu ride above the WMP Stream. I haven't had any luck finding a way to do this. Any ideas will be appericated. WMP Applet <html> <head> <style> <!-- #slidemenubar, #slidemenubar2{ position:absolute; border:0px solid black; line-height:20px; } --> </style> </head> <body> <body bgcolor="#3366CC"> <script language="JavaScript1.2"> var slidemenu_height='235px' //specify height of menu (in pixels throughout) var slidemenu_width='140px' //specify width of menu var slidemenu_reveal='25px' //specify amount that menu should protrude initially var slidemenu_top='10px' //specify vertical offset of menu on page var slidemenu_url="menu.htm" //specify path to menu file var ns4=document.layers?1:0 var ie4=document.all var ns6=document.getElementById&&!document.all?1:0 if (ie4||ns6) document.write('<iframe id="slidemenubar2" style="left:'+((parseInt(slidemenu_width)-parseInt(slidemenu_reveal))*-1)+'px; top:'+slidemenu_top+'; width:'+slidemenu_width+'; height:'+slidemenu_height+'" src="'+slidemenu_url+'"></iframe>') else if (ns4){ document.write('<style>\n#slidemenubar{\nwidth:'+slidemenu_width+';}\n<\/style>\n') document.write('<layer id="slidemenubar" left=0 top='+slidemenu_top+' width='+slidemenu_width+' height='+slidemenu_height+' onMouseover="pull()" onMouseout="draw()" src="'+slidemenu_url+'" visibility=hide></layer>') } function regenerate(){ window.location.reload() } function regenerate2(){ if (ns4){ document.slidemenubar.left=((parseInt(slidemenu_width)-parseInt(slidemenu_reveal))*-1) document.slidemenubar.visibility="show" setTimeout("window.onresize=regenerate",400) } } window.onload=regenerate2 rightboundary=0 leftboundary=(parseInt(slidemenu_width)-parseInt(slidemenu_reveal))*-1 if (ie4||ns6){ document.write('</div>') themenu=(ns6)? document.getElementById("slidemenubar2").style : document.all.slidemenubar2.style } else if (ns4){ document.write('</layer>') themenu=document.layers.slidemenubar } function pull(){ if (window.drawit) clearInterval(drawit) pullit=setInterval("pullengine()",10) } function draw(){ clearInterval(pullit) drawit=setInterval("drawengine()",10) } function pullengine(){ if ((ie4||ns6)&&parseInt(themenu.left)<rightboundary) themenu.left=parseInt(themenu.left)+10+"px" else if(ns4&&themenu.left<rightboundary) themenu.left+=10 else if (window.pullit){ themenu.left=0 clearInterval(pullit) } } function drawengine(){ if ((ie4||ns6)&&parseInt(themenu.left)>leftboundary) themenu.left=parseInt(themenu.left)-10+"px" else if(ns4&&themenu.left>leftboundary) themenu.left-=10 else if (window.drawit){ themenu.left=leftboundary clearInterval(drawit) } } </script> <p align="center"> <object classid="clsid:6BF52A52-394A-11D3-B153-00C04F79FAA6" id="wmp" width="100%" height="100%" align="left" > <param name="stretchToFit" value="1"> <param name="URL" value=> <param name="rate" value="1"> <param name="balance" value="0"> <param name="currentPosition" value="0"> <param name="defaultFrame" value> <param name="playCount" value="1"> <param name="autoStart" value="-1"> <param name="currentMarker" value="0"> <param name="invokeURLs" value="-1"> <param name="baseURL" value> <param name="volume" value="50"> <param name="mute" value="0"> <param name="uiMode" value="mini"> <param name="windowlessVideo" value="0"> <param name="enabled" value="-1"> <param name="enableContextMenu" value="-1"> <param name="fullScreen" value="0"> <param name="SAMIStyle" value> <param name="SAMILang" value> <param name="SAMIFilename" value> <param name="captioningID" value> <param name="enableErrorDialogs" value="0"> </object> </p> </body> </html> Menu <html> <head> <meta name="GENERATOR" content="Microsoft FrontPage 6.0"> <style> <!-- body{ background-color:#3366CC } a:hover{ color:red; } --> </style> <title>Menu</title> </head> <body onMouseover="if ((document.all||document.getElementById)&&window.parent.pull) window.parent.pull()" onMouseout="if ((document.all||document.getElementById)&&window.parent.pull) window.parent.draw()" topmargin="5" leftmargin="5" marginwidth="5" marginheight="5" bgcolor="#3366CC"> <td width="9" <p align="center"></p> <table border="0" width="10%" id="table1" height="177"> <tr> <td width="101"><p><font color="#FFFFFF"> <INPUT id=video1 onclick=parent.document.all.wmp.url=document.all.video1.url; TYPE="button" NAME="wmp1" url="vbrtsp://XXX.XXX.XXX.XXX/Warrior" VALUE="" style="border-right:3px double #000000; border-bottom:3px double #000000; font-family: Comic Sans MS; color: #0000CC; width:100; height:40; background-image:url('CNN.jpg')"><br> <font size="1"><br> </font></font><font size="1"> <INPUT id=video2 onclick=parent.document.all.wmp.url=document.all.video2.url; TYPE="button" NAME="wmp2" url="vbrtsp://XXX.XXX.XXX.XXX/CNN&License=CombinedLicensedUser.lic" VALUE="" style="border-right:3px double #000000; border-bottom:3px double #000000; font-family: Comic Sans MS; color: #0000CC; width:100; height:40; background-image:url('CNNHead.jpg')"><br> </font><font color="#FFFFFF"><font size="1"><br> <INPUT id=video4 onclick=parent.document.all.wmp.url=document.all.video4.url; TYPE="button" NAME="wmp4" url="vbrtsp://XXX.XXX.XXX.XXX/MSNBC" value="" style="border-right:3px double #000000; border-bottom:3px double #000000; font-family: Comic Sans MS; color: #0000CC; width:100; height:40; background-image:url('MSNBC.jpg')"><br> <br> </font> <INPUT id=video5 onclick=parent.document.all.wmp.url=document.all.video5.url; TYPE="button" NAME="wmp5" url="vbrtsp://XXX.XXX.XXX.XXX/FoxNews" value="" style="border-right:3px double #000000; border-bottom:3px double #000000; font-family: Comic Sans MS; color: #0000CC; width:100; height:40; background-image:url('FNC.jpg')"></p> <td width="17" align="right"> <img border="0" src="remote.gif" width="16" height="194"></table> </body> </html> With out Stream Playing with a stream playing

We recently started using O2k3 Res Kit and we love it but we ran into one issue there is a deafult setting for Outlook Address book that is not getting set. To fix this issue we need to navigate tools --> Options --> Mail Setup Tab --> View or Change existing directories or address books --> Add --> Additional Address books --> Next --> outlook address book --> next --> Finish... Basically i have been looking for the registry setting for this file or if there is some setting that i am missing in the O2k3 Res Kit. Thanks for any help

I am trying to find out if there is a way to remove the Music/Video/Radio Buttons on the right hand side of Window Media Player 10.

Very Much So

Thanks for the link i think that this will help...

I currently have a batch file and a vbs script along with 2 .exe files that I would like to turn into one file. I was thinking that a .exe would accomplish this. The basis of this is for when my unattended install is complete I would like to ensure that the Event log is cleared, Temp folders are emptied, and the recycling bin is also emptied. I already have all the scripts to do this written but would like to combine the 4 files into a .exe so that I only have one file to call in the script. Any Idea's?

I got confused there sorry i thought that your computer monitor was the primary.

A Little Advice start with the basics then go into the more advanced stuff... make a unattended install then integrate SP2 (test it)... then integrate Hot fixes (test it)... then integrate RunOnce commands for program installs, regsettings, security settings, and much more.

First thing you may have better luck posting this in a different forum area such as windows tips n' tweaks. B) I think what you are trying to do is not totally impossible I know that you can set them manually by opening the application then moving it to the 2nd monitor and closing it for most applications this creates a registry setting that will open it on that monitor from then on unless you pull it back to the primary monitor and close it there. Another thing that you can do is change you 2nd monitor to be your primary monitor and then move the taskbar from being on the TV to the monitor on your desk you can achieve this by unlocking the taskbar and dragging it to where you want it to be then all your applications by default will open on the TV. I remember playing with a program that I think ATI puts out that you assign what Monitor you want the application to be native.

Nilfred do you have a link to this guide i have been looking with no luck. Thanks

Create a Custom Background, let’s say that your resolution is set to 1280x1024 per monitor the make a background that is 2560x1024 and have 1280 be one pic then the other 1280 be the other pic. Set your screen to tile.

Can you have the Manufacturer Link on the Start Menu provide dual functionality, Lets say that if you right click on it, is it possible to have it give you 2 choices instead of just one? The Basic Reason that I would like this is so that users can link to our help page from internal and from external points of our network.

Fly, No problem... I was trying to find that in the documentation the only place I could find it was in a Power Point presentation that my boss wrote and he got that information from a class that he attended he can't remember if it is documented anywhere. I did Find this i doesn't specifically say that you need the /all when running /UI: but it does ::if that makes any sense:: Per USMT.CHM BTW We have been using USMT for about 6-8 months now it is so nice to be able to migrate settings so easily. Our users are ecstatic that we are using it as well.

That is your issue right there, by default USMT only pulls the Current User's Information unless the /All Switch is used that is forcing it to check all accounts and then with /ui:90 it will weed out the accounts over 90 days old.

Fly, Worked for me this is the cmd file that i am running @echo off scanstate D:\%computername% /localonly /v:1 /all /ui:90 /i .\Usmtdef.inf /i .\migsys.inf /i .\sysfiles.inf /i .\migapp.inf /i .\miguser.inf /i .\doim.inf pause

figured that you were... Give me a minute i will play with my USMT see if it works