Bulk import DNS

TheMSsForum.com: The Microsoft Software Forum

The MSS Forum ‹ VBscripts
- Archive
  - Biz
  - MCSE
  - CRM
  - Drivers
  - Framework
  - ADO
  - ASP
  - Compact
  - Forms
  - Dotnet
  - C#
  - VB
  - FontpageGen
  - Excel
  - WorkSheet
  - Exchange
  - Setup
  - Fox
  - Fontpage
  - ASP
  - IIS
  - Entourage
  - Money
  - Messanger
  - PocketPC
  - Powerpoint
  - Project
  - Publisher
  - Excel
  - VB
  - Security
  - Portal
  - Services
  - SQLServerDev
  - SVCS
  - SQLServer
  - VB
  - VC
  - MFC
  - ExcelGen

- Previous
  - 1
    - Remotely change Display Resolution Using script Is there a way to create a script that will do the following?: Create a list of computers that this script will affect. The script would change Resolution from 1024x768 to 800x600 automatically. And I would create another script to change it back. Tag: Bulk import DNS Tag: 200173
  - 2
    - Remotely change Display Resolution Using script Is there a way to create a script that will do the following?: Create a list of computers that this script will affect. The script would change Resolution from 1024x768 to 800x600 automatically. And I would create another script to change it back. Tag: Bulk import DNS Tag: 200172
  - 3
    - Using ADO DB to Manipulate Space Character Filled Strings I'm attempting to use ADO to manipulate data in fixed width text files as shown here: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/f65b4a7c-eb8c-47f1-ba36-16ad8793026d.asp The issue I run into is that the fields which are all spaces or have trailing spaces end up with the spaces as null. Is there a way to force the OLE DB provider to bring them in as space characters? For example, store 2 spaces if the 2 character field is 2 spaces in the fixed width import file. Included below is an excerpt of my script and schema.ini file. I have tried changing the field type to text in the .ini file and obtained the same result. Script: On Error Resume Next ' Assign constants Const adOpenStatic = 3 Const adLockOptimistic = 3 Const adCmdText = &H0001 Const FOR_APPENDING = 8 ' Assign file string variables strPathtoTextFile = "E:\Temp\" strOutputTextFile = "temp.txt" strToHostFile = "ALL_TOHOST.txt" ' Create ADO objects Set objConnection = CreateObject("ADODB.Connection") Set objRecordSet = CreateObject("ADODB.Recordset") ' Create file system object for handling text files Set objFSO = CreateObject("Scripting.FileSystemObject") ' Open output text file Set objTextFile = objFSO.OpenTextFile _ (strPathtoTextFile & strOutputTextFile, FOR_APPENDING, True) Wscript.Echo "Opening OLEDB Connection" ' Open connection for input text file with OLEDB driver objConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & strPathtoTextFile & ";" & _ "Extended Properties=""text;HDR=NO;FMT=FixedLength""" Wscript.Echo "Selecting Records" ' Select records from input file objRecordset.Open "SELECT * FROM " & strToHostFile, _ objConnection, adOpenStatic, adLockOptimistic, adCmdText ' Obtain field count strFieldsCount = objRecordset.Fields.Count ' Build record string and write to file If strFieldsCount > 0 Then Do Until objRecordset.EOF For intLoop = 0 To (strFieldsCount - 1) strRecord = strRecord & objRecordset.Fields.Item(intLoop) Next objTextFile.WriteLine(strRecord) strRecord = "" objRecordset.MoveNext Loop End If objTextFile.Close Wscript.Echo "Script Complete" Schema.ini [ALL_TOHOST.TXT] ColNameHeader = False CharacterSet = ANSI Format=FixedLength Col1=FIELD1 char Width 1 Col2=FIELD2 char Width 2 Col3=FIELD3 char Width 14 Tag: Bulk import DNS Tag: 200171
  - 4
    - Best method to figure out if someone is using cached credentials? Hello, I'm attempting to write a script that will figure out if a user is using cached credentials. What I figured to do is find the logon server, and see if it is the hostname of the PC, or not. if so, they aren't authenticating to a DC; if not, they are using cached credentials. The only problem is this will affect local users, who are obviously authenticating to the PC itself as well. Any way to tell if a user is using cached credentials? Thanks, Matt _____________________________________________ Dim objShell, strRegKey Dim strLogonServer, strComputerName Set objShell = CreateObject("Wscript.Shell") Set objEnvProcess= objShell.Environment("PROCESS") strLogonServer = Right(objEnvProcess.Item("LogonServer"), len(objEnvProcess.Item("LogonServer"))) - 2) strComputerName = objEnvProcess.Item("ComputerName") if strLogonServer = strComputerName then msgbox "logonserver is the same" Else msgbox "You have logged on locally. You may be using cached credentials." End If Tag: Bulk import DNS Tag: 200169
  - 5
    - Excel find row data in every column Hi, What I have already is a vbscript that creates and populates an Excel spreadsheet with multiple columns of data. Now what I require is to take the data from each row in the each column, and search the other columns for this data. It then needs to do the same for the second column, and the third, and so on. So if I have columns of data, the script will take data from row 1, column 1 and check to see if that data is in any other cell. It then needs to tell me which column it is in. Once all the rows from column 1 have been searched for, it then does the same for column 2, column 3, etc. Here is what I have so far: The value y has been set elsewhere and represents the number of columns. y = y - 1 i = 4 t = 1 Do Until t = y 'Set range? Do Until objExcel.Cells(i, t).Value = "" strName = objExcel.Cells(i, t).Value Set objSearch = cols.Find(strName) If objSearch Is Nothing Then Else Msgbox y MsgBox strName & " was found." End If i = i + 1 Loop t = t + 1 Loop I am having difficulty defining the range to search at the moment. Any help would be very much appreciated. Matt Tag: Bulk import DNS Tag: 200167
  - 6
    - paging Richard Mueller... Richard Mueller, please come to the front desk Richard, Sorry to bother you but you have helped me in the past when no one else could. I have a seemingly simple task but am struggling and becoming frustrated. In VBScript (that will later be ported to ASP) I need to do the following: Prompt for AD username (must be SAMAccountName) Display that users current Exchange mailbox size in MB Display the size limit imposed on that users mailbox The size limit is the biggest problem. If the user is NOT using defaults, and a custom limit has been set in AD, this should be easy enough to get. But if the user IS using the default size limit for his mailbox store, I have no idea how to first figure out what policy governs his store, and then read the policy to get the imposed limit. If you have an example of this I would greatly appreciate it. Thank you Tag: Bulk import DNS Tag: 200160
  - 7
    - Query Active Directory Ports we have high security policy in our Data Center and every time installing New Server and then Active directory i have to check that AD ports are opened in the firewall or not is there anyway to query Active Directory opened ports on the remote Server (Parent DC). Thanks Tag: Bulk import DNS Tag: 200157
  - 8
    - Vbs for WM2005 Hello i want to know if vbs exist for PocketPC ? Beacause i need to find a onboard laguage for both 2000/XP/VISTA and WM2003/2005 Thanks -- Vous voulez un conseil ? Ne faites jamais confiance à ceux qui vous donnent des conseils.(c) Tag: Bulk import DNS Tag: 200144
  - 9
    - write data to Excel spreadsheet? Howdy- I've built some scripts using the FileSystemObject & CreateTextFile/ReadAll/WriteLine methods that take the contents of local logfiles (vendor-produced) and write them to another text file in a UNC path using schtasks. Now, the user wants the output to be in an excel spreadsheet... I don't think changing the format to .csv is going to work; the original logfiles vary between lines with five columns of data and lines with seven or none at all... Can I do this within the FSO or do I need to figure out how to use Excel.Application? Thanks, BM Tag: Bulk import DNS Tag: 200132
  - 10
    - need help Here's what I need to do in a vbscript: If a certain file exists in a directory, I need to copy it to the backup/archive directory adding the date to the file name. Example - c:\files\filename.txt to c:\archives\filename_20061211.dat. I know how to do this is in DOS but not vbscript. Thanks. Chris Tag: Bulk import DNS Tag: 200130
  - 11
    - exchange script question hi all. i need a script that will report 2 things: mailbox size limit, current mailbox size. does anyone have a quick example? my main concern is getting the size limit. if this is set via policy in exchange, how can the limit (in MB) be read? thanks Tag: Bulk import DNS Tag: 200125
  - 12
    - VB Script Runs W/O Error, But Does Nothing! I've used this script in the past to change users Terminal Profile in Active Directory. This time when I ran it and it went error-free, but did absolutely noting by way of changing the Terminal Profile. Any ideas? '********************************************************************************** '* THIS SCRIPT CHANGES User Profiles * '* WRITTEN BY KERRY * '********************************************************************************** Option Explicit 'Demands that variables are "dimmed". 'On Error Resume Next 'Continue despite errors. (Disable Until Script is working.) 'Define Variables Dim objExcel 'Creates Excel Instance Dim objWorkbook 'Opens designated Excel Workbook Dim intRow 'Contains the row number of the Excel worksheet. Dim usrVar 'Contains the new user's full user name. Dim objOU, strOU, strUser 'Binds to the Organizational Unit Object. Dim objTermProfile Dim strTSprofile 'Connect to the object. Set objExcel = CreateObject("Excel.Application") 'Set the correct file location for the excel data file. '>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>Set the class list address below!!!! Set objWorkbook = objExcel.Workbooks.Open("C:\Class Lists 2006\9list.xls") 'Open the class list file. intRow = 2 'Variable for loop. Begins on 2 to bypass header row. Do Until objExcel.Cells(intRow,1).Value = "" 'Initiate loop. 'Set the Profile Path and the Terminal Services Profile Path for the account. strUser=objExcel.Cells(intRow,1).value Set objTermProfile=GetObject("LDAP://student1/cn=" & strUser & ",ou=Senior One,dc=mcistudent,dc=local") objTermProfile.Put "TerminalServicesProfilePath","\\TERMINAL1\termProfile.man" objTermProfile.SetInfo WScript.Echo "The new TprofilePath has been added to " & objExcel.Cells(intRow,4).Value & "'s account." intRow = intRow + 1 'Advance to the next row. Loop 'Repeat the loop. WScript.Echo "CHANGES TO THE " & StrOU & " ORGANIZATIONAL UNIT ARE COMPLETE." objWorkbook.Save 'Save the Excel file. objExcel.Quit 'Close the Excel thread and End Script Tag: Bulk import DNS Tag: 200116
  - 13
    - Possible to add user to COM Security? Is it possible to script adding a user to COM Security in Access Permissions within DCOM (dcomcnfg)? Tag: Bulk import DNS Tag: 200115
  - 14
    - help with combining two scripts Hi, i am a scripting n00b and found a script i would like to use to connect to a network share and open the network share. The script below connects to the network share, but i also would like explorer to open the "x:" drive after connecting to it. Can someone please tell me how i can accomplish that in this script? -->script: Option Explicit Dim objNetwork Dim strDriveLetter, strRemotePath, strUser, strPassword, strProfile ' Values of variables set strDriveLetter = "x:" strRemotePath = "\\192.168.x.x\blah" strUser = "user" strPassword = "password" strProfile = "false" ' This section creates a network object. (objNetwork) ' Then apply MapNetworkDrive method. Result H: drive ' Note, this script features 5 arguments on lines 21/22. Set objNetwork = WScript.CreateObject("WScript.Network") objNetwork.MapNetworkDrive strDriveLetter, strRemotePath, _ strProfile, strUser, strPassword Thanks! Kim Tag: Bulk import DNS Tag: 200111
  - 15
    - create user account in windows I need a vbscript to create user accounts on a windows computer. Its is a completely local computer, no domain or anything. I saw this script on Google groups and found that it works for creating 1 user. ---------------------------------------------------------------------------------------------------------------------------------------------- sNewUser = "mini-strator" sGroupname = "Users" Set oWshNet = CreateObject("WScript.Network") sComputerName = oWshNet.ComputerName Set oComputer = GetObject("WinNT://" & sComputerName) Set oUser = oComputer.Create("user", sNewUser) On Error Resume Next ' save the user oUser.Setinfo ' If user exists already, we get an error If Err.Number = 0 Then On Error Goto 0 oUser.SetPassword "1234" oUser.Fullname = "John" oUser.Description = "hi!" oUser.Setinfo End If On Error Goto 0 ' Add the user to the group Set oGroup = GetObject("WinNT://" & sComputerName & "/" & sGroupname) ' Use error handling in case he is a member already On Error Resume Next oGroup.Add(oUser.ADsPath) On Error Goto 0 ---------------------------------------------------------------------------------------------------------------------------------------------- However if I change the username and try to create another user, it doesn't work. For example if I run the above script once, then change it to: ---------------------------------------------------------------------------------------------------------------------------------------------- sNewUser = "mini-strator" sGroupname = "Users" Set oWshNet = CreateObject("WScript.Network") sComputerName = oWshNet.ComputerName Set oComputer = GetObject("WinNT://" & sComputerName) Set oUser = oComputer.Create("user", sNewUser) On Error Resume Next ' save the user oUser.Setinfo ' If user exists already, we get an error If Err.Number = 0 Then On Error Goto 0 oUser.SetPassword "1234" oUser.Fullname = "Betty" oUser.Description = "hi!" oUser.Setinfo End If On Error Goto 0 ' Add the user to the group Set oGroup = GetObject("WinNT://" & sComputerName & "/" & sGroupname) ' Use error handling in case he is a member already On Error Resume Next oGroup.Add(oUser.ADsPath) On Error Goto 0 ---------------------------------------------------------------------------------------------------------------------------------------------- It does not create a new user with the name Betty, just a user named John. Someone please help me with this. I need it urgently. Tag: Bulk import DNS Tag: 200109
  - 16
    - Consolidate Specific Fields in text files to 1 Big File i'm newbie in VBScripting and i'd create one script to collect system information and i have other application that generates logs what i need to do is to have a VBscript that read log files and ONLY copy some fields then append it to the output file generated by my first script. Any Help Tag: Bulk import DNS Tag: 200106
  - 17
    - viewing blobs vbsript asp Hi I am trying to set up a view application that will view stored wrd, pdf, jpg gif files in a larg blob in sql 2000. This is tying in with an older application that was written by somebody, all i want to do is have 1 view page that will show a list of the file attachments by id number and if clicked on will open them in exploer. thanks Mike Tag: Bulk import DNS Tag: 200103
  - 18
    - VBScript That Copies Folder Content To Remote Computers Is anyone that can help me? I trying to create a VBScript copy folder to remote computer. I would like the VBScript that check to see if that folder I want to copy already exist on a remote computer, If the folder exists, then I would like the VBScript to move on the next computer, and if the folder doesn't exist I would like it to copy the folder to that remote computer and possible create a log file telling me which computers completed successfully and which ones didn't Tag: Bulk import DNS Tag: 200101
  - 19
    - Read Registry Key Please give me a simple VBs that will read the values of 1 Registry key >Put them in some variables or an array > Then i will do something with that ................. What i want to do is : Read the values of [HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\RunMRU] Put a's value in variable a Put b's value in variable b c value in c d in d etc. etc. OR .. . .. Put a's value in array Put b's value in the array etc. etc. ..... AND Put the value of MRUList in a different variable. -- Ayush Tag: Bulk import DNS Tag: 200087
  - 20
    - Please Help !! VBscript convert my image/music file into VBscript file Dear all. I am not sure this is the RIGHT forum, but I hardly need help from all people who is familiar with VBscript. I received a email from my friend with attached with a *.vbs file, which is a image he claimed. After I download the file, the outlook just asked me to change seomthing, I had choosen NO. But after that, I found that all my image/music files were changed to VBscript script file and cannot open it anymore. I hardly need help to convert the (very important) image files back, anyone can help me please? Thank you very very very much. Tag: Bulk import DNS Tag: 200086
  - 21
    - Missing vbscript Hope this is the right newsgroup - if not, apologies. I have tried to install iTunes on my WinXP laptop, but the installer says:"iTunes could not be installed because Visual Basic Script (VBScript) is not installed or has been disabled...." I've looked at Services, but there is no sign of VB, and a search doesn't seem to help. Any suggestions would be welcome. Thanks Tag: Bulk import DNS Tag: 200084
  - 22
    - Call remote vbscript In order to make the program visible in the desktop, i create another vbscript in the remote PC. However, there is no response in the remote PC. May i know any wrong to the scripts below? remote vbscript ----------------------- Option Explicit Dim strProgram, strComputer, objWMIService, arrProcess, objProcess, objProgram, intSleep, strShell strProgram = "calc.exe" strComputer = "." intSleep = 15000 set objWMIService = GetObject("winmgmts:{impersonationLevel=impersonate}!\\"&strComputer&"\root\cimv2") set arrProcess = objWMIService.ExecQuery("Select * from Win32_Process") For Each objProcess in arrProcess if(objProcess.Name = strProgram)then objProcess.Terminate() end if Next WSCript.Sleep intSleep set objProcess = objWMIService.Get("Win32_Process") set objProgram = objProcess.Methods_("Create").InParameters.SpawnInstance_ objProgram.CommandLine = strProgram set strShell = objWMIService.ExecMethod("Win32_Process", "Create", objProgram) WSCript.Quit local script ------------------ Dim sScriptName, sComputerName, oWmi, oWmi_Process, objSWbemLocator sScriptName = "D:\t.vbs" sComputerName = "abc" Set objSWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set oWmi = objSWbemLocator.ConnectServer(sComputerName, "root\cimv2", "abc", "a", "MS_409", "NTLMDomain:WORKGROUP") Set oWmi_Process = oWmi.Get("Win32_Process") oWmi_Process.Create(WScript.FullName & " " & sScriptName) WSCript.Quit Tag: Bulk import DNS Tag: 200075
  - 23
    - naive question how can one catch end of file for openastextfile object? AtEndOfStream is only good for stream and I don't want to use stream because I want to read line by line Tag: Bulk import DNS Tag: 200069
  - 24
    - shell.run problems :( I run a php script on localhost that contains vbscript in it to execute a program, like so: <?php $scripter = new COM("MSScriptControl.ScriptControl"); $scripter->Language = "vbscript"; $scripter->ExecuteStatement("Set WshShell = createobject(\"wscript.shell\")"); $scripter->ExecuteStatement("oExec = WshShell.Run(\"someprogram.exe\",1,TRUE)"); $scripter->ExecuteStatement("Set WshShell=nothing"); $scripter=null; ?> Now, if I have someprogram.exe already running, it will jump to that. If I don't, it will open up a new instance. Great, it works. However, the new instance is running as a SYSTEM process, and not my login name. I trying to automate a printout, and I can't set any settings on the printer for 'system', so it gets all funky. I have been searching all freaking day for a solution... is there one? PLEASE HELP :) Tag: Bulk import DNS Tag: 200068
  - 25
    - iTunes Script (easy)... Hey, try this script out for iTunes (must have iTunes installed). Problem: iTunes can run minimized in the systray but in order to play, pause, volume, etc. you have to maximize it (which can be slow sometimes). Solution: Write a script! Try the following. You can make custom keyboard shortcuts for these scripts also -- make a shortcut on your desktop and open properties, then make shortcut key by hitting key of preference). 'Start Script ####################################################### Set objApp = CreateObject("iTunes.Application") objApp.PlayPause 'Here are properties to tinker with: 'objApp.Mute = True '(true to mute, false to unmute) 'objApp.SoundVolume = 100 '(values of 0-100) 'or use the following to increment the volume by 10 'units w/each click or hit: 'objApp.SoundVolume = objApp.SoundVolume + 10 'objApp.Rewind '(use objApp.Resume to stop RW) 'objApp.FastForward '(use objApp.Resume to stop FF) 'objApp.BackTrack '(previous track) 'objApp.NextTrack '(next track) 'objApp.Stop '(stops playback) 'objApp.Quit '(exits/closes iTunes) Tag: Bulk import DNS Tag: 200065
- Next
  - 1
    - Help Please The following has been going on for over a week, and I can't find a solution: We send an email to approx. 200 dealers. The email is generated by a VBScript on a schedule. The VBScript access' a database for various information. The email is configured to HTML format. In the email there are two hyperlinks one to a French URL and one to an English URL. [PROBLEM] When some of the recipients receive the email the hyperlink is broke. eg. http://www.test.com/test.asp?dealer=1 111 (Spaces in the URL) Or (this just happened) eg. http://www.testcom/test.asp?dealer=1 111 (The period between test and com disappeared) [WHAT I TRIED] Put the whole thing in table tags with the nowrap attribute. Tried the <nobr> tag. Tried the <pre> tag. Any insight would be very much appreciated. Tag: Bulk import DNS Tag: 200057
  - 2
    - Problems setting user account attributes on win2k member servers. I have written a simple script that sets the password required attribute to "Yes" on all systems with local accounts and if the computer is found to be a domain controller it exits out. The script works fine on any XP workstation and any windows 2003 member servers but if i run the same script on a windows 2000 member server, the script exits out with this error: Error: : -2147463168 Error (hex) : &H80005000 Source : Description : An invalid ADSI pathname was passed. Can anyone help me trouble shoot this behavior? Any answers in how to fix this error would be greatly appreciated. The script is below: On Error Resume Next 'Setting Constants: Const ADS_UF_PASSWD_NOTREQD = &H0020 sfile_out = "c:\temp\Localusers_required_password.txt" Set oFSO = CreateObject("Scripting.FileSystemObject") Set oTSOut = oFSO.CreateTextFile(sfile_out, True) 'Getting Computer name: set oNetwork = wscript.createObject("WScript.Network") 'Determing If the computer is a domain controller, member server, or a workstation. Set objWMIService = GetObject("winmgmts:" & "{impersonationLevel=impersonate}!\\" & oNetwork.Computername & "\root\cimv2") Set colComputers = objWMIService.ExecQuery ("Select DomainRole from Win32_ComputerSystem") For Each objComputer in colComputers Select Case objComputer.DomainRole Case 0 strComputerRole = "Standalone Workstation" Case 1 strComputerRole = "Member Workstation" Case 2 strComputerRole = "Standalone Server" Case 3 strComputerRole = "Member Server" Case 4 strComputerRole = "Backup Domain Controller" Case 5 strComputerRole = "Primary Domain Controller" End Select If strComputerRole ="Standalone Workstation" then call work1 elseIf strComputerRole ="Member Workstation" then call work1 ElseIf strComputerRole ="Standalone Server" then call work1 ElseIf strComputerRole ="Member Server" then call work1 Else oTSOut.Write "The computer " & oNetwork.Computername & " is a domain controller. The script will not be run." Wscript.Quit End If Next '_______________________________________________________________________________ Sub work1 'Enumerating Users: Set colUsers = GetObject("WinNT://" & oNetwork.Computername) colUsers.Filter = Array("User") For Each objUser in ColUsers set usr = GetObject("WinNT://" & oNetwork.Computername & "/" & objUser.Name & ", user") flag = usr.Get("UserFlags") If flag AND ADS_UF_PASSWD_NOTREQD Then oTSOut.Write objUser.Name &": NO Password Required." &VbCrLf usr.UserFlags = flag XOR ADS_UF_PASSWD_NOTREQD usr.SetInfo If Err.Number <> 0 Then oTSOut.Write "The User's, " & objUser.Name &", password does not meet the complexity requirements. " & Err.Description &VbCrLf else oTSOut.Write "User, " & objUser.Name & ", has had the password required attribute set to yes."&VbCrLf End If oTSOut.Write VbCrLf Else oTSOut.Write objUser.Name &": Password Required." &VbCrLf oTSOut.Write VbCrLf End If Next oTSOut.close End Sub Tag: Bulk import DNS Tag: 200051
  - 3
    - Encode/Encrypt/Protect VBScripts We have written some VB scripts that help us manage SQL Logins and Users. There is sensitive password data in the scripts and I was wondering what the best practice is for encrypting or protecting the scripts from prying eyes. I saw some posts about the Microsoft Script Encoder, are there any other options? Any ideas are greatly appreciated. Tag: Bulk import DNS Tag: 200050
  - 4
    - Ascii Text file to Binary and back again I have an application written in VBscript. It is proprietary, but I can add vbs subroutines to it. The file that this application generates is a 512 x 512 matrix. Each data set in the matrix is consists of a real and imaginary number(floating point). This file is passed to a matlab script which performs Fast Fourier Transforms on it and rewrites the file as text. This file must be moved across a network that is encrypted. The file is so large that it can take anywhere from 20 to 45 minutes to move the file. In an experiment I created a similarly formatted file but it was a byte array, the file transferred in less than 2 minutes every time. I need a hint at some vbs code that would take a file which held a 512x512 matrix in text format, convert it to binary so I can get it across the network, then on the other side convert it back into the text format. Thanks M Tag: Bulk import DNS Tag: 200047
  - 5
    - RND not random Hello, rnd() is not random (on my computer) Does anyone has an option for generating random numbers? I need random numbers between 0 and a million (1000000) Thanx, Marco L. (my script runs every 30 seconds) maybe I have to do something with the time!! Tag: Bulk import DNS Tag: 200043
  - 6
    - Control Wireless Configuration Is there a way to turn on or off the check box within the Network Connection profile for a wireless adapter that says "Use Windows to configure my wireless settings"? I am trying to uninstall Thinkvantage Access Connection and use only the Windows software to create my wireless profiles. I have been able to create the profiles but need to ensure that the check box for Windows to control it is on. Thanks Talyn Tag: Bulk import DNS Tag: 200030
  - 7
    - How can I adapt WinNT:// Moniker create account to Wbem.Scripting Moniker? Hi, It's easy to connect using WinNT:\\ class and add a user account and add it to the administrators group as seen below in my "create local user account code." But how does one find all the classes for doing this the WBem way? I have found only 1 or 2 WBEM classes and I've used them to connect to a remote computer, supplying alternate username/password using the Wbem Moniker as listed in the bottom script snippet. But once I'm connected using the wbem class, how can I do things like create and modify local accounts on the remote server as listed in the "create local user account code" There seems to be SO LITTLE info on the WBEM classes and methods, like adding a local account. Lots on AD, and lots on using Winmgmt and impersonate, but very little out there on wbem monikers using alternate credentials and the available classes. Anyone have any insights? L, S 'create local user account code begin Dim strComputer strComputer = "." Dim strUsr strUsr = i On Error Resume Next Set colAccounts = GetObject("WinNT://" & strComputer & "") Set objUser = colAccounts.Create("user", strUsr) objUser.SetPassword "pass123" objUser.SetInfo 'create local user account code end '================================== wbem connection conx and gets ip and mac: Set objWbemLocator = CreateObject("WbemScripting.SWbemLocator") Set objWMIService = objWbemLocator.ConnectServer _ (strComputer, strNamespace)', strUserName, strPassword) objWMIService.Security_.authenticationLevel = WbemAuthenticationLevelPktPrivacy Set colItems = objWMIService.ExecQuery _ ("Select * From Win32_NetworkAdapterConfiguration Where IPEnabled = True") For Each objItem in colItems WScript.Echo objItem.MACAddress For Each strAddress in objItem.IPAddress WScript.Echo strAddress Next Tag: Bulk import DNS Tag: 200025
  - 8
    - VB script to add alias e-mail to all users My site is adding a new e-mail for all of my employees and I have to find a way to add an alias to all mailboxes. Does anyone know of a script that I can use to make this happen instead of having to go to each invididual user and manually add them? I'm running E2K3 SP2 and W2K3 SP2 AD TIA Tag: Bulk import DNS Tag: 200024
  - 9
    - frames I am trying to implement tabs, here is the code snippet. The code does not work....why the frame is not set back to yahoo page...any clues <HTML> <SCRIPT LANGUAGE="JavaScript"> function tabOnClick(ID) { var oElement = null; for (var i = 0; i < tabs.length; i++) { oElement = document.getElementById(i); oElement.className = "tabOff"; } oElement = document.getElementById(ID); oElement.className = "tabOn"; var tab = tabs[ID].split("|"); //divTabFrame.innerHTML = "<IFRAME id='MyFrm' name='MyFrm' SRC="+tab[1]+" CLASS='tabFrame' FRAMEBORDER='0' SCROLLING='no' ></IFRAME>"; document.MyFrm.src = "http://www.yahoo.com" document.body.focus(); } <script> <BODY onLoad="tabLoad()"> <DIV ID="divTabButtons"></DIV> <IFRAME id='MyFrm' name='MyFrm' src ="http://www.google.com" CLASS='tabFrame' FRAMEBORDER='0' SCROLLING='no' ></IFRAME> </BODY> </HTML> Tag: Bulk import DNS Tag: 200020
  - 10
    - EnumNetworkDrives skips a drive All, I've got a script I'm trying to use to remap drives from one server to another (contingency plan in case the first server has problems). It works great... except it seems to skip a drive on my machine. The code is posted below. When I look in the registry at \HKCU\Network\ I have 4 drives: J, K, Y, Z. However, my script does not appear to look at the J drive. I used WScript.Echo to verify which drives it is analyzing. (BTW, I apologize in advance for the poorly written code! Doing two separate tests [one on name and one on IP] was simply easier than learning how to do it properly heh]). Thanks in advance! Option Explicit Dim objNetwork, objDrive, intDrive, strOldShare,_ strOldIP, strNewShare, strNewUNC, strDriveLetter, objFSO Set objNetwork = WScript.CreateObject("WScript.Network") Set objDrive = objNetwork.EnumNetworkDrives Set objFSO = CreateObject("Scripting.FileSystemObject") strOldShare = "server1" strOldIP = "123.123.123.123" strNewShare = "server2" 'If we have no network drives, quit If objDrive.Count = 0 Then Wscript.Quit(0) End If For intDrive = 0 to objDrive.Count - 1 Step 2 WScript.Echo "Doing drive " & objDrive.Item(intDrive) WScript.Echo LCase(objDrive.Item(intDrive + 1)) If InStr (1,LCase(objDrive.Item(intDrive + 1)), strOldShare, 1) > 0 Then strNewUNC = Replace(LCase(objDrive.Item(intDrive + 1)), strOldShare, strNewShare, 1, 1, 1) strDriveLetter = objDrive.Item(intDrive) WScript.Echo "For " & strDriveLetter & " I will replace " &_ objDrive.Item(intDrive + 1) & " with " & strNewUNC ' Only delete and recreate if the destination exists If objFSO.FolderExists(strNewUNC) Then objNetwork.RemoveNetworkDrive strDriveLetter, True, True objNetwork.MapNetworkDrive strDriveLetter, strNewUNC, True Else WScript.Echo "The mapped network drive " & strDriveLetter & " at " &_ objDrive.Item(intDrive) & " was not mapped to " & strNewUNC &_ ".The destination did not exist." End If End If If InStr (1,LCase(objDrive.Item(intDrive + 1)), strOldIP, 1) > 0 Then strNewUNC = Replace(LCase(objDrive.Item(intDrive + 1)), strOldIP, strNewShare, 1, 1, 1) strDriveLetter = objDrive.Item(intDrive) WScript.Echo "For " & strDriveLetter & " I will replace " &_ objDrive.Item(intDrive + 1) & " with " & strNewUNC ' Only delete and recreate if the destination exists If objFSO.FolderExists(strNewUNC) Then objNetwork.RemoveNetworkDrive strDriveLetter, True, True objNetwork.MapNetworkDrive strDriveLetter, strNewUNC, True Else WScript.Echo "The mapped network drive " & strDriveLetter & " at " &_ objDrive.Item(intDrive) & " was not mapped to " & strNewUNC &_ ".The destination did not exist." End If End If Next WScript.Quit(1) Tag: Bulk import DNS Tag: 200015
  - 11
    - Bringing IE to focus from add-in We're having an issue in bringing IE to focus on loading from PowerPoint add-in. Can you please help us in this regard. Steps are: 1) Create a DLL that has a form with a button in it a) Form should be a modal dialog b) On Click of the Button Internet Explorer should be automated and made visible --- shdocvw.dll is used to automate Internet explorer 2) Create an Add-ins referring that DLL 3) Include that Add-ins in excel application 4) Run the Macro of Add-ins to display the Form in DLL 5) Click the button to display IE 6) IE is loaded, but appears in a minimized mode in the Taskbar. Any Idea to make it visible in maximized mode Tag: Bulk import DNS Tag: 200005
  - 12
    - Help with Calculation of Multiple Records I need help in calculating a score for each employee based on values submitted from drop-down boxes Example: Emp1 TeamScore(1-10) Emp2 TeamScore(1-10) Emp3 TeamScore(1-10) Emp4 TeamScore(1-10) Emp5 TeamScore(1-10) I want to take the values from each drop-down and multiply them by a weighted score that I get from another database table (ie 0.11 etc) I get a Type Mismatch (string) error when I run the following code: MLevel2 = "0" On Error Resume Next Set C9 = Server.CreateObject("ADODB.Connection") C9.Open "Provider=sqloledb;Data Source=ebs-sqlc1-vs3.edn.runi.com\SSS;UID=casuser;PWD=hppccas;DATABASE=skills" Set rsScors= Server.CreateObject("ADODB.Recordset") sSQ5 = "Select * from WgtScore where org = '" & session("orgg") & "' AND mgmtlevel = '" & MLevel2 & "'" rsScors.Open sSQ5, C9, adOpenKeySet,adLockReadOnly, adCmdText D5 = rsScors("QDiv5") SS5 = "0.0" S11 = round(rsScors("WS1"),2) rsScors.close set rsScors = Nothing strID = split(request.form("Emp"), ", ") QQ1 = split(request.form("Q1")* S11,",") FOR i = LBound(strID) TO UBound(strID) sSQL = "UPDATE EAPcurrentyear SET Q1= '" & trim(QQ1(i)) & "' where (empid ='" & strID(i) & "')" C9.Execute(sSQL) NEXT C9.Close Set C9 = Nothing %> Any help with this would be Greatly appreciated. Tag: Bulk import DNS Tag: 200002
  - 13
    - Enumerating files in a folder beginning with ... Hello, I want to do some DIR command with VBscript. The following code is what i already have: <code> Set objFolder = objFSO.GetFolder(DrvLetter & "\") Set colFiles = objFolder.Files For Each objFile in colFiles LogBO = LogBO & objFile.Name & ", " & VbTab & FormatNumber(objFile.Size * BytesToKB, -1) & "KB, " & VbTab & objFile.DateLastModified & VbCrLf Next </code> This script enumerate the file name, the filesize in KB's and the Last Modified date. Now i want to enumerate only the files beginning with export*.mdb. How can I do this? Thnx in advance, Cees van Altena Tag: Bulk import DNS Tag: 199998
  - 14
    - How to call a remote vbscript from a .Net windows application? How to call a remote vbscript from a .Net windows application? For example, there are 2 PC in the network. one is PC1 and another one is PC2. 1. A vbscript is stored in PC1. 2. windows application in PC2. In the scenario above, is there any way to call the vbscript which is located in PC1 from the windows application in PC2. Tag: Bulk import DNS Tag: 199996
  - 15
    - Logic connection between exchange mailboxes and AD? Hi! :) I need to get data on our user accounts and the associated exchange mailboxes. I can enumerate eather separatly but have failed to find a common property or anything to connect them. I'm sure it's something simple, but what? I intend to enumerate one and then search for the matching entries in the other. So a matching searchable property would be great! :) Thanks a million! :) /Sofia Tag: Bulk import DNS Tag: 199990
  - 16
    - Merge script does not merge in order 1, 2, 3. Hi The problem is that the merge is not done in order. Instead of merging 1, 2, 3.. it merges 1, 10, 11, 12, 2, 20, 21 and so on.. Anyone got some good advise to solve this? Thanks in advance. ------------------------------------ Option Explicit dim oArgs: Set oArgs = WScript.Arguments Dim fso: Set fso = CreateObject("Scripting.FileSystemObject") dim filefolder Dim filefolderN Dim CurrentFolder Dim Files Dim File dim objts dim strContents dim endoffilepos filefolder = "C:\Test\" filefolderN = "C:\Test\Data\" Set CurrentFolder = fso.GetFolder(filefolder) Set Files = CurrentFolder.Files For Each fileName In files If left(File.Name,13) = "NewTestData_1" Then Set objTS = File.OpenAsTextStream(1) strContents = objTS.ReadLine objTS.Close Set objTS = fso.OpenTextFile(filefolderN & "\NewTestData.", 8,true) objts.writeline strContents objts.close Set objTS = fso.OpenTextFile(filefolder & "\NewTestData.log", 8, true) strContents = "Merge Completed for " & File & vbcrlf objts.write strContents objts.close File.delete end if Next Tag: Bulk import DNS Tag: 199986
  - 17
    - Registry Permissions & Win APIs Hello all, First of all, I'd like to apologize if this has been asked before. I searched the group several times and to my dis-belief my mail reader did not come up with results. I find this to be very suspicious. Anyway, below are my questions. I'd like to modify registry key permissions with VBS and I would like to do it by using the Win APIs. I have a key under HKEY_LOCAL_MACHINE that I want to give full rights to Administrators and System. I want to give read rights to power users and I want to revoke all other rights for all other users. I've done VB, but am new to VBS so please do not ostercize me for this noob question. I have found how to do this in VB using the RegSetKeySecurity function in advapi32.dll. However, I can't even open a key in VBS using RegOpenKey because I receive a VBScript compilation error on the declaring function saying "Expected Identifier" [code] Private Declare Function RegOpenKey Lib "advapi32.dll" Alias "RegOpenKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long [/code] Also, in setting up some constants, I get a compilation error of "Expected Literal Constant" [code] Private Const KEY_SET_VALUE = &H2 Private Const KEY_WRITE = ((STANDARD_RIGHTS_WRITE Or KEY_SET_VALUE Or KEY_CREATE_SUB_KEY) And (Not SYNCHRONIZE)) [/code] Is it possible to directly use the Windows APIs from VB Script? If it is possible, what do I need to do to make this work? If it isn't possible, then what can I do that will work on Win 2k, XP Pro, and 2003 to change the security permissions on a registry key? Thank you, Travis Tag: Bulk import DNS Tag: 199982
  - 18
    - HTML Tabs I have 3 ASP pages. I want to create a simple Tabbed layout in DHTML or some FREE ware code which will host these 3 pages in 3 different tabs...Do you know if such free code to create tab available...any samples will help Thanks Tag: Bulk import DNS Tag: 199979
  - 19
    - .bat to VBScript Will someone please be so kind as to help me translate a .bat to vbscript? I can't seem to do it despite my best attempts. Here's the .bat: @echo off "\\131.62.80.10\HelpDesk\Scripts\BGInfo\BGInfo Server\BGInfo.exe" "\\131.62.80.10\HelpDesk\Scripts\BGInfo\BgInfo Server\Server.bgi" /SILENT /NOLICPROMPT /timer:0 As you can see, I am trying to run the BGInfo app from a share. I don't want to copy the .bat to everyone's startup folder rather I would like to run the vbscript command from group policy logon script. Thanks for any help you can offer. Tim Tag: Bulk import DNS Tag: 199978
  - 20
    - 'loop' without 'do' Error I am having trouble with the following script file. Please help!!! '========================================================================== on error resume next Set fso = CreateObject("Scripting.FileSystemObject") Set noton = fso.CreateTextFile("M:\Technical Folder\Secret Squirrel\Tools\Cool VBS\Multi-Desktop File Copy\error.log") ' path to error log '**************************** Start of loop ************************** set bF = fso.opentextFile("M:\Technical Folder\Secret Squirrel\Tools\Cool VBS\Multi-Desktop File Copy\ComputerList.txt",1) ' open list of machines Do While bF.AtEndofStream <> True strmachine = bF.readline If objFSO.FileExists("\\" & strmachine & "\c$\Documents and Settings\All Users\Desktop\email.rdp") Then objFSO.DeleteFile "\\" & strmachine & "\c$\Documents and Settings\All Users\Desktop\email.rdp", True If err.number <> 0 Then noton.writeline strmachine & err.number 'writes to noton.txt machine that error End If err.clear LOOP '*************************** End of loop ************************************ wscript.echo "DONE!" Tag: Bulk import DNS Tag: 199976
  - 21
    - Problem with IE7 vbscript and javascript Hi I need to call a javascript function from vbscript: <script type=3D"text/javascript"> function JSAlert(str){ alert(str); } </script> <script language=3D"vbscript"> Sub VideoPlayer_onGoToURL(url,target) call JSAlert(url) End Sub </script> It doesn=B4t work, but if I put 'msgbox url' before 'call JSAlert(url)' works. Could somebody help me? Tag: Bulk import DNS Tag: 199973
  - 22
    - On Change.. Hi, can anyone help me? I am trying to make an input box not visible or readonly when a slect box above is changed. Here's my code: <select name=selStake style="Width: 146px;"> <option value="Mentor">Mentor</option> <option value="Institution">Institution</option> <option value="None">None</option></select> And i would like to make this box invisible or readonly when the above selct box is changed to "None" : <INPUT name=InstName> Any ideas or suggestion will be highly appreciated.Thanks Tag: Bulk import DNS Tag: 199966
  - 23
    - vbscript to view users connected to active directory Hi all, I need to view who is connected to my active directory 2003 domains controllers, anyone knows how to do that in vbscript/asp ? thanx in advance greets, Greg Tag: Bulk import DNS Tag: 199962
  - 24
    - Script naming problem ( why i should not name my script as Telnet.vbs) Hi i have written a script to launch the telnet window. The code is contains the following line 'strPath = Path of the text file to store telnet session 'strHost = host name or IP address\ 'numPort = Port number Set objShell = CreateObject("Wscript.Shell") objShell.Run "cmd /k telnet -f "&strPath&" "&strHost&" "&numPort When i save this code as Telnet.vbs and run it, it opens many telnet windows ! I know that there is nothing wrong with code because when i rename it to something else, it works fine! Please inform me why i should not name it as Telnet.vbs (are there any restrictions or some thing else etc..?) Tag: Bulk import DNS Tag: 199961
  - 25
    - Restart Services remotely Hi, Is there a way to connect to another system service.msc to start and stop remotely, using visual basic or .net. Thanks Pete Tag: Bulk import DNS Tag: 199957

Hello, I was wondering if anyone out there has a snippet that will do a
build the framework for a mass import of DNS entries (AD intigrated),
we need to add over 1700 entries.

Any help would be great.

Thanks.

Terry.

Top