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?