Hey Ed, It's not supposed to it calls the word object to put the nslookup output into the clipboard like Todd wanted. Have you tried after running the script to paste to notepad or word? Todd have you tried this out yet? Does it do the functions your looking for?
Jim On Fri, Mar 19, 2010 at 7:53 AM, Edward Crosby <[email protected]> wrote: > James, this didn't open Word for me, if that is what it was supposed to do. > > -- > Have a Better One, > Edward Crosby > http://www.edwardcrosby.com > ----- > "There are no atheists in foxholes or firmware updates." > Merlin Mann > > > Would this be easier? > > > > strServer = InputBox("Please enter the server you want to get the FQDN > > of:", > > "Server") > > > > If Trim(strServer) <> "" Then > > Set objShell = CreateObject("WScript.Shell") > > Set objExec = objShell.Exec("cmd /c nslookup " & strServer) > > While objExec.Status > > WScript.Sleep 100 > > Wend > > strOutput = objExec.StdOut.ReadAll > > arrLines = Split(strOutput, VbCrLf) > > strServer = "NOT FOUND" > > For Each strLine In arrLines > > If Left(strLine, 6) = "Name: " Then strServer = > > Trim(Mid(strLine, 7)) > > Next > > MsgBox strServer > > > > Msg=strServer > > > > Set objWord = CreateObject("Word.Application") > > > > objWord.Visible = False > > > > With objWord > > .Documents.Add > > .Selection.TypeText Msg > > .Selection.WholeStory > > .Selection.Copy > > .Quit 0 > > End With > > Else > > MsgBox "No server was entered." > > End If > > > > > > On Thu, Mar 18, 2010 at 12:10 PM, Todd Elliott <[email protected]> > > wrote: > > > >> I've been working on one I had a question on. I've been doing it to try > >> and learn a little about .vbs scripts, and to automate something I do > >> every > >> day without having to use cmd prompt. Just getting computer name from > >> an IP > >> with nbstat. > >> > >> It asks for the IP address, you paste it in, then it comes up with the > >> computer name. I added a part at the end to copy the name to the > >> clipboard. The problem is, you have to use IE to access the clipboard. > >> It > >> prompts you every time to allow access, unless you enable clipboard > >> access > >> in internet options unders security\internet\scripts. > >> > >> I noticed local intranet sites were set to enable that by default. Is > >> there a way to change the script below so it thinks it's a local IE > >> page, > >> and doesn't prompt? > >> > >> * > >> Code below:* > >> rem Prompts the user for the IP > >> compIP = InputBox("Enter the IP address:") > >> > >> rem Makes a new script shell to run DOS commands > >> Dim sShell : Set sShell = CreateObject( "WScript.Shell" ) > >> > >> rem Here's the command to run in the script shell, nbtstat. It inserts > >> the > >> IP from the user > >> Dim nbCMD : nbCMD = "nbtstat -a " & compIP > >> rem Output of the nbtstat command is all read out > >> Dim outText : outText = sShell.Exec( nbCMD ).Stdout.ReadAll > >> rem message in case it doesn't work > >> Dim finalMsg : finalMsg = "Computer name not found" > >> rem regular expression that we'll use to get comp Name > >> Dim copyExpr : Set copyExpr = New RegExp > >> > >> rem Regular expression pattern to find and return computer name > >> rem the original pattern I found didn't get the whole computer name, it > >> stopped if it found a dash > >> rem changed it to look for \S or any non-whitespace > >> rem copyExpr.Pattern = "\s*(\w+)\s+<20>" > >> copyExpr.Pattern = "\s*(\S+)\s+<20>" > >> > >> rem Runs our regular expression against the text. > >> Dim execRun : Set execRun = copyExpr.Execute(outText) > >> > >> rem if it works, set the final message to the output of the regular > >> expression > >> rem if it doesn't, it shows the final message already set above > >> If 1 = execRun.Count Then > >> finalMsg = execRun( 0 ).SubMatches( 0 ) > >> End if > >> > >> rem Show the compuName to the user > >> WScript.Echo "The Computer name is: " & finalMsg & ". It will now copy > >> the > >> computer name to your Clipboard. Click on allow access to copy." > >> > >> rem This copies the computer name to the clipboard. It will ask if the > >> app. > >> can have access. > >> rem Or you can enable clipboard access in IE properites. Under > >> Security\Internet\Custom level, Allow Programmatic clipboard access to > >> "enable" > >> Set objIE = CreateObject("InternetExplorer.Application") > >> objIE.Navigate "about:blank" > >> Do Until objIE.ReadyState=4: WScript.Sleep 1: Loop > >> objIE.Document.ParentWindow.ClipboardData.SetData "Text", finalMsg > >> objIE.Quit > >> > >> --------------------------------------------- > >> Todd Elliott > >> [email protected] > >> http://www.theuniquegeek.com/ > >> http://www.google.com/profiles/thelliott > >> > >> > >> > >> > >> On Thu, Mar 18, 2010 at 11:39 AM, Edward Crosby > >> <[email protected]>wrote: > >> > >>> Okay. After finding out that SCCM can push batch files, I decided to > >>> write > >>> something a little more simple than using a VB script (by the way, I > >>> found > >>> out while testing that VB script I posted earlier that it will not stop > >>> services that have dependencies). Here is my batch file that will stop > >>> a > >>> service and its dependencies, if it has any, and then disables the > >>> service: > >>> > >>> net stop servicename /yes > >>> sc config "servicename" start= disabled > >>> > >>> -- > >>> Have a Better One, > >>> Edward Crosby > >>> http://www.edwardcrosby.com > >>> ----- > >>> "There are no atheists in foxholes or firmware updates." > >>> Merlin Mann > >>> > >>> > As soon as I learn how, probably. > >>> > We have a SCCM admin who usually does all this but I am her backup so > >>> I'm > >>> > in the process of learning the product. > >>> > So far, it's pretty neat; a bit confusing, but still neat. > >>> > For those of you planning to get into Windows System Administration, > >>> learn > >>> > these new products by Microsoft: > >>> > > >>> > 1. Powershell > >>> > 2. Microsoft System Center - all products, but mostly System Center > >>> > Operations Manager and Configuration Manager > >>> > > >>> > There have been job recruiters that I have spoken with in the past > >>> few > >>> > months that have stated that there are many companies out there > >>> looking > >>> > for Operations Manager and Configuration Manager experience, but > >>> mostly > >>> > Operations Manager. > >>> > > >>> > -- > >>> > Have a Better One, > >>> > Edward Crosby > >>> > http://www.edwardcrosby.com > >>> > ----- > >>> > "There are no atheists in foxholes or firmware updates." > >>> > Merlin Mann > >>> > > >>> >> Beautiful!! Are you going to use the software dist point in sccm to > >>> push > >>> >> the sc batch? > >>> >> > >>> >> -----Original Message----- > >>> >> From: Edward Crosby <[email protected]> > >>> >> Sent: Thursday, March 18, 2010 6:34 AM > >>> >> To: [email protected] > >>> >> Subject: Re: [The Unique Geek] Looking for a VB script > >>> >> > >>> >> I found the answer over at Microsoft's Technet Scripting Center > >>> forum. > >>> >> Just in case anyone is searching for this also on this forum, I > >>> found > >>> >> out > >>> >> that Microsoft System Center Configuration Manager will push batch > >>> files > >>> >> also. So it would be easier, for me at least, to create a batch file > >>> >> than > >>> >> a VB script. But, if anyones is looking for the VB script, here is > >>> what > >>> >> was posted over there: > >>> >> > >>> >> sComputer = "." > >>> >> aTargetSvcs= Array("SERVICE1","SERVICE2","SERVICE3") > >>> >> > >>> >> Set oWMIService = GetObject("winmgmts:" & > >>> >> "{impersonationlevel=impersonate}!\\" _ > >>> >> & sComputer & "\root\cimv2") > >>> >> Set cServices = oWMIService.ExecQuery("SELECT * FROM Win32_Service") > >>> >> > >>> >> For Each oService In cServices > >>> >> For Each sTargetSvc In aTargetSvcs > >>> >> If LCase(oService.Name) = LCase(sTargetSvc) Then > >>> >> > >>> >> If oService.State <> "Stopped" Then > >>> >> oService.StopService() > >>> >> End If > >>> >> > >>> >> If oService.StartMode <> "Disabled" Then > >>> >> oService.ChangeStartMode("Disabled") > >>> >> End If > >>> >> > >>> >> End If > >>> >> Next > >>> >> Next > >>> >> > >>> >> The other suggestion over there, if you were going to create a batch > >>> >> file, > >>> >> is to use the sc.exe command; 'sc stop' and 'sc config' > >>> >> > >>> >> -- > >>> >> Have a Better One, > >>> >> Edward Crosby > >>> >> http://www.edwardcrosby.com > >>> >> ----- > >>> >> "There are no atheists in foxholes or firmware updates." > >>> >> Merlin Mann > >>> >> > >>> >>> I'm hoping someone here has some pretty good knowledge on > >>> scripting. I > >>> >>> am > >>> >>> looking for a VB script to run on some Windows 2003 servers. > >>> >>> Here is what I posted on Technet and other forums: > >>> >>> I am currently searching through Google results but I was hoping > >>> >>> someone > >>> >>> would be able to assist me here too. > >>> >>> I am looking for a VB script that will stop more than one service > >>> on a > >>> >>> Windows 2003 server then set it to Disabled silently, without user > >>> >>> interaction. > >>> >>> We are using System Center Configuration Manager in our environment > >>> and > >>> >>> I > >>> >>> want to use this to push a VB script to a few servers on our domain > >>> to > >>> >>> stop some services and then set the services to Disabled. This > >>> script > >>> >>> will > >>> >>> need to be written to run locally, instead of remotely, as Config > >>> >>> Manager > >>> >>> w > >>> >> > >>> >> [The entire original message is not included] > >>> >> > >>> >> -- > >>> >> You received this message because you are subscribed to the Google > >>> >> Groups > >>> >> "The Unique Geek" group. > >>> >> To post to this group, send email to [email protected] > . > >>> >> To unsubscribe from this group, send email to > >>> >> [email protected]<theuniquegeek%[email protected]> > <theuniquegeek%[email protected]<theuniquegeek%[email protected]> > > > >>> . > >>> >> For more options, visit this group at > >>> >> http://groups.google.com/group/theuniquegeek?hl=en. > >>> >> > >>> >> > >>> > > >>> > > >>> > -- > >>> > You received this message because you are subscribed to the Google > >>> Groups > >>> > "The Unique Geek" group. > >>> > To post to this group, send email to [email protected]. > >>> > To unsubscribe from this group, send email to > >>> > [email protected]<theuniquegeek%[email protected]> > <theuniquegeek%[email protected]<theuniquegeek%[email protected]> > > > >>> . > >>> > For more options, visit this group at > >>> > http://groups.google.com/group/theuniquegeek?hl=en. > >>> > > >>> > > >>> > >>> > >>> -- > >>> You received this message because you are subscribed to the Google > >>> Groups > >>> "The Unique Geek" group. > >>> To post to this group, send email to [email protected]. > >>> To unsubscribe from this group, send email to > >>> [email protected]<theuniquegeek%[email protected]> > <theuniquegeek%[email protected]<theuniquegeek%[email protected]> > > > >>> . > >>> For more options, visit this group at > >>> http://groups.google.com/group/theuniquegeek?hl=en. > >>> > >>> > >> -- > >> You received this message because you are subscribed to the Google > >> Groups > >> "The Unique Geek" group. > >> To post to this group, send email to [email protected]. > >> To unsubscribe from this group, send email to > >> [email protected]<theuniquegeek%[email protected]> > <theuniquegeek%[email protected]<theuniquegeek%[email protected]> > > > >> . > >> For more options, visit this group at > >> http://groups.google.com/group/theuniquegeek?hl=en. > >> > > > > > > > > -- > > Jim > > > > blog ~ http://blog.k12virtualization.com > > "Keep moving Forward" > > > > -- > > You received this message because you are subscribed to the Google Groups > > "The Unique Geek" group. > > To post to this group, send email to [email protected]. > > To unsubscribe from this group, send email to > > [email protected]<theuniquegeek%[email protected]> > . > > For more options, visit this group at > > http://groups.google.com/group/theuniquegeek?hl=en. > > > > > > > -- > You received this message because you are subscribed to the Google Groups > "The Unique Geek" group. > To post to this group, send email to [email protected]. > To unsubscribe from this group, send email to > [email protected]<theuniquegeek%[email protected]> > . > For more options, visit this group at > http://groups.google.com/group/theuniquegeek?hl=en. > > -- Jim blog ~ http://blog.k12virtualization.com "Keep moving Forward" -- You received this message because you are subscribed to the Google Groups "The Unique Geek" group. To post to this group, send email to [email protected]. To unsubscribe from this group, send email to [email protected]. For more options, visit this group at http://groups.google.com/group/theuniquegeek?hl=en.
