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]>
>> .
>> >> 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.
>> >
>> >
>>
>>
>> --
>> 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.
