Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations derfloh on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
-
Running .bat files within .bat file
Why dont you do like this.. A third bat file named batch3.bat start /min \\computername\searchstring\batch1.bat start /min \\computername\searchstring\batch2.bat You colud insted of /min use /max or /wait etx.. -
Get uniqe ID to use in next table
...Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=inventcon;" objRS.CursorLocation = 3 objRS.Open "SELECT * FROM inventTB" , objConn, 3, 3 Function WMIDateStringToDate(utcDate) WMIDateStringToDate = CDate(Mid(utcDate, 5, 2) & "/" & _ Mid(utcDate, 7, 2) & "/" & _... -
Get uniqe ID to use in next table
...Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=inventcon;" objRS.CursorLocation = 3 objRS.Open "SELECT * FROM inventTB" , objConn, 3, 3 Const HKEY_LOCAL_MACHINE = &H80000002 Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set... -
Get uniqe ID to use in next table
...Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=inventcon;" objRS.CursorLocation = 3 objRS.Open "SELECT * FROM inventTB" , objConn, 3, 3 Const HKEY_LOCAL_MACHINE = &H80000002 Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set... -
Get uniqe ID to use in next table
...Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=inventcon;" objRS.CursorLocation = 3 objRS.Open "SELECT * FROM inventTB" , objConn, 3, 3 Const HKEY_LOCAL_MACHINE = &H80000002 Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set... -
Get uniqe ID to use in next table
Super PHV! But.. there is always a but.. How do i update values in table inventTB and inventNIC rather then inserting new if i run the script two, tree or even more times. I dont want a new row in inventTB or inventNIC everytime i am running the script just updating the values when... -
Get uniqe ID to use in next table
...compIDnr = objRS("compID") objRS.close Set objRS = CreateObject("ADODB.Recordset") objRS.Open "SELECT * FROM inventNIC" , objConn, 3, 3 Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE... -
Get uniqe ID to use in next table
I tryed your suggestion but i'm getting an error on line 76: error: Invalid column name 'My computername' code: 80040E14 Any ide? -
Get uniqe ID to use in next table
...Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=inventcon;" objRS.CursorLocation = 3 objRS.Open "SELECT * FROM inventTB" , objConn, 3, 3 Const HKEY_LOCAL_MACHINE = &H80000002 Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set... -
Either BOF or EOF is True
...Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=inventcon;" objRS.CursorLocation = 3 objRS.Open "SELECT * FROM inventTB" , objConn, 3, 3 Const HKEY_LOCAL_MACHINE = &H80000002 Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set... -
Either BOF or EOF is True
...Set objRS = CreateObject("ADODB.Recordset") objConn.Open "DSN=inventcon;" objRS.CursorLocation = 3 objRS.Open "SELECT * FROM inventTB" , objConn, 3, 3 Const HKEY_LOCAL_MACHINE = &H80000002 Const UnInstPath = "SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall\" Set... -
Get Mac and IP address from 98 client
i found that the script didnt get the computername right for win 98 machines. So insted of this: strComputer = env.Item("Computername") i used this: Set objNetwork = CreateObject("WScript.Network") strComputer = objNetwork.ComputerName -
Overwrite textfile
simple... but still, out of my lead.. Thanks tsuji! -
Get Mac and IP address from 98 client
...& ".\root\default:StdRegProv") report = strComputer & " Computer Inventory" & vbCrLf & "******************************************" & vbCrLf & vbCrLf Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2") Set colItems = objWMIService.ExecQuery("Select * from... -
Get Mac and IP address from 98 client
...something that you can query in win 98. So how do you get the info from a win 98 machine. Set colAdapters = objWMIService.ExecQuery("SELECT * FROM Win32_NetworkAdapterConfiguration WHERE IPEnabled = True") n = 1 For Each objAdapter in colAdapters report = report &... -
Overwrite textfile
How can i overwrite a txt file if it exist and create the txt file if it dosent exist, i have tried the code below but with no luck. Set fso = CreateObject("Scripting.FileSystemObject") Set objFSO = CreateObject("Scripting.FileSystemObject") If objFSO.FolderExists("C:\Data\SCRIPTS\") Then... -
Display message, msgBox...
I followed your link PHV and it solved my problem. Thanks! -
Display message, msgBox...
How do i display a message, like the msgBox, that closes after 10 sec if thers no user interaction so that the rest of the script is processed. A vb/batch combo that maybe explain my needs Call MsgBox ("Hello world!") -timeout /T 10 -
Copy file from cd to local folder
humm, found a solution to the prob... Dim strAstart Const ALL_USERS_STARTUP = &H18& Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.Namespace(ALL_USERS_STARTUP) Set objFolderItem = objFolder.Self strAstart = objFolderItem.Path Const OverwriteExisting = TRUE Set... -
Copy file from cd to local folder
by the way, i'm getting "Can't find the path specified" or "There is a dublicate name on the network, go to the control panel and change your computer name" It's only one comp on my test network and there is no conflict...
