
root
Members-
Posts
17 -
Joined
-
Last visited
Everything posted by root
-
Thanks!
-
Hi, i have a Problem creating a Label with a "&". GUICtrlCreateLabel("&", 20, 20, 20, 20) just shows nothing. GUICtrlCreateLabel("&a", 20, 20, 20, 20) shows an underlined a. Is there any way to show a & ? I also tried it with a empty label and GUICtrlSetData, with the same result. Im using version 3.3.4.0 on win7 x64. Regards
-
This Returns 64, but i have to know whether its xp or 2003..
-
like i wrote @OSVersion returns WIN_2003 @OSType Win32_NT @OSBuild 3790
-
hello I'm using some scripts which depend on the operation system they run on, and i got some problems with the scripts not running correctly on XP 64 and i think the problem is that the @OSVersion Macro returns WIN_2003 on WinXP 64bit machines, so it runs the WIN_2003 Part and not the Part for XP. Any suggestions to solve this ? regards
-
Thank you very much!
-
Hi, i dont get this VBS Script converted to an AutoIt Script serverName = "dc1.xxxx.xx" baseStr = "dc=xxxxx,dc=xx" filterStr = "(&(&(objectclass=user)(sn=Test*)))" Set ado = CreateObject("ADODB.Connection") ado.Provider = "ADSDSOObject" ado.Properties("User ID") = "xxx@xxxxx.xx" ado.Properties("Password") = "xxxxxxxxx" ado.Properties("Encrypt Password") = True ado.Open "ADS-Search" Set adoCmd = CreateObject("ADODB.Command") adoCmd.ActiveConnection = ado adoCmd.Properties("Page Size") = 99 adoCmd.Properties("Cache Results") = True adoCmd.CommandText = "<LDAP://" & serverName & "/" & baseStr & ">;" & filterStr & ";ADsPath;subtree" Set objectList = adoCmd.Execute While Not objectList.EOF Set user = GetObject(objectList.Fields("ADsPath")) WScript.Echo user.displayName objectList.MoveNext Wend I tried that way.. but i dont get it to work : Global $objConnection = ObjCreate("ADODB.Connection") ; Create COM object to AD $objConnection.ConnectionString = "Provider=ADsDSOObject" $objConnection.Open ("Active Directory Provider") ; Open connection to AD Global $objRootDSE = ObjGet("LDAP://RootDSE") Global $strDNSDomain = $objRootDSE.Get ("defaultNamingContext") Global $strHostServer = $objRootDSE.Get ("dnsHostName") Global $strConfiguration = $objRootDSE.Get ("ConfigurationNamingContext") $strQuery = "<LDAP://" & $strHostServer & "/" & $strDNSDomain & ">;(LastName=Test*" & ");ADsPath;subtree" $objList = $objConnection.Execute ($strQuery) While Not $objList.EOF $oObject = ObjGet($objList.ADsPath) $result = $oObject.sAMAccountName MsgBox(0, "title", $result & "") WEnd
-
no it doesnt use the internet explorer settings
-
Is it possible to set ProxySettings and User/PW for an embedded Browser?
-
Anyone made a script to obtain all dhcp servers in a network ? I want to find all DHCP Servers in the Network, so i thought i should create an DHCP DISCOVER Packet and get the IP Adresses out of the Received DHCP Offers, is that possible ? Can someone help me with that or anyone allready created something like that ?
-
changed the _ArraySort to If UBound($ListArray, 1) >= $i Then _ArraySort($ListArray, 0, 0, $i) same result edit: got it, missing parameter for $i_dim
-
When I try to Sort my 2-Dimension Array im getting this error, and dunno why... im not expierenced with the Array UDF so maybe someone may help with this. AutoIt Version : 3.2.2.0 Thats The Error Msg when Running the Script: \\Path\Array.au3 (582) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.: Local $pivot = $array[int(($left + $right)/2)] Local $pivot = ^ ERROR Global $ListArray[255][2] Func createList() Local $in, $Temp GUICtrlDelete($List1) $List1 = GuiCtrlCreateListView("1 ", 20, 30, 170, 200) $in = FileOpen(@ScriptDir & "\test.txt", 0) While 1 $Line = FileReadLine($in) If @error = -1 Then ExitLoop $Temp = StringSplit($Line, @TAB) $ListArray[$i][0] = $Temp[1] $ListArray[$i][1] = $Temp[2] $i += 1 WEnd $Size = $i _ArraySort($ListArray, 0, 0, $i) For $i = 0 To $Size Step 1 GUICtrlCreateListViewItem($ListArray[$i][0], $List1) Next FileClose($in) EndFunc
-
weird..my log is empty.. im using autoit version 3.2.1.3 running under winxpsp2
-
Thanks for the help but even that didnt help, since its quite similiar to my first try... the problem is not the if-clause.. i dont get any stdout-text #include <Constants.au3> FileDelete(@WindowsDir & "\security\templates\policies\gpt*.inf") Global $line, $line2 Global $foo = Run("gpupdate /force", "", @SW_HIDE, $STDERR_CHILD + $STDOUT_CHILD) $log = FileOpen("gpUpdate.log", 2) While 1 $line = StdoutRead($foo, 100, True) If @error Then ExitLoop FileWrite($log, $line) WEnd gpUpdate.log is empty.. i made it that way with psloggedon.exe and stdoutread is working fine.. i have no idea why it isnt working here....
-
same result... i need the parse of stdout during the gpupdate execution...
-
What I want : - The Program shall delete old Policies(works) - The Program shall run gpupdate (works) - The Program shall look for the question to reboot or logoff and send no and thats the point, the while-wend part first starts when the gpupdate process ends (since it waits for an insert it never ends automatically, and the msgboxes are just appearing when the gpupdate window is closed manually. (also doesnt work with @SW_HIDE) any ideas ? #include <Constants.au3> FileDelete(@WindowsDir & "\security\templates\policies\gpt*.inf") $foo = Run("gpupdate /force", "", @SW_SHOW, $STDERR_CHILD + $STDOUT_CHILD) While 1 $line = StdoutRead($foo) MsgBox(0, "STDOUT read:", $line) $line2 = StderrRead($foo) MsgBox(0, "STDERR read:", $line2) WEnd