Jump to content

IcemanND

Patron
  • Posts

    3,252
  • Joined

  • Last visited

  • Donations

    0.00 USD 
  • Country

    United States

Everything posted by IcemanND

  1. did you verify that '%systemdrive%\install\' exists?
  2. why not use robocopy? it's free and pretty fast. I'm not sure how it is you want you backup software to support shadow copy.
  3. don't have to take them apart to see the insides of Raptors anymore: http://www.wdraptorx.com/en/photos/
  4. You can use any valid drive letter. And that is the drive it will be put on. If it does not exist you will get errors at boot up that you are using temporary profiles and whatnot and none of you settings will be saved for the user.
  5. yes it is possible. add to your winnt.sif file [GuiUnattended] ProfilesDir=”d:\documents and settings” If the drive letter changes for some reason I don't think you could dynamically check this during the install, it would have to be a fixed drive letter. Also the drive needs to be formated, not blacnk, just able to be written to before T-12 in setup.
  6. alot of the the laptop drives seem to be made of glass or plastic or something like it. They shatter when bent. Makes a real big mess, they almost explode when bent
  7. depends upon manufacturer. they are usually aluminum or an aluminum alloy coated by some form of oxide.
  8. How about this: dim oShell Dim oAppl Set oAppl = createObject("shell.application") Set oShell = CreateObject("wscript.shell") oAppl.trayproperties WScript.Sleep(2000) oShell.SendKeys"%{q}" 'Toggles Show quick launch oShell.Sendkeys"%{l}" 'Toggles Lock the taskbar oShell.SendKeys"{ENTER}" Set oShell=Nothing Set oAppl=Nothing
  9. they will oxize after awhile. just put some car or furniture wax on them, won't stop it but it will slow it down even further.
  10. if you just want the individual platter just remove the ring going around the hub and lift them out, take out the heads first. If you want them attached to the spindle it depends uon the manufacturer how or if you can get it out. I've taken a coupe hundred drives apart over the years. Then take the bodies in for recycling and sell the platters to people for various different projects. Hot Wheels car collecters love em for display stand bases.
  11. Nothing is misspelled that I see. Post your entire modified code adn we can make sure there isn't something else wierd going on.
  12. This is the drive and path to the folder containing your spreadsheets Yes, path and name of your database Not exactly: INSERT INTO {Table Name in database to put data in} ({Table Field 1}, {Table Field 2}, ...}) Values ({Value for Field 1}, {Value for Field 2}, ...) You'll still have to add code to get the values from each spreadsheet and then reference either those cells or associated variables in the Values section of the asql statement. Yes, more to it. Not a problem at least your making the attempt to understand it and do it unlike some postings of the past. This should get you values of cells in a spreadsheet: Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open ("C:\Scripts\New_users.xls") Wscript.Echo "CN: " & objExcel.Cells(2, 1).Value Wscript.Echo "sAMAccountName: " & objExcel.Cells(2, 2).Value Wscript.Echo "GivenName: " & objExcel.Cells(4, 3).Value Wscript.Echo "LastName: " & objExcel.Cells(6, 4).Value objExcel.Quit Not Really realistic for the data being collected in this case but it should give you an idea. So the completed script would look something like this: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\scripting\\test\\' AND Drive = 'C:' AND Extension = 'xls'") set objConnection = CreateObject("ADODB.Connection") objConnection.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = 'c:\scripting\test\test.mdb'" Set objExcel = CreateObject("Excel.Application") for each objFile in colFiles Set objWorkbook = objExcel.Workbooks.Open (objFile.Name) sqlQuery = "INSERT INTO Main ( [name], [address], [city], [state], [zip], [phone], [date]) Values _ ( '" & objExcel.Cells(2, 1).Value & "', '" & objExcel.Cells(2, 2).Value & "', '" _ & objExcel.Cells(2, 3).Value & "', '" & objExcel.Cells(2, 4).Value & "', " _ & objExcel.Cells(2, 5).Value & ", '" & objExcel.Cells(2, 6).Value & "', #" _ & objExcel.Cells(2, 7).Value & "# );" objconnection.execute sqlQuery objExcel.quit next msgbox "finished" So you'll need to change the paths and drives, the database name, database table name, field names, and the cell references for your spreadsheets and you should be good to go. Note that in the sql statement the date field is a date/time value in my database so it is surrounded by pound signs (#) and the strings are surrounded by single quotes (') and numbers have no formatting delimiters (zip in my example).
  13. built in windows xp command: shutdown -r
  14. Looks promising. Thanks.
  15. strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colFiles = objWMIService.ExecQuery("SELECT * FROM CIM_DataFile WHERE Path = '\\Scripting\\test\\' AND Drive = 'C:' AND Extension = 'xls'") for each objFile in colFiles MSGBOX objFile.Name next Replace the 'MSGBOX objFile.Name' with you code for getting the data from each of the spreadsheets and posting it to the database. You'll also need to replace \\scripting\test\\ with the path to your spreadsheets. Be sure to double all of the backslashes or it won't work. As far as how you hold the data it doesn't really matter. You could even use the direct references to the cells in the sql statement if desired. Another option I just thought of is that you could just link the access database to the spreadsheets. Don't ask me how, I've never actually done it but my boss does it all the time. So it is possible. This way anytime a spreadsheet changed the database would change.b
  16. Shameless bumb. It appears I'm always trying something no one knows about.
  17. everything you need is already on your machine for the sql stuff. Do you need to parse the files in a certain order or is any order ok? Yes it makes a big difference.
  18. I have a windows 2000 server with a shared folder structure. It used local groups that contained domain user accounts to give permissions to the various sub-folders in the share. We have recreated the groups (albiet with different names to match existing naming conventions) in our domain. What I need to do now is add or replace the old group name on the server with the new group name. So far I have not had any luck finding a solution. a script, app anything, even if all it did was give me the folder name and the groups and their associated permissions would work I can get the other way from their. Adding the users is easy but I've yet to find a way to get the information. All this so I can move it to a 2003 server and then in an unspecified length of time to a netstorage device. Any help suggestions appreciated. Thanks
  19. I'm thinking you have a few too many, but that depends upon what you are installing with your OS. I have 52, but I only instll the updates which have the /integrate switch in them and leave the rest to the system owner or windows updates. It only leaves behind the MSRT, and the recommended updates like MP10, .net
  20. you may need to reregister some dll's, though I couldn't tell you which ones. when this would happen on win 98 boxes you could reinstall IE and it would reinstall OLE. Maybe hunt for OLE reinstall/repair.
  21. Here is what is on my system, same as my other two test systems
  22. To get you started here's some code to insert data into a table named 'Main' in a Access database at 'c:\db1.mbd'. the myname.value, mydate.value in this case were being pulled from a web form, but are just the variables containing the data you wish to insert. if not isDate(mydate.value) then msgbox "Start Date is invalid", vbOKonly, "Invalid Date" exit sub end if set objConnection = CreateObject("ADODB.Connection") objConnection.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source = 'c:\db1.mdb'" sqlQuery = "INSERT INTO Main ( [name], [date], [address], [phone]) Values ( '" & myname.value & "', #" & mydate.value & "#, '" & myaddress.value & "', '" & myphone.value & "' );" objconnection.execute sqlQuery How you get your data from the spreadsheet is going to depend upon how you spreadsheet is formatted. Here are three pages with good info for the excel side. http://www.microsoft.com/technet/scriptcen...05/hey0131.mspx http://www.microsoft.com/technet/scriptcen...05/hey1012.mspx http://www.microsoft.com/technet/scriptcen...06/hey0406.mspx
  23. split the screen then freeze then select a cell in the pane you wish to freeze and select freeze pane from the window menu.
  24. If it was me I'd write a vbscript that pulled the info from the spreadsheet and then connected to the access database via a dsnless connections and performed an append query.
  25. You had to make me go find it didn't you...........that's why I use dial-a-fix it runs through regegistering the same dll's as are in the KB articles. but look here: http://support.microsoft.com/?kbid=813444 Re-register the following .dll files: Softpub.dll Wintrust.dll Initpki.dll Dssenh.dll Rsaenh.dll Gpkcsp.dll Sccbase.dll Slbcsp.dll Cryptdlg.dll Normally fixes it for me when I've run into this problem. Good luck
×
×
  • Create New...