Jump to content

mls15000

Member
  • Posts

    49
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

Everything posted by mls15000

  1. Change your source path in your sysprep.ini file from c:\sysprep\i386 to c:\windows\source\i386
  2. You probably can't use the shell, but can make a batch file that calls something like this: winnt32 /makelocalsource /tempdrive:C: /syspart:C: /s:%SetupFiles% /unattend:%AnswerFile% And have the batch file to give a choice option on which sif file to use.
  3. How did you get the explorer shell to work?
  4. I never had to install a nic driver in vpc. I was told that during my training sessions with MS that VPC doesnt use drivers, it's all virtual, which makes testing unattended setups difficult if you want to test a driver installs.
  5. virtual PC doesn't use drivers. It just uses a virtual driver to connect through the main OS. You can specify in the virtual pc settings which nic you want to connect through.
  6. I have considered pre-staging, but management might now want to deploy with SMS or another tool. So i am keeping my options open in case I cant pre-stage. Well, after changing all the subnet entries, it no longer works again.
  7. Oh, i had those numbers comfused with the subnet mask (255.255.255.0=9) I was also playing with some code from MS and it loks like i may be missing something when it's getting the ip. from them: strComputer = "." Set objWMIService = GetObject( _ "winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery _ ("Select IPAddress from Win32_NetworkAdapterConfiguration ") For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then For i=LBound(IPConfig.IPAddress) _ to UBound(IPConfig.IPAddress) WScript.Echo IPConfig.IPAddress(i) Next End If Next I dont have the For i=.......on, which I think I need if i am comparing (IPConfig.IPAddress(i) right? edit: it worked on my test box, but still have a question about this. if I have subnet 10.2.162 and another one is 10.2.163, both are an 8 count. Will is still know what 3 letter site to assign, or will it just grab the first 8 count suubet? I am so confused
  8. Well tried it in a working enviroment, and will not set the name. It does find the serial number, but when it echos the new name, its blank. Here is a chink of the code, am i missing something? 'Local Computer strComputer = "." 'Change next lines for relevant subnets AMSsubnet = "10.2.144" ATLsubnet = "10.2.20" BARsubnet = "10.2.145" BEIsubnet = "10.2.228" BERsubnet = "10.2.146" BRUsubnet = "10.2.147" CRPsubnet = "129.9.11" Set shell = CreateObject("WScript.Shell") Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled=TRUE") Set sh = CreateObject("WScript.Shell") Dim colSettingsComp : Set colSettings = objWMIService.ExecQuery("Select * from Win32_ComputerSystem") Dim colSettingsBios : Set colSettingsBios = objWMIService.ExecQuery("Select * from Win32_BIOS") Dim objComputer, strSerial 'Uncomment next three lines if you want Computer Model 'For Each objComputer in colSettings ' strModel = objComputer.Model 'Next For Each objComputer in colSettingsBios strSerial = objComputer.SerialNumber Next 'next line to display Computer serial number if found - test purposes only wscript.echo strSerial 'test which subnet computer IP matches then append site code to beginning of serial number For Each IPConfig in IPConfigSet If Not IsNull(IPConfig.IPAddress) Then 'Change the number 9 on line below to match the total number of characters in your subnet - dont include the zero example is 255.255.255.0 if AMSsubnet = LEFT(IPConfig.IPAddress(i),9) then CompName = "AMS" + strSerial Elseif ATLsubnet = LEFT(IPConfig.IPAddress(i),9) then CompName = "ATL" + strSerial Elseif BARsubnet = LEFT(IPConfig.IPAddress(i),9) then CompName = "BAR" + strSerial Elseif BEIsubnet = LEFT(IPConfig.IPAddress(i),9) then CompName = "BEI" + strSerial Elseif BERsubnet = LEFT(IPConfig.IPAddress(i),9) then CompName = "BER" + strSerial Elseif BRUsubnet = LEFT(IPConfig.IPAddress(i),9) then CompName = "BRU" + strSerial Elseif CRPsubnet = LEFT(IPConfig.IPAddress(i),9) then CompName = "CRP" + strSerial end if End If Next 'Change computer name to new one - change wont ask for reboot Shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", CompName Shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", CompName
  9. Fro the old broadcom I use: b57xp32.cat, b57xp32.inf and b57xp32.sys ver 5.30.0.0 The new broadcom netxtreme: ver 7.97.0.0 b57win32.cat , *.inf, *.pnf b57xp32.sys Intel Pro1000 ver 7.2.17.101 e1000325.cat e1000325.din e1000325.inf e1000325.sys e1000msg.dll intelnic.dll Misc intel folder: e1e5032.di_ E1e5032.SY_ e1e5132.cat e1e5132.di_ e1e5132.inf E1e5132.sy_ e100a325.inf e100ant5.inf e100b325.cat e100b325.di_ e100b325.inf e100b325.sy_ e100bmsg.dl_ e100bnt5.di_ e100bnt5.sy_ e1000msg.dl_ e1000nt5.di_ E1000NT5.SY_ e1000325.cat e1000325.di_ e1000325.inf E1000325.sy_ EtCoInst.dl_ intelnic.dl_ ixgb325.cat ixgb325.di_ ixgb325.inf ixgb325.sy_ ixgb3251.di_ ixgb3251.sy_ ixgbmsg.dl_ Ncs2Setp.dl_ PROUnstl.ex_ Hope this helps some.
  10. DLL was registered. Once i added this line to the form section, it worked for me. $Form = CreateObject("Kixtart.Form")
  11. I tried posting the drivers, but it wont let me. Something about my global limit. I just used standard XP drivers and put the inf, cat sys and dll needed files in 1 folder per driver. If you read the driver's inf file, it will tell yo uwhat files you need, the rest you can chuck away (most of the time).
  12. Because I am using an OEM "Master Install" Product key for the unattended install, then after everything is installed and configured, I'm using sysprep to strip the master install product key as well as the generic Machine name, so that the machine will be properly named and key'd and joined on the domain. There may be another way to do this, but this is what I've come up with so far.. I'm open to suggestions though... <{POST_SNAPBACK}> Makes sense now. You could script the name change and joinin domain part. I'm not sure on the key part, but i'm sure there is a way to do it. Might save you some steps.
  13. Yes these machines are going into an AD enviroment. I use a unattended ris image, then a bunch scripts and batch files call up reg mods, tweaks, and common apps. Then machine renames, reboots, autologon one more time, join domain, reboot and ready for end user. Group policy would then push out any individual requested apps.
  14. I don't understand your plan here. Why would you do an unattended install, then sysprep it? Just seems like doing double steps.
  15. I just added new broadcom gigabit drivers to my bart pe image to work with our new IBM desktops. After I added the driver, my old dell d400 will not grab an IP address until I renew it it and leave the configuration window open. The dell has a broadcom nic also, but something with the updated driver freakes it out. My old disks work great with intel pro 1000, old broadcom, intil pro 100, and a dlink driver. I use the old images on virtual PC all the time and it's really fast. no lag at all. I use xpsp2 for the source disk, if that makes a difference. The only pluins I use are the RpcSS so i an use diskpart, I have ghost8, adaware, a3 filemanagement and i think thats it.
  16. Yes, all my subnet masks are 255.255.255.0 I tested with a virtual machine and after a little tweaking, it seems like it will do the trick. Was getting error on these lines WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", CompName WSHShell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", CompName I added this to the beginning of the script Set shell = CreateObject("WScript.Shell") Then changed the trouble lines to Shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName\ComputerName", CompName Shell.RegWrite "HKLM\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname", CompName Scrit now runs fine and sets the computername, (in a virtual world). Now have to add about 30 different subnets to the code and test some of my sites! Do I need to adjust this for my different subnets if they are all the same subnet mask? 'Change the number 9 on line below to match the total number of characters in your subnet - dont include the zero example is 255.255.255.0 if AMSsubnet = LEFT(IPConfig.IPAddress(i),9) then I really appreciate your help. Was originally going to use a script I tweaked that queried the MAC address and had it reference a txt file for the correct computer name.
  17. My script doesn't run for crap. I tried combining pieces of scripts but did not work. I am a more of a hardware guy, not scripting. Just started playin a few days ago. I will try your script and let you know what happens. Thanks for your help! Mike
  18. I am trying toi write a vb script that will check the machines current subnet and serial number, once it has discovered its subnet, check for a 3 letter code assigned to that subnet. Then take that 3 letter code and prefix it to the serial number and rename the computer with that name. I really suck at VB and can't figure it out. I found a script that uses wsname to rename a computer, but dont know how to refence a text file with the subnet litings. here is the wsname code: if Not GetWMIStuff("Win32_BIOS","SerialNumber",strSerialNumber) then WScript.Echo "ERROR, Could not retrieve serial number" WScript.Quit(1) end if ' --- If we got this far then we have the site and serial number, if you want to see it ' --- uncomment the next line WScript.Echo "The raw serial number is" & strSerialNumber ' --- Add leading Alpha characters to avoid DNS confusion strSerialNumber= "site" & strSerialNumber ' --- Build Command Line, to check out the command line uncomment strCommandLine = PATH_TO_WSNAME & " /N:" & strSerialNumber & " " & WSNAME_PARAMETERS WScript.Echo "About to run the following command:" & vbCRLF & vbCRLF & strCommandLine ' --- Now call WSName with the serial number Call WshShell.Run(strCommandLine,1,FALSE) ' --- Game Over! ' ---------------------- Helper Functions ---------------------- Function GetWMIStuff(strInstance,strProperty,strResult) Dim colWMIStuff, objWMI, propWMI GetWMIStuff=False Set colWMIStuff= GetObject("winmgmts:").InstancesOf(strInstance) For Each objWMI In colWMIStuff For each propWMI in objWMI.Properties_ If (Not IsNull(propWMI.Value) AND Uelse(propWMI.Name) = Uelse(strProperty)) Then strResult=propWMI.Value GetWMIStuff=True Exit Function End If Tried to add this into the mix,but no luck: subnet subnett = subnet If subnett = "10.2.144" then site = "AMS" elseif subnett = "10.2.20" then site = "ATL" end if
  19. I tried this but got an error on line 10. I think line 10 is $Form.BackColor = 212,208,200 if I counted right. Is there a certain version of the kixforms.dll I need to use? Thanks
  20. yes it is posible. You need to have a d drive first and has to be formatted. Run diskpart first to create your partitions and drive letters, then format the drives, then run your install.
  21. I have IBM coming here tomorrow for a demo. Looks promising.
  22. Martin, Would like to see what you have too. I am starting a roll out and your idea would sve me tons of extra work. Mike
×
×
  • Create New...