Not able to Copy in Clipboard using VBScript

[Pratim]

I am using the notepad for writing the codes in VBScript. Also I don't want to use anything else than the notepad. I am facing a problem while making project. My problem is that I am not able to Copy in Clipboard using VBScript.! I have tried to make coding but that is not coping the things actually. Can someone tell me the coding for that. Please provide me coding as soon as possible.
Thanks in Advance..

[CodGuru]

I think that it will be better if you provide us the sample of the script that you made for Copying data in Clipboard using VBScript. Because instead of telling you the whole program, it will be better for me (maybe others) to tell you the exact place where you are going wrong.!! Also by that code i can come to know what exactly you want to do.!?! So post us the code..!

[Pratim]

Thanks for replying me and also for trying to solve my problem. I have written script but it does not really copy the data from the clipboard, it will just write it to the file immediately, without copying. Here is my script :

strComputer = "."
    Set objWMI = GetObject("winmgmts:\\" & strComputer & "\cimv2")
    Set colItems = objWMI.ExecQuery _
        ("Select * from Win32_Proxy",,50)

For Each objItem in colItems
    ProxyServer = objItem.ProxyServer
    ProxyPortNumber = objItem.ProxyPortNumber
Next

Proxy = InputBox("Do you want to save the IP to disk?.","Here's your IP and Port.",""&ProxyServer &":" &ProxyPortNumber,800,600)

If Proxy = 1 Then
With Clipboard
    .Clear
    .SetText(""& ProxyServer)
End With
    msgbox("Copied")
        Else msgbox("Copy Failed")
End If

[Praetor]

According to me you need a parent window to copy something to the clipboard.
I think that you should try the following coding :

Set objHTML = CreateObject("htmlfile")
ClipboardText = objHTML.ParentWindow.ClipboardData.GetData("text")
MsgBox ClipboardText

Hope that you will get something after using this script.

[Warner]

You should try the following code for Copying Data in Clipboard using VBScript. Hope that after creating the object you will able to copy the data. Here is the code for that :

Set objIE = CreateObject("InternetExplorer.Application")  
  
objIE.Navigate("about:blank")  
objIE.document.parentwindow.clipboardData.SetData "text", strCopy  
strCopy = "This text has been copied to the clipboard."  

objIE.Quit

[Katty]

I have provided you the script. You will have to copy path script with self register function and your problem will get solved.

<!-- FileName:CopyPath.hta -->  
  
<hta:application ID="HTA" windowstate="maximize">  
  
<script language=vbs>  
  
Const TKey1 = "HKCR\*\shell1\CopyPath\", Tkey2 = "HKCR\Directory1\shell\CopyPath\"  
  
Const sMenu = "Copy FullPath(&F)"  
  
Dim Arg, 
Dim pPath, 
  
Arg = Mid(HTA.commandLine, Len(document.urlunencoded) + 4)  
  
If Arg = "" Then  
  
pPath = document.urlunencoded  
  
Reg_UnReg TKey1, sMenu, pPath, False: Reg_UnReg TKey2, sMenu, pPath, True  
  
Else  
  
Me.clipboarddata.setdata "Text", Arg  
  
End If  
  
Me.Close  
  
'  
  
Sub Reg_UnReg(Key, Menu, Path, PopUp)  
  
Dim ENo  
  
With CreateObject("WScript.Shell")  
  
.SendKeys "{F10}{ESC}", True  
  
On Error Resume Next: .RegRead Key: ENo = Err.Number: On Error GoTo 0  
  
If ENo <> 0 Then  
  
.RegWrite Key, Menu  
  
.RegWrite Key & "command\", "mshta """ & Path & """ %L"  
  
If PopUp Then .PopUp "Added to context menu.", 1  
  
Else  
  
.RegDelete Key & "command\": .RegDelete Key  
  
If PopUp Then .PopUp "Deleted from context menu.", 1  
  
End If  
  
End With  
  
End Sub  
  
</script>

According to me you should able to copy your data to clipboard using this script.